Mega Code Archive

 

Categories / Perl / String

 

ASCII Character Codes

#!/usr/local/bin/perl for ($i = 0; $i<256; $i++){    if (($i%8)==0){       print "\n";    }    printf "%d %c\t",$i,$i; }