- 445 名前：デフォルトの名無しさん [2009/03/07(土) 20:03:08 ]
- #!/usr/bin/perl
$\ = "\n";
while (<>) {
($Fld1,$Fld2,$Fld3) = split(' ', $_, -1);
if (/^hoge/) {
print $Fld3;
}
}
--------------------------------
#!/usr/bin/awk -f
/^hoge/{ print $3}
>>444
特定のフィールドを扱う処理だったらgrep使わんでしょ、普通
にしても・・・perlなんてワンライナーで使いたくねぇw
