> 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/