利用perl统计文件中的相同项的个数：

利用perl统计文件中的相同项的个数：
文件见下：
1
1
2
2
3
3
3
4
4
5
5

欲得结果：
1 2
2 2
3 3
4 2
5 2
谢谢各位高手啦！

Perl code

use 5.012;
use warnings;

open FILE, "items.txt" or die("$!\n");
my %res;
chomp($_), ++$res{$_} while(<FILE>);
close FILE;
print("$_: $res{$_}\n") foreach(sort keys(%res));