2007年01月24日17:00 カテゴリ一日一行野郎Lightweight Languages perl - comm(1)またはuniq -(d|u) それってPerlの一行野郎で -- それP1(ry メモ帳 - uniq の -d と -u 存在意義がわからなかったオプションの使い道を見つけたときは妙に感動する。a, b に共通な行を抜き出す perl -nle '$l{$_}++;END{$l{$_}>1 and print for keys %l}' a b ENDブロックはこう使うという例にもなっています。 a にだけ含まれる行を抜き出す -- 引数の順序に注意 perl -nle 'if(@ARGV){$l{$_}++}else{print unless $l{$_}}' b a Perlで<>を使うときには、まだ読まれていないファイル名が@ARGVに入っています。これが空
![perl - comm(1)またはuniq -(d|u) : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)