#!/usr/bin/perl -w use strict;use threads;use Time::HiRes('sleep'); $| = 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($_);}
my $a='62696c6c77667269656e6440676d61696c2e636f6d'; while ($a=~m/(^.{2})/s) {print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}
In reply to Threaded JAPH by K_M_McMahon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |