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";
}
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博客 ” ，链接：https://blog.itpub.net/9907339/viewspace-1052770/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
oracle user privs
下一篇：
perl自定义函数
请登录后发表评论
登录
全部评论
