Perl 自增问题

<pre name="code" class="sql">[root@june3 ~]# cat 2.shfor((i=1;i<=10;i++))doecho $idoneecho "last \$i is $i\n";[root@june3 ~]# sh ./2.sh12345678910last $i is 11\n$i最后的值是11----------------------------------------------------------------[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 "1---\$log{$_} is $log{$_} \n";###添加hash 数组元素$log{$_}++;print "2---\$log{$_} is $log{$_} \n";};while(my($ip, $times) = each %log) {     print "$ip  $times\n";     }print "1--------$log{1}\n";print "2--------$log{2}\n";[root@june3 ~]# perl a2.pl 1---$log{1} is  2---$log{1} is 1 1---$log{1} is 1 2---$log{1} is 2 1---$log{1} is 2 2---$log{1} is 3 1---$log{2} is  2---$log{2} is 1 1---$log{2} is 1 2---$log{2} is 2 1---$log{2} is 2 2---$log{2} is 3 1---$log{2} is 3 2---$log{2} is 4 1---$log{2} is 4 2---$log{2} is 5 1---$log{2} is 5 2---$log{2} is 6 1---$log{3} is  2---$log{3} is 1 1---$log{3} is 1 2---$log{3} is 2 1---$log{3} is 2 2---$log{3} is 3 1---$log{3} is 3 2---$log{3} is 4 1---$log{3} is 4 2---$log{3} is 5 1---$log{3} is 5 2---$log{3} is 6 1---$log{4} is  2---$log{4} is 1 1---$log{5} is  2---$log{5} is 1 1---$log{6} is  2---$log{6} is 1 6  14  11  33  62  65  11--------32--------6hash 数组添加元素:元素赋值与操作:    增加: 赋值$h{'a'}=1,不存在则创建,hash不存在也创建。%log;foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {print "1---\$log{$_} is $log{$_} \n";###添加hash 数组元素$log{$_}++;print "2---\$log{$_} is $log{$_} \n";};while(my($ip, $times) = each %log) {     print "$ip  $times\n";     }print "1--------$log{1}\n";print "2--------$log{2}\n";相当于:foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {#print "1---\$log{$_} is $log{$_} \n";$log{'$_'}=$log{$_}++;};while(my($ip, $times) = each %log) {     print "$ip  $times\n";     }print "1--------$log{1}\n";print "2--------$log{2}\n";hash数组添加元素；my %hash = ("1","a",            "2","b");foreach  $key (sort keys %hash){  $var = $hash{$key};      print "$key is  $var\n";}print "----------------------------\n";##add$hash{3}++;foreach  $key (sort keys %hash){ $var = $hash{$key};    print "$key is  $var\n";}print "----------------------------\n";$hash{3}++;foreach  $key (sort keys %hash){ $var = $hash{$key};    print "$key is  $var\n";}[root@june3 ~]# perl a5.pl 1 is  a2 is  b----------------------------1 is  a2 is  b3 is  1----------------------------1 is  a2 is  b3 is  2