unicode_htmlchart

   1 #!/usr/bin/env perl
   2
   3 # unicode_htmlchart
   4 # File ID: 29d61fce-5d47-11df-9c4e-90e6ba3022ac
   5 # Skriv ut en dunge med Unicode-entities. For browsertest.
   6
   7 use strict;
   8 use warnings;
   9
  10 for ($ARGV[0]..$ARGV[1]) {
  11         $_ % 32 || printf("<br>\n%04X ", $_);
  12         print("&#$_;");
  13 }
  14 print("\n");