# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";
######################################################################
#
# 002_miyan2000_2014-03-10_OKWave.t for testing jacode.pl
#
# Copyright (c) 2015 INABA Hitoshi <ina@cpan.org>
#
######################################################################

sub BEGIN {
    eval q<
        use FindBin;
        use lib "$FindBin::Bin/..";
    >;
}
require 'lib/jacode.pl';

print "1..1\n";

if ('¡¡' ne "\xA1\xA1") {
    print "not ok - 1 Script '$0' is not in EUC-JP.\n";
    warn "Script '$0' may be in JIS.\n"    if '¡¡' =~ /!!/;
    warn "Script '$0' may be in SJIS.\n"   if '¡¡' eq "\x81\x40";
    warn "Script '$0' may be in UTF-8.\n"  if '¡¡' eq "\xE3\x80\x80";
    exit;
}

$val = '£°£±£²£³£´£µ£¶£·£¸£¹£Á£Â£Ã£Ä£Å£Æ£Ç£È£É£Ê£Ë£Ì£Í£Î£Ï£Ð£Ñ£Ò£Ó£Ô£Õ£Ö£×£Ø£Ù£Ú£á£â£ã£ä£å£æ£ç£è£é£ê£ë£ì£í£î£ï£ð£ñ£ò£ó£ô£õ£ö£÷£ø£ù£ú¡Ê¡Ë¡²¡÷¡Ý';
#want   0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z ( ) _ @ -

&jcode'tr(*val,'£°-£¹£Á-£Ú£á-£ú ¡Ê¡Ë¡²¡÷¡Ý','0-9A-Za-z ()_@-');

if ($val eq '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz()_@-') {
    print "ok - 1 $^X $0\n";
}
else {
    print "not ok - 1 $^X $0\n";
}

__END__
http://okwave.jp/qa/q8507896.html
OKWave > [µ»½Ñ¼Ô¸þ] ¥³¥ó¥Ô¥å¡¼¥¿¡¼ > ¥×¥í¥°¥é¥ß¥ó¥° > Perl
º¤¤Ã¤Æ¤Þ¤¹ 2014-03-10 15:10:01 ¼ÁÌäNo.8507896 

[£Ñ] jcode.pl¤Î¤«¤ï¤ê

miyan2000 ¤µ¤ó

jcode.pl¤Î
jcode::tr()
¤Î¤«¤ï¤ê¤òõ¤·¤Æ¤¤¤Þ¤¹¡£

jcode.pl¤Î
jcode::tr($val,'£°-£¹£Á-£Ú£á-£ú ¡Ê¡Ë¡²¡÷¡Ý','0-9A-Za-z ()_@-');
¤òPerl5.18.2¤Ç»ÈÍѤ¹¤ë¤È¥¨¥é¡¼¤¬½Ð¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤³¤ì¤ò²óÈò¤·¤¿¤¤¡£

¥×¥í¥°¥é¥à¤¬UTF-8¤Ç¤¢¤ì¤Ð
$val =~ tr/£°-£¹£Á-£Ú£á-£ú ¡Ê¡Ë¡²¡÷¡Ý/0-9A-Za-z ()_@-/;
¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¼Â¸½²Äǽ¤ß¤¿¤¤¤Ç¤¹¤¬¡¢¥×¥í¥°¥é¥à¤ÏEUC¤Ç½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£
±Æ¶ÁÈϰϤ«¤é¥×¥í¥°¥é¥à¤Îʸ»ú¥³¡¼¥É¤ò¤«¤¨¤ë¤³¤È¤Ï¤Ç¤­¤ì¤ÐÈò¤±¤¿¤¤¡£

°ìʸ»ú¤º¤ÄÊÑ´¹¤¹¤ë¤³¤È¤â¹Í¤¨¤Þ¤·¤¿¤¬¡¢¤³¤ÎÊýË¡¤Ç¤Ï¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹¤Ë·üÇ°¤¬¤¢¤ê¤Þ¤¹¡£

jacode.pl¤Ê¤ë¤â¤Î¤â¤¢¤ê¤Þ¤¹¤¬¡¢¤³¤ì¤ËÃÖ¤­´¹¤¨¤ë¤À¤±¤Ç¤Ïʸ»ú²½¤±¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

jcode::tr()¤Î¤«¤ï¤ê¤Ë¤Ê¤ë¤è¤¦¤Ê¼êÃʤϤ¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

[£Á] ina¤Î²óÅú¡ÊÁ´1·ï¡Ë

jacode.pl ¤òÍøÍѤ·¤Æ

¡Ú¸í¡Ûjcode::tr($val,'£°-£¹£Á-£Ú£á-£ú ¡Ê¡Ë¡²¡÷¡Ý','0-9A-Za-z ()_@-');
¡ÚÀµ¡Ûjcode::tr(*val,'£°-£¹£Á-£Ú£á-£ú ¡Ê¡Ë¡²¡÷¡Ý','0-9A-Za-z ()_@-');

¤ÇÆ°ºî¤·¤Þ¤·¤¿¡£

¤Á¤Ê¤ß¤Ë jcode::tr ¤Î¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹¤Ï¡¢jcode.pl/jacode.pl ¤È¤â¤Ë
¤«¤Ê¤êÃÙ¤¤¤Ç¤¹¡£

Perl¤Ë¤è¤ëÆüËܸì½èÍý PerlConference Tokyo '98 1998ǯ11·î11Æü¡¢Åìµþ
ftp://ftp.oreilly.co.jp/pcjp98/utashiro/utashiro.mgp
¤è¤ê°úÍÑ

---------------------------------------------------------
Perl ¤Î tr ´Ø¿ô¤Ï¥Æ¡¼¥Ö¥ë¤ò»²¾È¤·¤ÆÊÑ´¹¤¹¤ë¤Î¤Ç
¶Ë¤á¤Æ¹â®¤À¤¬¡¢jcode::tr ¤Ï¡¢Ï¢ÁÛÇÛÎó¤ò»È¤Ã¤Æ s/../../
¤Î·Á¤ËÊÑ´¹¤¹¤ë¤Î¤Ç¤«¤Ê¤êÃÙ¤¤¤³¤È¤ËÃí°Õ
---------------------------------------------------------