用perl写一个脚本 实现把文件A中内容重复的行只保留一个

好的, 以下是 perl 脚本的代码：

#!/usr/bin/perl

use strict;
use warnings;

my $filename = 'A.txt';
my %lines;

open(my $fh, '<', $filename) or die "Error opening file: $!";
while ( my $line = <$fh> ) {
  chomp $line;
  $lines{$line}++;
}
close($fh);

open(my $out_fh, '>', $filename) or die "Error opening file: $!";
foreach my $line ( keys %lines ) {
  print $out_fh "$line\n";
}
close($out_fh);

print "File deduplicated successfully\n";

以上代码会读取文件 A.txt 中的所有行，并将它们存储到一个哈希表中。哈希表会自动去重，因为每一行都是作为哈希表的key存储的。最后再将去重后的结果写回到文件 A.txt 中。