Just Another JAPH

use Time::HiRes qw(sleep);
map { print $_ ."\n"; sleep(.05); } split(//, "\112\165\163\164\040\14
+1\156\157\164\150\145\162\040\120\145\162\154\040\110\141\143\153\145
+\162");
[download]

Comment on Just Another JAPH Download Code

Replies are listed 'Best First'.
Re: Just Another JAPH by Taulmarill (Deacon) on Feb 24, 2005 at 14:19 UTC
did you print the \n because of the buffering? i'm only asking 'cause i think it's ugly (it's only an opinion). if you did so, you can turn off buffering by setting $\|. just do `$\| = 1;`.	[reply] [d/l]
Re: Just Another JAPH by Mago (Parson) on Feb 24, 2005 at 15:56 UTC
s/a/A/ `use Time::HiRes qw(sleep); map { print $_ ."\n"; sleep(.05); } split(//, "\112\165\163\164\040\10 +1\156\157\164\150\145\162\040\120\145\162\154\040\110\141\143\153\145 +\162");` [download] Mago mago@rio.pm.org	[reply] [d/l]