※ 引述《flu (Crazy Rhythm)》之铭言：
: : my %count_of_si ; #统计si出现的次数
: : my %p_of_si ; #统计si为0的次数
: my $name_of_file_in = "aaa_inc"; #读入的档案
: if (-e $name_of_file_in)
: : {
: print "$name_of_file_in exist\n";
: open (FILE , "<". $name_of_file_in);
: ^^^^^
: #<FILE>会把读入的内容写入$_
: : while(<FILE>)
: : {
: my @filtered = ( $_ =~ m/^ [\s\t]* (\d+) [\s\t]+ (\d+) /x);
: : next if ( !defined $filtered[0] ) ;
: #下面这行和我的版本不同
: : $count_of_si{ $filtered[1] }++ if $filtered[1] == 1;
这里我有key错 是原本的 $count_of_si{ $filtered[1] }++; 才对
: : $p_of_si{ $filtered[1] }++ if $filtered[0] == 0 ;
: : }
: : }
: : print Dumper( @count_of_si{ sort keys %count_of_si } ) ;
: : print "\n" ;
: : print Dumper( @p_of_si{ sort keys %p_of_si} ) ;
我试了一下
发现show出的内容是
$var1 = 7
$var2 = 7
$var3 = 7
$var1 = 6
$var2 = 7
$var3 = 2
上行表示1、2、3全部的个数
下行表示1、2、3中0的个数
我比对档案的内容是这样没错
而我还有个问题是
如果我想print出 1全部有几个，1里面的0有几个
也就是所有读入的数字(1.2.3...)个别print出来个数与所含的0的个数
那我要怎么表示呢?
感谢回答~