-1

行ごとに比較し、行とその発生を報告するプログラムをperlで書くにはどうすればよいですか? 

A    4481676    4483063
A    4481676    4483063
A    4481676    4483063
A    4481676    4483063
A    4483214    4483749
A    4483214    4483749
A    4483214    4483749
A    4483214    4483749
A    4483214    4483749
A    4483214    4483749

この出力を印刷します

A    4481676    4483063   4
A    4483214    4483749   6
4

2 に答える 2

2

上記のように、ただし perl で

perl -n -e 'use Data::Dumper;$a{$_}++; END { print Dumper(\%a)}' file
于 2013-09-06T15:10:03.737 に答える