Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Abuse this!
1 view
Skip to first unread message
Peter Makholm
Nov 30, 2011, 9:00:32 AM11/30/11
to f...@perl.org
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 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;
0 new messages