- 299 名前：デフォルトの名無しさん mailto:sage [2005/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);
テキトー
