String Perl

  1. Home
  2. Perl
  3. String
  4. 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;
}