Re: Duplicate lines with spaces, tabs...

Replies are listed 'Best First'.
Re^2: Duplicate lines with spaces, tabs... by cdarke (Prior) on Jul 17, 2008 at 13:09 UTC
1. What does "next unless $_;" do? It will do the next iteration of the loop (provided the condition is still true) unless $_ is empty. Could also be written as: `if (not $_) { next }` [download] An empty string, zero, or undef, are all false in Perl.	[reply] [d/l]
Re^2: Duplicate lines with spaces, tabs... by jethro (Monsignor) on Jul 17, 2008 at 13:43 UTC
When I run your code with pjotriks changes I see no blank line at the end of the result file	[reply]
Re^3: Duplicate lines with spaces, tabs... by marto9 (Beadle) on Jul 17, 2008 at 13:56 UTC
Maybe you didn't copy the entire example, including the blank lines. This is my result. `5 6 55 66` [download] Apparantly perlmonks.org doesn't show blank lines. But after '66' I get a new blank line.	[reply] [d/l]
Re^4: Duplicate lines with spaces, tabs... by massa (Hermit) on Jul 17, 2008 at 14:23 UTC
I used: `$ perl -i.bak -lne 's/\A\s+//; s/\s+\Z//; next unless $_ and not $seen +{$_}++; print' input.txt` [download] And I didn't get empty trailing lines... []s, HTH, Massa	[reply] [d/l]
Re^4: Duplicate lines with spaces, tabs... by marto9 (Beadle) on Jul 17, 2008 at 15:51 UTC
Nvm. The problem isn't that big. I wish to thank everyone that helped me. ;)	[reply]