10/05/24 00:53:43
my $name ;
while(<>){
$name = $_ if /^NAME/ ;
next if ! ( /UOFTOKYO/ .. /^ID/ || eof );
print $name and undef $name if defined $name ;
next if !(/^WORKS/ .. /^END/ ) ;
print ；
}
細かい所は知らん。
10/05/24 00:53:43
my $name ;
while(<>){
$name = $_ if /^NAME/ ;
next if ! ( /UOFTOKYO/ .. /^ID/ || eof );
print $name and undef $name if defined $name ;
next if !(/^WORKS/ .. /^END/ ) ;
print ；
}
細かい所は知らん。