(boo) Re: compressed? JAPH

TIMTOWTCAJ. :

#/usr/bin/perl -w
use warnings;
use strict;
$|++;
$_=unpack("B*", pack ("H36","ab5cf4fa1bafd28972fb0972b3ea218eb972"));
while (/(\d{6})/g){print pack ("B*","$[$|$1");}
[download]

update removed /i from match. fingers faster than brain, ha ha :(

update for that matter, this may be less sexy, but hey :)

my @foo = ("just anoth"," perl hack", "");
print join "er",@foo;
[download]

Comment on (boo) Re: compressed? JAPH Select or Download Code

Replies are listed 'Best First'.
Re: (boo) Re: compressed? JAPH by Anonymous Monk on May 19, 2001 at 01:12 UTC
That could be combined with the original Code. To lazy to write it now.	[reply]
Re: (boo) Re: compressed? JAPH by Anonymous Monk on May 19, 2001 at 01:14 UTC
Must be sleepy. Why the i flag in the while?	[reply]
Re: (boo) Re: compressed? JAPH by ChemBoy (Priest) on May 23, 2001 at 18:21 UTC
or, for special-variable points, `$,="er"; print "Just anoth"," p","l hack","";` [download] or `$,=" ";$\="er"; print "Just","anoth"; print "","p"; print "l","hack";` [download] It's debatable that this buys you anything, but I really like $\ :-) If God had meant us to fly, he would never have give us the railroads. --Michael Flanders	[reply] [d/l] [select]
Re: (boo) Re: compressed? JAPH by Anonymous Monk on May 21, 2001 at 15:09 UTC
To your second update: perl has an er too. The original removes it.	[reply]