Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Remove blank lines from a file

Jan 2, 2000, 12:18 PM
colr
Novice (5 posts)
Jan 2, 2000, 12:18 PM
Post #1 of 2
Views: 2207
Shortcut
Quote Reply
Remove blank lines from a file
Hi

How can I remove any blank lines from a file?
I'd like to do this within a sub in a script.

Cheers


------------------
Col
Jan 2, 2000, 11:10 PM
sumengen
Deleted
Jan 2, 2000, 11:10 PM
Post #2 of 2
Views: 2084
Shortcut
Quote Reply
Re: Remove blank lines from a file In reply to
open(FILE, "file.txt");
@lines=<FILE>;
close(FILE);

open(FILE, ">new_file.txt");
for (@lines){
unless($_ eq "\n"){
print FILE $_;
}
}
close(FILE);

------------------
Turk Scripts
http://turkiyem.com/turkscripts