【Perl】初心者コーナー Part15

[0904 nobodyさん 02/09/13 04:05 ID:???]

>899
こんな感じでどう？

$n = 0;
loop: {
 $n++;
 open( OUT, ">$n" );
 while ( <> ) {
  if ( $_ eq ".\n" ) {
   close OUT;
   redo loop;
  }
  print OUT;
 }
}