消えてなくなれよ >オブジェクト指向

消えてなくなれよ >オブジェクト指向 at TECH

445:デフォルトの名無しさん
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

次ページ

続きを表示

1を表示