數列中的字符串總數

Question

我想算在多個文件中唯一的行：

f1.txt

2039-177 GRAPE 
2039-177 GRAPE 
2039-176 GRAPE 
2039-176 GRAPE 
234-450 APPLE 

f2.txt

690-346 MANGO 
690-346 MANGO 
347-348 GRAPE 
4350-350 MANGO 

所需輸出

Total no:of grapes - 3 
Total no:of mangoes - 2 
Total no:of apples - 1 

Answer 1

也許這樣的事情？ （未測試）

此解決方案需要輸入文件的名稱作爲命令行上的參數。

use strict; 
use warnings; 

use List::Utils 'max'; 

my %count; 
$count{ (split)[1] }++ while <>; 

my $len = 1 + max map length, keys %count; 

for (keys %count) { 
    printf "Total no:of %-*s - %d\n", $len, lc $_.'s', $count{$_}; 
} 

Answer 2

純Perl代碼：

$ perl -lane '$seen{$_}++ or ++$n{lc $F[1]}; 
    END{print "Total no:of ${_}s - $n{$_}" 
     for sort { $n{$b} <=> $n{$a} } keys %n}' f1.txt f2.txt 
Total no:of grapes - 3 
Total no:of mangos - 2 
Total no:of apples - 1 

管道：

$ cat f1.txt f2.txt | uniq | \ 
    perl -lanE '++$n{lc$F[1]};END{say"Total no:of ${_}s - $n{$_}"for keys%n}' | \ 
    sort -nrk5 
Total no:of grapes - 3 
Total no:of mangos - 2 
Total no:of apples - 1