When I grow up, I'll be a Perl Programmer! - Programming @ 4-ch Archives

When I grow up, I'll be a Perl Programmer! (78)

16 Name: #!/usr/bin/anonymous : 2006-04-18 23:25 ID:cicY/fQj [Del]

$_="P;=N?;MA:LB:M\@;N><HA?3RC4RBFB\@EE>C?5CB>9A?>K;CJ7HI4?69J3<:9J39<9K39<9K3::;J49;?E59<AA59A>?76G8\@";$o='.';
s/(.)/for($i=0;$i<ord($1)-50;$i++){print$o;$l++;}if($o eq'.'){$o='x'}else{$o='.'}if($l>=50){print"\n"; $l=0;$o='.'}/ge;

O RLY ?

	Return Entire thread Last 50 posts
	This thread has been closed. You cannot post in this thread any longer.