in reply to Re^4: Delete Duplicate Entry in a text file
in thread Delete Duplicate Entry in a text file
Unless I've misunderstood your re-coding suggestions, they do not produce the OP's desired outcome.
Firstly, I ran that code and got
which is exactly what I'd expect. The last line was not duplicated. Perhaps you managed to get some whitespace at the end of that line in your input file?hostname1.com Gateway FAIL hostname2.com Gateway FAIL
Secondly, you took out both of the newlines you were printing. Since you are now ignoring the blank lines that are in the input (as I said), you still have to create them on the output. You just don't have to remove the newline from the lines that have non-whitespace characters.
So, to be clear, you should have changed the line
toprint $line, "\n\n";
print $line, "\n";
By the way, these modifications for the blanks are exactly what I was talking about in Re: Delete Duplicate Entry in a text file. To put it together with my code there:
my $last; while (my $line = <$fh>) { next unless $line =~ /\S/; next if defined $last and $line eq $last; print $line, "\n"; $last = $line; }
-sauoq
"My two cents aren't worth a dime.";
"My two cents aren't worth a dime.";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^6: Delete Duplicate Entry in a text file
by Kenosis (Priest) on Jun 21, 2012 at 04:09 UTC |
In Section
Seekers of Perl Wisdom