We don't bite newbies here... much | |
PerlMonks |
Re^2: Sending a low-level query using sockets? (A confused newbie)by Ojosh!ro (Beadle) |
on Mar 01, 2007 at 16:24 UTC ( [id://602712]=note: print w/replies, xml ) | Need Help?? |
Whee! Can that be solved by setting the $/ to the correct character?
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
|
|