in reply to Re^2: Why does 'print shift sort @array' not work?
in thread Why does 'print shift sort @array' not work?

I said "another", not "a more valuable." As for preferable, I think it depends. Consider: 

   print pop @{[sort qw(a f e b)]};
   print (reverse sort qw(a f e b))[0];
   use List::Util qw(maxstr); print maxstr qw(a f e b);

[download]

Replies are listed 'Best First'.
Re^4: Why does 'print shift sort @array' not work?
by ikegami (Patriarch) on Feb 26, 2009 at 20:28 UTC

    pop @{[ sort qw(a f e b) ]}
    (Sort, make an array and a reference to it, dereference it, get the last item.)

    would be

    ( sort qw(a f e b) )[-1]
    (Sort, get the last item.)

    min/minstr/max/maxstr is both shorter, less work, and more straightfoward, but it is not nearly as flexible.

    maxstr qw(a f e b)
    (Get max item.)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom