Unicodeの名前を出力するやつ

Perl 30分プログラム

30分プログラム、その395。Unicodeの名前を出力するやつを作ってみた。
Perlのcharnamesを使うと、簡単に文字コードから文字の名前が取得できるらしい。なので、前から作ってみたかった文字の名前を表示するやつを作ってみた。

$ perl name.pl h
LATIN SMALL LETTER H

これ、Webアプリにしたら意外とおもしろい気がする。

使い方

$ perl name.pl h
LATIN SMALL LETTER H

$ perl name.pl ほげ
HIRAGANA LETTER HO
HIRAGANA LETTER GE

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# name.pl -
#
# Copyright(C) 2008 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2008/10/19 23:00:23
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#

use strict;
use warnings;
use Data::Dumper;
use Encode;
use charnames ':full';

my @chars = split //,Encode::decode('utf8',$ARGV[0]);

for(@chars){
    print charnames::viacode(ord($_)),"\n";
}

参考