sxw

use strict;
use warnings;
my %hash;
while (<DATA>) {
    if (!$hash{$_}) {
        print;
      $hash{$_} += 1;
    }
}
__DATA__
aaa
bbb
aaa
aaa
ccc
ddd
bbb
ddd 
复制代码

为什么结果是：

aaa
bbb
ccc
ddd
ddd
复制代码

不知道什么原因？

sxw

7# Batcher
恩，还真是这样的。哈哈，版主我是这样理解的，表述不太好，不知道对不对：
(1) 【ddd】和【ddd+空格】 在$_看来是不同的，所以打印出来会出现2次ddd，其实他们不一样，第一次是【ddd】，第二次是【dd+空格】
(2)至于为什么要在最后一行ddd后加上另一行，是为了给其增加一个换行符，这样两处的ddd就完全一样了