isql -U<login> -i <script_file>
[download]

of course, you could do it in a perl script like so:

update: corrected code

while (my $line = <$FH>) {
  my $batch;

  do {
    $batch .= $line;
    last unless $line = <$FH>;
  } until ($line =~ m/^\s*go\s*$/i);
  $dbh->do($batch) if ($line =~ m/^\s*go\s*$/i);
}
[download]

Your code requires two <FH> in a row to properly exit. You can't rely on that if FH is a device. Maybe you should use last OUTER and label the while loop as OUTER?

yup you're right! thanks! :)

Jason L. Froebe

Team Sybase member

No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1

Well, judging by the code you've posted showing what you've already done . . .

Oh, never mind.