09/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