hash一段代碼沒看懂，高手解釋下

cocoa1227

#!/usr/bin/perl -w
use strict;
my %hash;

open my $fd,"aa.txt" or die $!;
while(<$fd>) {
$hash{$_} ++;  # 這句話怎么理解？
}
close $fd;
open $fd,"bb.txt" or die $!;
while(<$fd>) {
    print if $hash{$_}  ;
}
close $fd;

zhlong8

和 $i++ 沒什么區(qū)別啊，就是 $hash{$_} += 1; $hash{$_} = $hash{$_} + 1;

這里是把 aa.txt 的內(nèi)容按行讀入內(nèi)存當(dāng)個(gè)字典，然后檢測(cè) bb.txt 里面的內(nèi)容是不是在 aa.txt 里面

cocoa1227

回復(fù) 2# zhlong8


    那鍵對(duì)應(yīng)的值是不是沒有內(nèi)容？

zhlong8

cocoa1227 發(fā)表于 2012-05-18 10:16
回復(fù) 2# zhlong8

有啊，是出現(xiàn)次數(shù)的計(jì)算，不是有個(gè) ++ 嗎？Perl 語言有個(gè)好處就是第一次出現(xiàn)的時(shí)候你不需要初始化下 $hash{$_} = 1;

直接 ++ 它就知道你想要的是個(gè)數(shù)字，如果不存在會(huì)自動(dòng)給你創(chuàng)建個(gè)數(shù)字。

zhlong8

cocoa1227 發(fā)表于 2012-05-18 10:16
回復(fù) 2# zhlong8

再比如2維數(shù)組，你直接聲明個(gè) my @lol; 不需要初始化就可以直接 $lol[$x][$y] = "something"; 它會(huì)自動(dòng)會(huì)你創(chuàng)建個(gè)新的數(shù)組，再把它的引用賦值給 $lol[$x]。這個(gè)特性叫 autovivification 不知道中文怎么譯

scutdk

$hash{$_}就是key=>value中的value啊，key是$_，也就是你讀進(jìn)來的每一行。
整個(gè)程序的作用就相當(dāng)于對(duì)aa中的每一行執(zhí)行g(shù)rep $_ bb.txt， $_為aa中的每一行。

cocoa1227

我打日志跟蹤了下，
#!/usr/bin/perl -w
use strict;
my %hash;

open my $fd,"a" or die $!;
while(<$fd>) {
        print "file a",chomp($_),"\t";
        $hash{$_} ++;  # 這句話怎么理解？
        print "keys " ,sort(keys %hash),"\t";
        print "values " ,sort(values %hash),"\n";
}
close $fd;
=cut;
open $fd,"b" or die $!;
while(<$fd>) {
    print if $hash{$_}  ;
}
close $fd;
=cut


f:>more a
a
b
c

f:>perl b.pl
file a 1    keys a values 1
file a 1    keys b values 11
file a 1    keys c values 111

問題:values 怎么不是 1 2 3??有點(diǎn)想不通

cocoa1227

突然明白了，不好意思，有點(diǎn)腦筋沒轉(zhuǎn)過彎來

tempo8

各位大仙兒：
類似的問題在
http://www.72891.cn/forum.p ... ;extra=#pid22110313
9、10樓！:wink:
請(qǐng)支招！謝謝