きのう書いたやつ

xpm2term.pl

#!/usr/bin/env perl

my %bank = ();
my $i = 0;
open (IN, $ARGV[0]) or die "cannot open specified file.";
foreach $line (<IN>) {
    if ($line =~ /^"(..) c (#[A-Z0-9]{6})"/) {
        $bank{$1} = $i;
        print "\e]4;$i;$2\e\\";
        $i++;
    } elsif ($line =~ /\"(.+)",/) {
        foreach $c ($1 =~ /../g) {
            print "\e[48;5;", $bank{$c}, "m  ";
        }
        print "\n";
    }
}
close (IN);

=head1 EXAMPLES

> xpm2term.pl sample.xpm

=head1 AUTHOR

saitoha <<user@zuse.jp>>