in reply to How can I make a string unique (quicker than my approach at least)

perl -MList::Util=uniq -ple "s((\S+)$){ join '-', sort uniq split /-/,
+ $1 }e"  < 11158635.dat

[download]
  • Comment on Re: How can I make a string unique (quicker than my approach at least)
  • Download Code

In Section Seekers of Perl Wisdom