[root@june3 ~]# cat a2.pl
%log;
foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {
print "\$log{$_} is $log{$_} \n";
$log{$_}++;
};
while(my($ip, $times) = each %log) {
print "$ip $times\n";
}
[root@june3 ~]# perl a2.pl
$log{1} is
$log{1} is 1
$log{1} is 2
$log{2} is
$log{2} is 1
$log{2} is 2
$log{2} is 3
$log{2} is 4
$log{2} is 5
$log{3} is
$log{3} is 1
$log{3} is 2
$log{3} is 3
$log{3} is 4
$log{3} is 5
$log{4} is
$log{5} is
$log{6} is
6 1
4 1
1 3
3 6
2 6
5 1
##使用hash数组
my %hash=("1","HOST",
"2","FILESYSTEM",
"3","TYPE",
"4","SIZE#",
"5","USED",
"6","AVAIL",
"7","USE",
"8","MOUNTED",
"9","SYSDATE");
foreach $key (sort keys %hash)
{ my $var = $hash{$key};
print "\$var is $var\n";
my $tmp_label = $table->Label(-text => $var, -width => 20, -relief =>'raised');
##放到第0行 第N列
$table->put(0, $key, $tmp_label);
}
Perl 利用hash 数组累加
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:标量 ,数组,hash 引用
下一篇:利用hash 数组打印标题
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Perl入门(三)Perl的数组
perl学习
perl 学习 -
Perl hash map操作,定义,插入,删除,hash函数
perl
perl map