Perl
Ten kod oblicza wystąpienia wszystkich kolumn i wyświetla posortowany raport dla każdej z nich:
while (<>) {
@Fields = split /\s+/;
for $i ( 0 .. $#Fields ) {
$result[$i]{$Fields[$i]}++
};
}
for $j ( 0 .. $#result ) {
print "column $j:\n";
@values = keys %{$result[$j]};
@sorted = sort { $result[$j]{$b} <=> $result[$j]{$a} || $a cmp $b } @values;
for $k ( @sorted ) {
print " $k $result[$j]{$k}\n"
}
}
Zapisz tekst jako columnvalues.pl
Uruchom go jako: perl columnvalues.pl files*
Wyjaśnienie
W pętli while na najwyższym poziomie:
* Pętla nad każdym wierszem połączonych plików wejściowych
* Podziel wiersz na tablicę @Fields
* Dla każdej kolumny zwiększ wynikową strukturę danych tablicy skrótów
Na najwyższym poziomie pętli for:
* Pętla nad tablicą wyników
* Wydrukuj numer kolumny
* Pobierz wartości użyte w tej kolumnie
* Sortuj wartości według liczby wystąpień
* Drugorzędne sortowanie na podstawie wartości (na przykład b vs g vs m vs z)
* Iteruj przez skrót wyniku, używając posortowanej listy
* Wydrukuj wartość i liczbę każdego wystąpienia
Wyniki oparte na przykładowych plikach wejściowych dostarczonych przez @Dennis
column 0:
a 3
z 3
t 1
v 1
w 1
column 1:
d 3
r 2
b 1
g 1
m 1
z 1
column 2:
c 4
a 3
e 2
.csv wejście
Jeśli pliki wejściowe to .csv, zmień /\s+/
na/,/
Maskowanie
W brzydkim konkursie Perl jest szczególnie dobrze wyposażony.
Ta jedna linijka robi to samo:
perl -lane 'for $i (0..$#F){$g[$i]{$F[$i]}++};END{for $j (0..$#g){print "$j:";for $k (sort{$g[$j]{$b}<=>$g[$j]{$a}||$a cmp $b} keys %{$g[$j]}){print " $k $g[$j]{$k}"}}}' files*