Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるス ..

299:デフォルトの名無しさん
05/11/08 10:56:28
#!/usr/bin/perl

$date = <STDIN>;
chomp $date;

open(FH, 'xxx.txt');
while (<FH>) {
chomp;
if($_ eq ''){
$flag = 0;
next;
}
if($flag){
print $_, "\n";
next;
}
if($_ eq $date){
print $_, "\n";
$flag = 1;
}
}
close(FH);

テキトー

次ページ

続きを表示

1を表示