http://qs321.pair.com?node_id=519580
smokemachine's user image
User since: Dec 28, 2005 at 16:17 UTC (18 years ago)
Last here: Mar 27, 2024 at 01:44 UTC (2 days ago)
Experience: 1492
Level:Hermit (10)
Writeups: 125
CPAN ID:FCO
Location:Rio de Janeiro, Brazil
User's localtime: Mar 28, 2024 at 21:08 -03
Scratchpad: View
For this user:Search nodes
Watch for posts by this user

#!/usr/bin/perl open(AeIoU,$0); $\ = "";#Idiot! while(<AeIoU>){ ;;#enterTheMatr $a[$_=split //, $2]=$1 if/#([^! |^\(])(.*)$/#Ha ;$\=""if 1#,awk }print #'@!.,%# $a[$_] for 0... @a ; # Please!! print;#my Perl! close AeIoU;#Ha $_="" if<D>#ide ;unless(1# perl != 1#Fabula Enc )#reboot now!!! #nadaPodeNosSep {print pack("C* ",qw/97 110 100 111 10/);print}
#!/usr/bin/perl while(<DATA>){s/\s|\n//g; $/.=$_;}while($_=chop$/){ $,.=ord}$\=" "; while( $, =~s/^(\d{2})(\d{2})//){if ($1!=33||$2!=33){$h.= chr abs $1+$2} else{print $h; $h=""}}$\="\n";print #FCO __DATA__ !!4>1492?$%<'!!!664>14((! !2@23C%J*)F#K@!!!.F-F/F%%
#!/usr/bin/perl $c=#home:/home/ $0; #the obscur open(AeIoU,$0); $\ = "";# eioug while(<AeIoU>){ ;#enterTheMatri $a[$_=split //, $2]=$1 if/#([^! |^\(])(.*)$/#Jg #reboot thehost }print #againfg $a[$_] for 0... @a ; #other num print;#nothing. close AeIoU;#JO open(AeIoU,$c); $_=<AeIoU>;#usp chomp ($d=$1) # if /([^\/]+)$/; print " " . $d; ;;print foreach pack("C*",qw/32 104 97 99 107 101 114/);#sfkd print"\n"#tdfsk
open (CRIST ,"<",$ 0);for (<DATA>){chomp;s/^\s*//; $manto.=$_};$manto=~s/\n|^\s+//sg;@ manto=split/[^|]/,$manto;push@crist,(chr scalar(split//) + ((chr 54).(chr 52)))for@manto;my$i;undef$ manto;;;;;while($crist=<CRIST>){;;;;;; chomp;for(split //,$crist){s/[^ \s]/$crist[ $ i %@crist]/x;$i++ ; $ manto.=$_}} print$manto;;;; ;;;;;;;__DATA__ ||||||||||||||| ||| ||||||||||| ||||||||||||||| |||||||||||||| | ||||||||||||| ||||||||||||||| ||||||||||||||| |||| |||||||||||| |||| |||||||||||||

XP chart