2010-07-03から1日間の記事一覧
(同じファイル内には同一行が無いのが前提)共通行を抜き出すだけだったら、ワンライナーでさくっと書ける。 $ perl -nl -e 'BEGIN{$c=scalar @ARGV}; $h{$_}++; END{ for (keys %h){print if $h{$_} == $c}; }' file1 file2 file3 ... BEGINブロック内でARGV…
(同じファイル内には同一行が無いのが前提)共通行を抜き出すだけだったら、ワンライナーでさくっと書ける。 $ perl -nl -e 'BEGIN{$c=scalar @ARGV}; $h{$_}++; END{ for (keys %h){print if $h{$_} == $c}; }' file1 file2 file3 ... BEGINブロック内でARGV…