Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Threaded JAPH

by K_M_McMahon (Hermit)
on May 16, 2005 at 21:09 UTC ( [id://457564]=note: print w/replies, xml ) Need Help??


in reply to Threaded JAPH

Just found out that this doesn't run properly on a Mac run OS X 10.3.9 (running perl 5.8.1 with ithreads support). To make it run properly Remove the Hi-Res part. It runs slower, but at least it works! Anyone else have problems with it printing out of order (and on what OS/Perl version)? 
#!/usr/bin/perl -w
use strict;use threads;
$| = 1;my @j=('creaJ','klrnu','e  os','rHPtt','!aeh ');
my (%d);foreach (@j){$d{$_}=threads->create('x',$_);}foreach (@j){my
$x=$d{$_}->join();}sub x{my $i=shift;my $t;while($t=substr($i,-1,1)){
print $t;chop($i);sleep(1);}return($_);}

[download]


-Kevin 
my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}

[download]

In Section Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://457564]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2024-04-18 12:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found