emoji.pl

#! /usr/bin/perl

##
## Convert EmojiSources.txt to UTF-8 text
##

use strict;
use warnings;

binmode STDOUT, ':utf8';

my $column = 0;
while (<>) {
    chomp;
    if ( /^\043/ || /^\s*$/ ) {
        next;
    }
    my ( $unicode_sequence, $docomo, $kddi, $sb ) = split /;/;
    foreach my $code ( split /\s/, $unicode_sequence ) {
        my $char = chr( hex($code) );
        print $char;
    }
    $column++;
    if ( $column >= 32 ) {
        print "\n";
        $column = 0;
    }
}
print "\n";