Perlコーディング初心者質問スレ Part 59
■ このスレッドは過去ログ倉庫に格納されています
0619nobodyさん
2009/06/11(木) 17:33:08ID:???読み込んだファイルの'key'という文字が出てくる次の行から
アウトプットさせたいんだが、うまくいかないです。
$flag = 0;
while($line = <IN1>){
chomp $line;
if($line =~ m/^key/){
$flag = 1;
print OUT1 $flag;
}
}
while($line){
if($flag == 1){
print OUT1 "$line\n";
}
}
みたいな感じで書いてみたんですが
if($line =~ m/key/)が認めらんねぇ、みたいなこと言われました。
どうしたらうまくいくか、教えてください。
■ このスレッドは過去ログ倉庫に格納されています