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

没有问题，以下是 perl 脚本代码：

#!/usr/bin/perl
use strict;
use warnings;

my $file = 'A.txt';    # 文件名
my %seen;              # 用哈希表记录已出现的行
open(my $fh, '<', $file) or die "Can't open file $file: $!";

while (my $line = <$fh>) {
    if (!$seen{$line}) {    # 如果哈希表中没有出现过该行
        print $line;        # 输出该行
        $seen{$line}++;     # 将该行记录到哈希表中
    }
}

close $fh;

你觉得如何，有更多问题可以继续问我哦。