Re: [FWP] You have no chance to survive make your time

[Jeff Pinyan <jeffp@crusoe.net>]

On Feb 23, Simon Cozens said:

>On Thu, Feb 22, 2001 at 04:52:20PM -0500, Jeff Pinyan wrote:
>> $SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdEeSFeN.
>> eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_},"\n";
>
> % perl
> $SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdEeSFeN.
> eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_},"\n";
>
> %
>
>Is this golf? If so, I offer
>
> % perl -e1

It doesn't run in 5.6.0 and up, because the eval error isn't caught by
$SIG{__WARN__}.  Try splitting $@ instead of $_.

-- 
Jeff "japhy" Pinyan     japhy@pobox.com    http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource  (my id:  PINYAN)       http://search.cpan.org/
PerlMonks - An Online Perl Community          http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc.   http://www.perlarchive.com/


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe