develooper Front page | perl.fwp | Postings from November 2011

Abuse this!

From:
Peter Makholm
Date:
November 30, 2011 06:05
Subject:
Abuse this!
Message ID:
871uspd81r.fsf@vps1.hacking.dk
It is kind of obvious when you unfold the loop, but what is the best
abuse of this very deprecated perl feature?

//Makholm

#!/usr/bin/perl
                $japh = pack "C*", 113, 123, 32 .. 122, 125;
$_ = q(49 6 8 7 91 26 13 12 7 19 22 9 91 43 22 9 15 91 19 26 24 16 22 9 79);
s/ (\d+) \s* /"\x24[=$1; print substr($japh, length($japh), !!$japh)"/eegox;




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About