# **************************************************************************** #
# SJIS -> ASCII文字列変換モジュール 1.00 [2003-07-06 RELEASE]
# copyright(c)2001.2003 WSZK WEB All rights reserved.
# [URL] http://wszk.s8.xrea.com/software.html
# 
# <使用例>
# use Sjis2Asc2;
# $obj = new sjis2asc;
# $str = $obj->conv($str);
# print $str;
# 
# <注意>
# 変換する文字列の漢字コードがSJIS以外の場合はJcode等でコンバートしてから
# 実行してください。
# **************************************************************************** #
package sjis2asc;

sub new {
    my($pkg) = shift;
    my(%conv) = (
    # 数字
    "０",'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',
    # 記号
    "、",'､',  "。",'｡',  "，",',',  "．",'.',  "・",'･',  "：",':',  "；",';',  "？",'?',  "！",'!',  "＾",'^',
    "＿",'_',  "ー",'ｰ',  "／",'/',  "｜",'|',  "’","'",  "”",'"',  "（",'(',  "）",')',  "［",'[',  "］",']',
    "｛",'{',  "｝",'}',  "＋",'+',  "−",'-',  "＝",'=',  "＜",'<',  "＞",'>',  "￥",'\\', "＄",'$',  "％",'%',
    "＃",'#',  "＆",'&',  "＊",'*',  "＠",'@',
    # カタカナ
    "\x83\x40",'ｧ',  "\x83\x41",'ｱ',  "\x83\x42",'ｨ',  "\x83\x43",'ｲ',  "\x83\x44",'ｩ',  "\x83\x45",'ｳ',  "\x83\x46",'ｪ',  "\x83\x47",'ｴ',
    "\x83\x48",'ｫ',  "\x83\x49",'ｵ',  "\x83\x4A",'ｶ',  "\x83\x4B",'ｶﾞ', "\x83\x4C",'ｷ',  "\x83\x4D",'ｷﾞ', "\x83\x4E",'ｸ',  "\x83\x4F",'ｸﾞ',
    "\x83\x50",'ｹ',  "\x83\x51",'ｹﾞ', "\x83\x52",'ｺ',  "\x83\x53",'ｺﾞ', "\x83\x54",'ｻ',  "\x83\x55",'ｻﾞ', "\x83\x56",'ｼ',  "\x83\x57",'ｼﾞ',
    "\x83\x58",'ｽ',  "\x83\x59",'ｽﾞ', "\x83\x5A",'ｾ',  "\x83\x5B",'ｾﾞ', "\x83\x5C",'ｿ',  "\x83\x5D",'ｿﾞ', "\x83\x5E",'ﾀ',  "\x83\x5F",'ﾀﾞ',
    "\x83\x60",'ﾁ',  "\x83\x61",'ﾁﾞ', "\x83\x62",'ｯ',  "\x83\x63",'ﾂ',  "\x83\x64",'ﾂﾞ', "\x83\x65",'ﾃ',  "\x83\x66",'ﾃﾞ', "\x83\x67",'ﾄ',
    "\x83\x68",'ﾄﾞ', "\x83\x69",'ﾅ',  "\x83\x6A",'ﾆ',  "\x83\x6B",'ﾇ',  "\x83\x6C",'ﾈ',  "\x83\x6D",'ﾉ',  "\x83\x6E",'ﾊ',  "\x83\x6F",'ﾊﾞ',
    "\x83\x70",'ﾊﾟ', "\x83\x71",'ﾋ',  "\x83\x72",'ﾋﾞ', "\x83\x73",'ﾋﾟ', "\x83\x74",'ﾌ',  "\x83\x75",'ﾌﾞ', "\x83\x76",'ﾌﾟ', "\x83\x77",'ﾍ',
    "\x83\x78",'ﾍﾞ', "\x83\x79",'ﾍﾟ', "\x83\x7A",'ﾎ',  "\x83\x7B",'ﾎﾞ', "\x83\x7C",'ﾎﾟ', "\x83\x7D",'ﾏ',  "\x83\x7E",'ﾐ',  "\x83\x80",'ﾑ',
    "\x83\x81",'ﾒ',  "\x83\x82",'ﾓ',  "\x83\x83",'ｬ',  "\x83\x84",'ﾔ',  "\x83\x85",'ｭ',  "\x83\x86",'ﾕ',  "\x83\x87",'ｮ',  "\x83\x88",'ﾖ',
    "\x83\x89",'ﾗ',  "\x83\x8A",'ﾘ',  "\x83\x8B",'ﾙ',  "\x83\x8C",'ﾚ',  "\x83\x8D",'ﾛ',                                    "\x83\x8F",'ﾜ',
                                      "\x83\x92",'ｦ',  "\x83\x93",'ﾝ'
    );
    my($hash) = {
        'table' => \%conv
    };
    bless $hash, $pkg;
}

sub conv {
    my($self, $str) = @_;
    my($new) = '';
    my($i) = 0;
    my($len) = length($str);
    while($i < $len) {
        my($c1) = substr($str, $i++, 1);
        my($c2) = substr($str, $i, 1);
        if($c1 =~ /[\x81-\x9F\xE0-\xF7\xFA-\xFC]/) {
            $i++;
            if(${$self->{table}}{"$c1$c2"} ne '') {
                $new .= ${$self->{table}}{"$c1$c2"};
            } else {
                $new .= "$c1$c2";
            }
        } else {
            $new .= $c1;
        }
    }
    return $new;
}
1;