擅长:python、mysql、java
<p>Perl“one liner”有意/扩展,以便所有内容都适合窗口:</p>
<pre><code>$ perl -F -lane '
$hash{ $F[0] }{ $F[1] }++;
} END {
for my $columnA ( keys %hash ) {
print $columnA, " - ", join( ",", keys %$hash{$columnA} ), "\n";
}
'
</code></pre>
<p>如果我看到原版海报上有一致的尝试,我会解释的。在</p>