Perl不重复的文件行输出

在日常的文本处理中，有时候要输出唯一的行，这种工作有多种方法实现...

以下是一种：

my %hash;
while (<>) {
? ? chomp;
? ? if (defined $hash{$_}) {
? ?? ???$hash{$_} = undef;? ? #重复？
? ?? ???next;
? ? }
? ? $hash{$_} = [$_,$.];
}

my @uniq = grep defined,values %hash;? ?? ?? ?#过滤到重复的
@uniq = sort {$a->[1] <=> $b->[1]} @uniq;? ? #按保存的顺序排序
say $_->[0] for @uniq

?

这是来自CU 的一个代码，比较的简单，故贴在这里，供观赏。

?

还有一例：

my @x=(1,2,3,1,4);

my %hash;

$hash{$_}++ for @x;

for (@x) {

print if $hash{$_} < 2;

}