hash 例子

use strict;
use warnings;
my $data='';
my %hash=();
open(OC,'c:tkprof.txt');
my @oc=;
foreach my $line (@oc)
{
chomp($line);
if (exists $hash{$line})
{
$hash{$line}++;
}
else {$hash{$line}=1;}
}
close(OC);
while( (my $key, my $value) = each %hash)
{
print "$key => $valuen";
}[@more@]#!/usr/bin/perl

#!/usr/bin/perl
use strict;
use warnings;
my $data='';
my %hash=();
open(OC,'c:tkprof.txt');
my @oc=;
foreach my $gline (@oc)
{
chomp($gline);
my @line= split(' ',$gline);
if (exists $hash{$line[1]})
{
$hash{$line[1]}++;
}
else {$hash{$line[1]}=1;}

}
close(OC);
while( (my $key, my $value) = each %hash)
{
print "$key => $valuen";
}

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9907339/viewspace-1052770/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9907339/viewspace-1052770/