On 01/10/2007 01:35 AM, beast wrote:
[...]
It will only remove duplicate key.
Is this still acceptable in perl (its very ugly =(
[...]
This would remove duplicate lines:
use List::MoreUtils qw(uniq);
use File::Slurp;
my @list = uniq read_file 'rm_dup_lines.txt';
print $_ for @list;
I'm a little confused on what you're trying to do, because you split on
commas even though your data has no commas in it. Oh well, that code
above removes duplicate lines.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
