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;
-
Abuse this!
by Peter Makholm