Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
use charnames qw(cyrilic greek);
print "\N{Sigma} and \N{Sigma} are Greek sigmas.\n";
print "\N{BE} and \N{be} are Cyrilic bes.\n";

#!/usr/bin/perl
use strict;
use warnings;
...
use charnames qw(cyrilic greek);
print "\N{Sigma} and \N{Sigma} are Greek sigmas.\n";
print "\N{BE} and \N{be} are Cyrilic bes.\n";

#!/usr/bin/perl
use strict;
use warnings;
...
$code = charnames::vianame($name);
printf "%s is character U+%04X (%s)\n",
    $name, $code, chr($code);

#!/usr/bin/perl
use strict;
use warnings;
...


#pagina 17

#!/usr/bin/perl
use strict;
...
#pagina 18
print "unique chars are: ", sort(keys %seen), "\n";