Better version than under Re: Need Help in processing a file 

use strict; # just kidding
my%hat;my@cat=split/ /,<DATA>;
while(@cat){
  my($cat=>$hat)=splice@cat,0,2;
  $hat{$cat}=$hat>$hat{$cat}?$hat:$hat{$cat};
}
print join" ",%hat; # and that was that
__DATA__
a.txt 4 b.txt 3 z.txt 1 a.txt 5 b.txt 2 b.txt 4 z.txt 2

[download]

Replies are listed 'Best First'.
Re: Seussian Perl
by tobyink (Canon) on Apr 11, 2013 at 09:02 UTC 
    use v5.10;
@hat=split/ /,<DATA>;
while(@hat){
  ($hat=>$littlecat)=splice@hat,0,2;
  $littlecat{$hat}=$littlecat>$littlecat{$hat}?$littlecat:$littlecat{$
+hat};
}
say+join" ",map"$_ $littlecat{$_}",sort{$littlecat{$b}<=>$littlecat{$a
+}}keys%littlecat;
__DATA__
one.fish 1 blue.fish -20 one.fish 0 blue.fish -1 blue.fish 0 fish-red.
+fish ,and one.fish 2

    [download]
    package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
[reply]
[d/l]

      Small proposal: 

      @hat=split/ /,<<THAT;
one.fish 1 blue.fish -20 one.fish 0 blue.fish -1 blue.fish 0 fish-red.
+fish ,and one.fish 2 
THAT

      [download]

      instead of __DATA__ segment. Thanks a lot for adding Seussian data!

[reply]
[d/l]
Re: Seussian Perl
by swedger (Initiate) on Jul 29, 2013 at 12:22 UTC
    I liked it. Very cool and better than i could have done. Peace Billy @ swedger.org TSBMMAR
[reply]

Back to Perl Poetry