Perlコーディング初心者質問スレ Part 38
レス数が900を超えています。1000を超えると表示できなくなるよ。
0919nobodyさん
04/11/23 11:08:09ID:nMfYIywn顔真っ赤にして、嘘付くなよ。ヘッポコ
実験すれば実行されないことは簡単にばれちゃうのに、事実を捻じ曲げてまで絡んでくるとは
そんなに馬鹿にされたのが悔しいのかな?
でも、実際馬鹿なんだからしょうがない。親を恨んであきらめることだ。
$keyword=';rm -f *';
$pid = open(IN, "-|");
if (!defined($pid)) {
die "cannot fork";
} elsif ($pid == 0) {
exec('/bin/echo', $keyword, 'file') || die 'grep';
}
while(<IN>) {
print $_;
}
レス数が900を超えています。1000を超えると表示できなくなるよ。