我的样本数据:
1 2 A
1 2 3 B
1 A
1 2 3 C
1 3 A
1 3 B
我要数最后一个字的个数
我的 Perl 代码:
my %tmp;
while(<>) {
chomp;
my $last=(split)[-1];
$tmp{$last}++;
}
while(my ($k,$v)=each %tmp){
print "$k=>$v\n"
}
它工作正常。我最近学习了,,,,但是grep
不太明白。我尝试在一行中使用多个代码编写上述代码。不成功。map
sort
map
你能告诉我怎么做吗?
谢谢。