in reply to Re^4: readline() on unopened filehandle
in thread readline() on unopened filehandle

do {
   $batch .= $line_B;
} until ( $line_B =~ m/^\s*go\s*$/i );

[download]

I suspect that your program would eventually die of memory exhaustion, assuming $line_B contains something.

Let's do a bit of detective work:

Replies are listed 'Best First'.
Re^6: readline() on unopened filehandle
by Win (Novice) on Oct 07, 2005 at 14:45 UTC
    Your right. I should think about code that is given to me before implementing it. Thanks. That bit now looks like this: 

    

foreach (@files) {

  $FH = $_;

  open (FILE, "<$FH"); 

 OUTER: while ((<FILE>)) {

    $line_B = $_;

      $batch .= $line_B;
     
    last if eof;
    last if ($line_B =~ m/^\s*go\s*$/i);

  }
   $dbh->do($batch) if ($line_B =~ m/^\s*go\s*$/i);
}

    [download]
[reply]
[d/l]

      What about:

      foreach my $filename ( @files ) {
   open ( FILE, "<", $filename )
      or die( "Couldn't open $filename: $!" ); 

   my $batch = "";
   INNER: while ( <FILE> ) {
      $batch .= $_;
      last INNER if eof || m/^\s*go\s*$/i;
   }
   $dbh->do( $batch ) if ( $batch =~ m/^\s*go\s*$/msi );
}

      [download]

      It has the advantage of resetting $batch each time, rather than executing the batch from the first file for every subsequent file.

      And what do you know? This looks an awful lot like ikegami's code in Re^4: ALTER SPROC activation, which was the answer you got the last time you asked this question.

[reply]
[d/l]
[select]
      A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom