Re: delete blank lines in a txt file

[Wookie]

Assuming the blank lines are just carriage returns - the following should work:

#!/usr/bin/perl -w

use strict;

open (IN,"blah.file")||die ("Failed to open file blah.file\n$!");
open (OUT,"blah.file.nospace")||die("Failed to open file blah.file.out
+ for writing\n$!");

my $count=0;

while (<IN>) {
    chomp $_;
    if ($_=~m/^$/g) {
        $count++;
    } else {
        print OUT "$_\n";
    }
}

close IN;
close OUT;

print 'Deleted '."$count".' blank lines'."\n";

exit (0);

If you think you may have white spaces on your empty line - then you can change the line that reads:

if ($_=~m/^$/g) {

to read:

if ($_=~m/^\s*$/g) {

Hope this helps :)

---

game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);