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

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]

Replies are listed 'Best First'.
Re^7: readline() on unopened filehandle
by fishbot_v2 (Chaplain) on Oct 07, 2005 at 15:01 UTC

    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