Timothy,
Thank you very much for the quick reply! It works great!!!! :-)
Brian
Timothy Johnson wrote:
>Try this:
>
>open(INFILE,"myfile.txt");
>open(OUTFILE,"SSlines.txt");
>while(<INFILE>){
> unless($_ eq "\n"){ #blank lines probably have only a \n
> print OUTFILE $_;
> }
>}
>
>-----Original Message-----
>From: Brian Volk [mailto:[EMAIL PROTECTED]]
>Sent: Tuesday, March 26, 2002 1:48 PM
>To: [EMAIL PROTECTED]
>Subject: delete blank lines from a file?
>
>
>Hi All,
>
>I'm new to perl, so this may seem really basic, so any hints or
>directions to help files would be greatly appreciated. :-)
>
>I written a script that fetches a file from my web server (LWP::Simple
>and Net::FTP::Common both work) and loads it into mysql. (DBI) That
>part works great! The problem I'm having is the file in loading into
>mysql is double spaced. How can I go about deleting the blank lines
>before I load it into mysql?
>
>Thanks!
>
>Brian
>[EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
