Re: Amazing Perl 6

[Larry Wall]

On Fri, May 29, 2009 at 05:50:57PM -0500, John M. Dlugosz wrote:
> Copy and paste it from the message into a word processor or other  
> program that lets you choose a font where it is not missing and make it  
> very large so you can see the details.
>
> Or see <http://www.marco.org/83873337> for a large graphic in several fonts.

Or feed it as an argument to this program, whereupon it will tell you
directly which character it is.

Larry

#!/usr/bin/perl -C

binmode STDOUT, ":utf8";
$pat = "@ARGV";
if (ord $pat > 256) {
    $pat = sprintf("%04x", ord $pat);
    print "That's $pat...\n";
    $pat = '\b' . $pat . '\b';
}
elsif (ord $pat > 128) {        # arg in sneaky UTF-8
    $pat = sprintf("%04x", unpack("U0U",$pat));
    print "That's $pat...\n";
    $pat = '\b' . $pat . '\b';
}

@names = split /^/, do 'unicore/Name.pl';
for my $line (@names) {
    $hex = hex($line);
    $_ = chr($hex)."\t".$line;
    if (/$pat/io) {
        print ' ' if /COMBINING/;
        print;
    }
}