Re^4: Delete Duplicate Entry in a text file

Thank you for your thoughts. My intent was to produce the OP's requested output w/o doing too much to the original code for the sake of a differentiated learning experience.

I tried your suggestions as follows on the OP's data set:

use Modern::Perl;

my $lastrow = "";

open my $fh, '<', 'fail.txt' or die $!;

while (my $line = <$fh>)
{
    next unless $line =~ /\S/;
    
    if ($line ne $lastrow)
    {
        print $line;
        $lastrow = $line;
    }
}

close $fh;
[download]

Output:

hostname1.com
Gateway FAIL
hostname2.com
Gateway FAIL
Gateway FAIL
[download]

Unless I've misunderstood your re-coding suggestions, they do not produce the OP's desired outcome. (Using say instead of print produces the desired line spacing, but the last string is repeated.)

Comment on Re^4: Delete Duplicate Entry in a text file Select or Download Code

Replies are listed 'Best First'.
Re^5: Delete Duplicate Entry in a text file by sauoq (Abbot) on Jun 21, 2012 at 00:23 UTC
Unless I've misunderstood your re-coding suggestions, they do not produce the OP's desired outcome. Firstly, I ran that code and got `hostname1.com Gateway FAIL hostname2.com Gateway FAIL` [download] 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? 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 `print $line, "\n\n";` [download] to `print $line, "\n";` [download] 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; }` [download] `-sauoq "My two cents aren't worth a dime.";`	[reply] [d/l] [select]
Re^6: Delete Duplicate Entry in a text file by Kenosis (Priest) on Jun 21, 2012 at 04:09 UTC
I appreciate your detailed explanation, and hope the OP gets a chance to read your comments. As mentioned, my pedagogical intent was to (slowly) build upon the OP's code. Had I the need, I'd likely do the following: `my $last = ''; do { say if $_ ne $last; $last = $_ } for grep /\S/, <$fh>;` [download] Thank you for the dialog on this issue...	[reply] [d/l]