ascii

   1 #!/usr/bin/env perl
   2
   3 # ascii
   4 # File ID: 1c7b6196-5d37-11df-b1f7-90e6ba3022ac
   5 # Avansert esse
   6
   7 use strict;
   8 use warnings;
   9
  10 binmode(STDOUT, ":utf8");
  11
  12 for (32..255) {
  13         printf("%03u 0x%02x %c\n", $_, $_, $_);
  14 }