Do you want something like:

my @responses;

while (1) {
  my $response = <$remote>;

  if ($response eq 'SQLEND') {
    last;
  } else {
    push @responses, $response 
  }
}
[download]

Perl Training in the UK <http://www.iterative-software.com>

push(@data, $response) while(($response = <$remote>) ne 'SQLEND');
[download]

Sorry, but infinite loops do give me the fear(tm) ;o)

broquaint

I used this method excpet I modified it slightly. I changed if ($response eq 'SQLEND') { to if ($response =~ "SQLEND") { That seemes to clear up the infinite loop it produced. I assumed that it was due to a CR-LF at the end and tried cleaning it up with chomp but it didn't help. So in the interest of getting this project wrapped up I just searched for the SQLEND. Thanks for the help!

Just be real sure the string "SQLEND" is never in the returned data...

while ($response=<$remote>){
    #manipulate response here
}
[download]

or if you want it in array form for later processing, something similar to :

while ($foo=<DATA>){chomp $foo;push @ary, $foo};

print "@ary";

__DATA__
foo
bar
baz
quud
quux
[download]

Question : why doesn't 1 while {push @ary,<DATA>} do what's expected?That is, take a line from <DATA> and push it onto @ary. I seem to get stuck in a infinite loop... What behavior of <DATA> am I missing?

eof

Try this:

  perl -le 'print push @foo, undef'

It will return 1, the number of elements successfully pushed onto the array. And undef is what you get when you try to read from an exhausted file handle, hence, your push is always true, at least until you run out of swap space...

--

g r i n d e r

Try this:

$/ = 'SQLEND';
my $response = <$remote>;
[download]

Since you want an array of lines, you'd do well to add the code

my @response_line = split /\n/,$response;
[download]

<pedant>
...up to and including the next appearance of SQLEND
</pedant>

You'll need chomp to remove the SQLEND.

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>