問題求教

黎明0626

#!/usr/bin/perl
open RESULT,">a.txt";
open FILE,"<b.txt";
while(<FILE>){
chomp;
next if exists $hash{$_};
      $hash{$_}= 1;#####
print RESULT "$_\n";
}

有#####的那句話是什么意思 ，請各位大神賜教

sunzhiguolu

回復(fù) 1# 黎明0626
為鍵為 $_ 的哈希變量 %hash 賦值 1;

   

TrishaTie

$_ 為Perl 的默認(rèn)變量 上面的那些代碼可以等價于：
while(my $line=<FILE>){
chomp($line);
next if exists $hash{$line};
       $hash{$line}= 1;#####
print RESULT "$line\n";
}
這里 $line 就是你說的 $_

jason680

回復(fù) 1# 黎明0626

簡單的說:去重