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++ 没什么区别啊，就是 $hash{$_} += 1; $hash{$_} = $hash{$_} + 1;

这里是把 aa.txt 的内容按行读入内存当个字典，然后检测 bb.txt 里面的内容是不是在 aa.txt 里面

cocoa1227

回复 2# zhlong8


    那键对应的值是不是没有内容？

zhlong8

cocoa1227 发表于 2012-05-18 10:16
回复 2# zhlong8

有啊，是出现次数的计算，不是有个 ++ 吗？Perl 语言有个好处就是第一次出现的时候你不需要初始化下 $hash{$_} = 1;

直接 ++ 它就知道你想要的是个数字，如果不存在会自动给你创建个数字。

zhlong8

cocoa1227 发表于 2012-05-18 10:16
回复 2# zhlong8

再比如2维数组，你直接声明个 my @lol; 不需要初始化就可以直接 $lol[$x][$y] = "something"; 它会自动会你创建个新的数组，再把它的引用赋值给 $lol[$x]。这个特性叫 autovivification 不知道中文怎么译

scutdk

$hash{$_}就是key=>value中的value啊，key是$_，也就是你读进来的每一行。
整个程序的作用就相当于对aa中的每一行执行grep $_ 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??有点想不通

cocoa1227

突然明白了，不好意思，有点脑筋没转过弯来

tempo8

各位大仙儿：
类似的问题在
http://bbs.chinaunix.net/forum.p ... ;extra=#pid22110313
9、10楼！:wink:
请支招！谢谢