“Połącz wszystkie linie z tę samą wartością kolumny UNIX” Kod odpowiedzi

Połącz wszystkie linie z tę samą wartością kolumny UNIX

cat FILENAME | perl -e 'foreach $Line (<STDIN>) { @Cols=($Line=~/^\s*(\d+)\s*(.*?)\s*$/); push(@{$Link{$Cols[0]}}, $Cols[1]); } foreach $List (values %Link) { print join("\t", @{$List})."\n"; }'