> while( <SOCK> ) {
>      push @out, $_;
> }

> Can anyone show me how to regexp the blank lines out
> considering the above code?

Do you mean this?

  while (<SOCK>) {
    push @out, $_ unless /^\s*$/;
  }

Or, what do you really mean by "blank"?

Hope this helps!

Help?  Well, it completely fixed the problem. :)  Thank you very much
everyone.  I will submit this to the interchange list for official
inclusion in Interchange:Link.

- Grant

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to