The stupid question is the question not asked | |
PerlMonks |
Re: on the fly methods [Thanks!]by Ojosh!ro (Beadle) |
on Feb 28, 2007 at 08:55 UTC ( [id://602458]=note: print w/replies, xml ) | Need Help?? |
Thank you brothers.
Firstly, my excuses, I have been unclear. I think however I got enough replies and suggestions to try.
my($s,$b,@c,@b)=qw(0 0 5C 5F 2F 20);while(int($s+.45)<2){$b[0].=chr(hex($c[int($s+.45)]));$b[1].=chr(hex($c[int($s+2.45)]));$s+=.55}while(1){print $b[$b];$b--;$b*=$b}#Fishnets
In Section
Seekers of Perl Wisdom
|
|