NAME
jacode.pl - Perl library for Japanese character code conversion
vñ
gpû@
require 'jacode.pl';
pbP[W¼Í jacode Åà jcode ÅàÇ¿çÅàpÅ«Ü·B
jacode::convert(\$line, $OUTPUT_encoding [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::xxx2yyy(\$line [, $option])
jacode::to($OUTPUT_encoding, $line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::jis($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::euc($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::sjis($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::utf8($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::jis_inout($JIS_Kanji_IN, $ASCII_IN)
jacode::get_inout($line)
jacode::cache()
jacode::nocache()
jacode::flushcache()
jacode::flush()
jacode::h2z_xxx(\$line)
jacode::z2h_xxx(\$line)
jacode::getcode(\$line)
jacode::getcode2(\$line [, $encoding_suggestion])
jacode::tr(\$line, $from, $to [, $option])
jacode::trans($line, $from, $to [, $option])
jacode::init()
$jacode::convf{'xxx', 'yyy'}
$jacode::z2hf{'xxx'}
$jacode::h2zf{'xxx'}
Tv
±Ì "jacode.pl" Í»û®ÌÏ·ðs¤½ßÌ\tgEFAÅ·BÌãa³³ñ Ìì¬³ê½ "jcode.pl" ¨æÑ "pkf" ðàÆɵÄìçêĨèA»êçÌ\tg EFA©çX[YÉÚsÅ«éæ¤l¶³êĢܷB
Perl CuƵÄp·éÆ "jcode.pl" Ìæ¤ÉAR}hCvO ƵÄp·éÆ "pkf" Ìæ¤É@\µÜ·BR}hCIvVÌà¾Í ½àIvVð¯¸ÉÀs·é±ÆÅQÆÅ«Ü·B
±Ì jacode.pl PÌÅ JISAVtgJISAEUC-JPAUTF-8 𵤱ƪūAEncode W [ªpÅ«é«ŠêÎ jacode.pl ª Encode W [ðÄÑo·± ÆÉæèA³Ü´ÜÈ»û®ÌÏ·ðs¤±ÆªÅ«Ü·B
ȨA»ÌêÅà jcode.pl ÌC^tF[Xðg¤±ÆªÅ«éÌÅAÈ¢JÍ Å jacode.pl ɱüEÚs·é±ÆªÅ«Ü·B
åÈÁ¥
- jcode.pl ãÊÝ·Ì@\EvO~OC^tF[X
- pkf R}hãÊÝ·Ì@\Egpû@
- Perl4 XNvgÅà èAPerl5 XNvgÅà é
- Encode::from_to Ìbp[ƵÄ@\·é
- «ÉnÁÄpÂ\È\tgEFA
- ¼pJ^JiðT|[g
UTF-8 ©ç cp932 ÖÌÏ·ÍȺÌe[uðp·é
http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT http://support.microsoft.com/kb/170559/ja (JIS X 0221:2007 BASIC JAPANESE and COMMON JAPANESE)
±Ì\tgEFAÉæÁÄ UTF8 tOÍBÁ³êé
- C^tF[XàÀû@àIuWFNgwüðpµÄ¢È¢
- `IÈvO~OZ@ðpµ±¯é±ÆªÅ«é
üèû@
¼ï2016N2Ì_ÅÍAÈºÌ URL É jacode.pl ª èÜ·B
http://search.cpan.org/dist/jacode/
t@C "jacode.pl" ð¼Ú_E[hµ½êÍAt@Cª POD ÌI ¹Å éu=cutvÅIíÁÄ¢é±ÆðmFµÄ¾³¢Bu=cutvÅIíÁ ĢȢêÍ»Ìt@CÍ®SÅÍÈA³íÉ®ìµÜ¹ñB
CXg[û@
t@C̼Oð "jacode.pl" ƵÄAPerl ÌÁêÏ @INC ÉÜÜêé¢ ¸ê©ÌtHÉi[µÜ·BDZÉu¯Î梩ÀÁ½êAAvP[ VvOƯ¶tHÉzu·éÆæ¢Åµå¤B
˶µÄ¢é\tgEFA
±Ì\tgEFAÍ perl 4.036 àµÍ»êÈ~Ì perl ÅÀsÅ«Ü·B
Tu[`ÌÄÑoµû@
jacode.pl àÌTu[`Í jacode pbP[WÉÜÜêĢܷBܽ jcode.pl ÆÌÝ·«ðmÛ·éÚIÅ jcode pbP[WÉàÜÜêĨèA Ç¿çÌpbP[W¼ÅàpÅ«éæ¤ÉÈÁĢܷBȺÌà¾ÅÍ pbP[W¼ð jacode ƵĢܷB
gpµÄ¢é perl C^v^ª Perl5 Ìê
Tu[`¼ÌOÉ jacode:: ðtÁµÜ·Bá¦Î convert() ÌêÍ
jacode::convert(...);
Ìæ¤ÉµÄÄÑoµÜ·B
jcode.pl ÆÌÝ·«ðl¶·éKvª éê
jcode.pl ðpµÄ쬳ê½vOðÛç·éAÈÇÌÚIÅ jcode.pl ÌC^tF[Xðpµ½¢êAȺÌæ¤É jcode pbP[WÅTu[ `ðp·é±ÆªÅ«Ü·B
&jcode'convert(...);
Tu[`
jacode::convert
CÓÌ»û®ÉÏ··é
®
jacode::convert(\$line, $OUTPUT_encoding [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
ø \$line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µA»Ìt@XðøɵܷB zñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü ·B±Ìt@XÉæéC^tF[XÍàIɳpÈRs[ðìçÈ¢±Æ ðÚIƵĢܷBTu[`ÀsãA$line ÌàeÍ«·íèÜ·B
ø $OUTPUT_encoding
Ï·ãÌ»û®ðwèµÜ·B ±Ì\tgEFAPÌÅÏ·Å«é»û®ÍȺÌƨèÅ·B
- 'jis' JISR[h
- 'sjis' VtgJISR[h
- 'euc' EUC-JP R[h
- 'utf8' UTF-8 R[h
- 'noconv' Ï·ðs¢½È¢ê
ãLÈOÌ»û®ðwèµ½êÍAEncode W [ªpÅ«é«Šê Î Encode::from_to() ªÄÑo³êÜ·B
ø $INPUT_encoding
Ï·OÌ»û®ðwèµÜ·B±ÌøÍ jcode.pl ÆÝ·«ðÛ½ßÉȪ \ÆÈÁĢܷªA¢ÜâȪ·é׫ÅÍ èܹñBȪÉÍ jacode::getcode() ªàÅÄÑo³êAÏ·OÌ»û®ªª³êÜ·B±Ì ªÍÔá¦éêª èÜ·B
±Ì\tgEFAPÌÅÏ·Å«é»û®ÍȺÌƨèÅ·B
- 'jis' JISR[h
- 'sjis' VtgJISR[h
- 'euc' EUC-JP R[h
- 'utf8' UTF-8 R[h
ãLÈOÌ»û®ðwèµ½êÍAEncode W [ªpÅ«é«Šê Î Encode::from_to() ªÄÑo³êÜ·B
ø $option
¼pJ^JiÌÏ·ÌIvVðwèµÜ·B±ÌøÍȪÂ\Å·B
- 'z' $line ÉÜÜêé¼pJ^JiðSpJ^JiÉÏ·µÜ·(zenkaku)B
- 'h' $line ÉÜÜêéSpJ^Jið¼pJ^JiÉÏ·µÜ·(hankaku)B
@\
¶ñðwèµ½»û®ÉÏ··é
±ÌÖÍ $line Éi[³êÄ¢é¶ñð $OUTPUT_encoding Åwèµ½»û® ÉÏ·µÜ·B
ßèl(XJ[ReLXgÌê)
$line ÌÏ·ãÌ»û®ðԵܷB
ßèl(XgReLXgÌê)
- æ1vf Ï·Tu[`ÖÌt@X
- æ2vf $line ÌÏ·ãÌ»û®
â«à¾
±ÌTu[`ªì¬³ê½AÍñíÉMd¾Á½½ßAÏ·OÌ ÆÏ·ãÌͯêÌÌæðpµÄ¢Ü·BÏ·ªIíéÆÏ·O̶ ñÍÈÈèÜ·BܽϷOÌ»û®Í©®»èðs¦éæ¤ÉÈÁÄ¢é ½ßAȪÂ\Èæ¤É쬳êĨèA»Ì½ßø̪A
$OUTPUT_encoding ÌÉ $INPUT_encoding
ÆÈÁĢܷB
jacode::xxx2yyy
»û® xxx ©ç »û® yyy ÉÏ··é
®
xxx ¨æÑ yyy ÉÍ jis, euc, sjis, utf8 ̤¿¢¸ê©ªüèASÅÈºÌ 16 ÌTu[`ª èÜ·B
jacode::euc2euc(\$line [, $option])
jacode::euc2jis(\$line [, $option])
jacode::euc2sjis(\$line [, $option])
jacode::jis2jis(\$line [, $option])
jacode::jis2euc(\$line [, $option])
jacode::jis2sjis(\$line [, $option])
jacode::sjis2sjis(\$line [, $option])
jacode::sjis2euc(\$line [, $option])
jacode::sjis2jis(\$line [, $option])
jacode::utf82utf8(\$line [, $option])
jacode::utf82jis(\$line [, $option])
jacode::utf82euc(\$line [, $option])
jacode::utf82sjis(\$line [, $option])
jacode::jis2utf8(\$line [, $option])
jacode::euc2utf8(\$line [, $option])
jacode::sjis2utf8(\$line [, $option])
ø \$line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µA»Ìt@XðøɵܷB zñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü·B Tu[`ÀsãA$line ÌàeÍ«·íèÜ·B
ø $option
¼pJ^JiÌÏ·ÌIvVðwèµÜ·B±ÌøÍȪÂ\Å·B
- 'z' $line ÉÜÜêé¼pJ^JiðSpJ^JiÉÏ·µÜ·(zenkaku)B
- 'h' $line ÉÜÜêéSpJ^Jið¼pJ^JiÉÏ·µÜ·(hankaku)B
@\
$line Éi[³êÄ¢éA»û® xxx ̶ñð»û® yyy ÉÏ·µÜ·B ±ÌTu[`ÌÄÑoµÉæÁÄÏ $line Ìàeª«·íèÜ·B
ßèl
ßÌÀɨ¢ÄÍAϷɬ÷µ½¨¨æ»Ì¶ðÔ·AƵĢ½±Æà èܵ½B»ÌêA½àÏ·Å«È¢êÍ 0 ªÔèÜ·BȨA¿ÉæÁÄÍ ¶ÅÍÈoCgðÔ·AÆLq³êĢܷB
jacode::to
»û®Ï·ã̶ñðÔ·
®
jacode::to($OUTPUT_encoding, $line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
ø $OUTPUT_encoding
Ï·ãÌ»û®ðwèµÜ·B
ø $line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µÜ·B
ø $INPUT_encoding
Ï·OÌ»û®ðwèµÜ·B±ÌøÍ jcode.pl ÆÝ·«ðÛ½ßÉȪ \ÆÈÁĢܷªA¢ÜâȪ·é׫ÅÍ èܹñBȪÉÍ jacode::getcode() ªàÅÄÑo³êAÏ·OÌ»û®ªª³êÜ·B±Ì ªÍÔá¦éêª èÜ·B
±Ì\tgEFAPÌÅÏ·Å«é»û®ÍȺÌƨèÅ·B
- 'jis' JISR[h
- 'sjis' VtgJISR[h
- 'euc' EUC-JP R[h
- 'utf8' UTF-8 R[h
ãLÈOÌ»û®ðwèµ½êÍAEncode W [ªpÅ«é«Šê Î Encode::from_to() ªÄÑo³êÜ·B
ø $option
¼pJ^JiÌÏ·ÌIvVðwèµÜ·B±ÌøÍȪÂ\Å·B
- 'z' $line ÉÜÜêé¼pJ^JiðSpJ^JiÉÏ·µÜ·(zenkaku)B
- 'h' $line ÉÜÜêéSpJ^Jið¼pJ^JiÉÏ·µÜ·(hankaku)B
@\
$line Åwèµ½¶ñð $OUTPUT_encoding Åwèµ½»û®ÉÏ·µÄ﵆ ·B
Tu[`ÀsãA$line ÌàeÍÏ»µÜ¹ñB
ßèl
»û®Ï·ã̶ñÅ·B
â«à¾
±êçÌÖÍA call/return-by-value C^[tF[XƵÄÈPÉg¦Ü·B á¦Î s///e ZqÅp¢é±ÆªÅ«Ü·B
jacode::xxx
»û®ð xxx ÉÏ··é
®
xxx ÉÍ jis, euc, sjis, utf8 ̤¿¢¸ê©ªüèÜ·B
jacode::jis($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::euc($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::sjis($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
jacode::utf8($line [, $INPUT_encoding [, $option [, $INPUT_encoding_suggestion]]])
ø $line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µÜ·B
ø $INPUT_encoding
Ï·OÌ»û®ðwèµÜ·B±ÌøÍ jcode.pl ÆÝ·«ðÛ½ßÉȪ \ÆÈÁĢܷªA¢ÜâȪ·é׫ÅÍ èܹñBȪÉÍ jacode::getcode() ªàÅÄÑo³êAÏ·OÌ»û®ªª³êÜ·B±Ì ªÍÔá¦éêª èÜ·B
±Ì\tgEFAPÌÅÏ·Å«é»û®ÍȺÌƨèÅ·B
- 'jis' JISR[h
- 'sjis' VtgJISR[h
- 'euc' EUC-JP R[h
- 'utf8' UTF-8 R[h
ãLÈOÌ»û®ðwèµ½êÍAEncode W [ªpÅ«é«Šê Î Encode::from_to() ªÄÑo³êÜ·B
ø $option
¼pJ^JiÌÏ·ÌIvVðwèµÜ·B±ÌøÍȪÂ\Å·B
- 'z' $line ÉÜÜêé¼pJ^JiðSpJ^JiÉÏ·µÜ·(zenkaku)B
- 'h' $line ÉÜÜêéSpJ^Jið¼pJ^JiÉÏ·µÜ·(hankaku)B
@\
$line Åwèµ½¶ñðA»û® $INPUT_encoding ©çTu[`¼Åwè ³êé»û®ÉÏ·µA»Ì¶ñðԵܷB
Tu[`ÀsãA$line ÌàeÍÏ»µÜ¹ñB
ßèl
Ï·ã̶ñðԵܷB
jacode::jis_inout
®
jacode::jis_inout($JIS_Kanji_IN, $ASCII_IN)
GXP[vV[PXÌÏX
ø $JIS_Kanji_IN
2oCg¶ÖÌGXP[vV[PXðwèµÜ·B
ø $ASCII_IN
1oCg¶ÖÌGXP[vV[PXðwèµÜ·B
@\
jacode::jis_inout() ÍAJIS R[hÅp¢éGXP[vV[PXðÏXµAÏX ãÌlðԵܷB$JIS_Kanji_IN ÉÍA2oCg¶ÖÌGXP[vV[PXðA $ASCII_IN ÉÍAPoCg¶ÖÌGXP[vV[PXðwèµÜ·Bjacode.pl Í ftHgÅÍA$JIS_Kanji_IN ÉÍ JIS X 0208-1983(VJIS83)ÌJn𦷠"1Bh 24h 42h" Ì 3 oCgªA$ASCII_IN ÉÍ ASCII ¶ÌJn𦷠"1Bh 28h 42h" Ì 3 oCgª»ê¼êw¦³ê½óÔÆÈÁĢܷB jacode::jis_inout() ÍKvɶıêçðÏXÅ«Ü·B
ȨAøÍȪ`Ì 1 oCgÅwè·é±ÆàÅ«Ü·B
- ESC-$-@ JIS C 6226-1978 Ìê(Ȫ`Íu@v)
- ESC-$-B JIS X 0208-1983 Ìê(Ȫ`ÍuBv)
- ESC-&-@-ESC-$-B JIS X 0208-1990 Ìê(Ȫ`Íu&v)
- ESC-$-(-O JIS X 0213:2000 æêÊÌê(Ȫ`ÍuO(I[)v)
- ESC-$-(-Q JIS X 0213:2004 æêÊÌê(Ȫ`ÍuQv)
ßèl
ÏXãÌGXP[vV[PXÌXg ($JIS_Kanji_IN, $ASCII_IN) ðԵܷB
jacode::get_inout
JIS »¶ñ©çAGXP[vV[PXðæ¾·é
®
jacode::get_inout($line)
ø $line
GXP[vV[PXð²×½¢¶ñðXJ[Ï $line Éi[µÜ·B
@\
$line ©çA»Ý jacode::jis_inout() ÉæÁÄÝè³êÄ¢éGXP[vV[P XÌoCgñðTµÄA©Â©êλÌGXP[vV[PXðÔµA©Â©çȯê Î undef ðԵܷB
ßèl
jacode::jis_inout() ƯlÉA($JIS_Kanji_IN, $ASCII_IN) Ì`®Å·B
- ESC-$-@ JIS C 6226-1978 Ìê
- ESC-$-B JIS X 0208-1983 Ìê
- ESC-&-@-ESC-$-B JIS X 0208-1990 Ìê
- ESC-$-(-O JIS X 0213:2000 æêÊÌê
- ESC-$-(-Q JIS X 0213:2004 æêÊÌê
jacode::h2z_xxx
¼pJ^JiðSpJ^JiÉÏ·
®
xxx ÉÍ jis, euc, sjis, utf8 ̤¿¢¸ê©ªüèÜ·B
jacode::h2z_jis(\$line)
jacode::h2z_euc(\$line)
jacode::h2z_sjis(\$line)
jacode::h2z_utf8(\$line)
ø \$line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µA»Ìt@XðøɵܷB zñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü·B Tu[`ÀsãA$line ÌàeÍ«·íèÜ·B
@\
$line Åwèµ½¶ñÉÜÜêé¼pJ^JiðSpJ^JiÉÏ·µÜ·B xxx ÉÍ»û®ÆµÄ jis, euc, sjis, utf8 Ì¢¸ê©ªüèÜ·B ±ÌTu[`ÀsãA$line Ìàeª«ÏíèÜ·B
ßèl
ßÌÀɨ¢ÄÍAϷɬ÷µ½¨¨æ»Ì¶ðÔ·AƵĢ½±Æà èܵ½B»ÌêA½àÏ·Å«È¢êÍ 0 ªÔèÜ·B
jacode::z2h_xxx
SpJ^Jið¼pJ^JiÉÏ·
®
xxx ÉÍ jis, euc, sjis, utf8 ̤¿¢¸ê©ªüèÜ·B
jacode::z2h_jis(\$line)
jacode::z2h_euc(\$line)
jacode::z2h_sjis(\$line)
jacode::z2h_utf8(\$line)
ø \$line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µA»Ìt@XðøɵܷB zñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü·B Tu[`ÀsãA$line ÌàeÍ«·íèÜ·B
@\
$line Åwèµ½¶ñÉÜÜêéSpJ^Jið¼pJ^JiÉÏ·µÜ·B xxx ÉÍ»û®ÆµÄ jis, euc, sjis, utf8 Ì¢¸ê©ªüèÜ·B ±ÌTu[`ÀsãA$line Ìàeª«ÏíèÜ·B
ßèl
ßÌÀɨ¢ÄÍAϷɬ÷µ½¨¨æ»Ì¶ðÔ·AƵĢ½±Æà èܵ½B»ÌêA½àÏ·Å«È¢êÍ 0 ªÔèÜ·B
jacode::getcode
¶ñÌ»û®ðªµÄÔ·
®
jacode::getcode(\$line)
»û®ð²×é
ø \$line
»û®ð²×½¢¶ñðXJ[Ï $line Éi[µA»Ìt@Xðø ɵܷBzñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±Æ àÅ«Ü·B
@\
±ÌTu[`ÍA$line Å^¦ç꽶ñÌ»û®ðªµÄԵܷB
ßèl(XJ[ReLXgÌê)
Ⱥ̤¿ÐƪÔèÜ·B
- 'jis' $line Í JIS ƪ³êé
- 'sjis' $line Í VtgJIS ƪ³êé
- 'euc' $line Í EUC-JP ƪ³êé
- 'utf8' $line Í UTF-8 ƪ³êé
- 'binary' $line Íñ¶ðÜÞ
- undef ãLÌ¢¸êÅàÈ¢
ßèl(XgReLXgÌê)
ȺÌ2ÂÌlªßèlÉÈèÜ·B
- æ1Ìvf
øƵÄ^¦ç꽶ñA±ÌTu[`ª»fµ½»û®ÉYµ½ oCg(u¶vƩ꽿à¶Ý·éªAoCgª³µ¢)
- æ2Ìvf
±ÌTu[`ª»fµ½»û®
á
```
.........1...
1234567890123 ©oCg
$line = ' ¢ABC¤¦¨'; # $line Í EUC-JP R[hÆ·éB $code = jacode::getcode(\$line); # $code ÉÍA"euc" ª¾çêéB @code = jacode::getcode(\$line); # @code ÉÍA(13, "euc") ª¾çêéB ```
±ÌTu[`ͼpJ^JiA¨æÑ»êÉ·éªo»µ½êÅàæè ±ÆÍÈA»èÌÎÛƵܷB
jacode.pl Í jcode.pl ÆÍÙÈèAUTF-8 ðT|[gµÄ¢é½ßÉ jacode::getcode() Ìßèl̳m«ÍáÈÁĢܷB »Ì½ßA±ÌTu[`ÌpÍàÍ⧳êĢܹñB
jacode::getcode2
¶ñÌ»û®ðªµÄÔ·
®
jacode::getcode2(\$line [, $encoding_suggestion])
»û®ð²×é
ø \$line
»û®ð²×½¢¶ñðXJ[Ï $line Éi[µA»Ìt@Xðø ɵܷBzñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±Æ àÅ«Ü·B
@\
±ÌTu[`ÍA$line Å^¦ç꽶ñÌ»û®ðªµÄԵܷB
ßèl(XJ[ReLXgÌê)
Ⱥ̤¿ÐƪÔèÜ·B
- 'jis' $line Í JIS ƪ³êé
- 'sjis' $line Í VtgJIS ƪ³êé
- 'euc' $line Í EUC-JP ƪ³êé
- 'utf8' $line Í UTF-8 ƪ³êé
- 'binary' $line Íñ¶ðÜÞ
- undef ãLÌ¢¸êÅàÈ¢
ßèl(XgReLXgÌê)
ȺÌ2ÂÌlªßèlÉÈèÜ·B
- æ1Ìvf
øƵÄ^¦ç꽶ñA±ÌTu[`ª»fµ½»û®ÉYµ½ oCg(u¶vƩ꽿à¶Ý·éªAoCgª³µ¢)
- æ2Ìvf
±ÌTu[`ª»fµ½»û®
á
```
.........1...
1234567890123 ©oCg
$line = ' ¢ABC¤¦¨'; # $line Í EUC-JP R[hÆ·éB $code = jacode::getcode2(\$line); # $code ÉÍA"euc" ª¾çêéB @code = jacode::getcode2(\$line); # @code ÉÍA(13, "euc") ª¾çêéB ```
±ÌTu[`ͼpJ^JiA¨æÑ»êÉ·éªo»µ½êÅàæè ±ÆÍÈA»èÌÎÛƵܷB
jacode.pl Í jcode.pl ÆÍÙÈèAUTF-8 ðT|[gµÄ¢é½ßÉ jacode::getcode2() Ìßèl̳m«ÍáÈÁĢܷB »Ì½ßA±ÌTu[`ÌpÍàÍ⧳êĢܹñB
jacode::cache
LbV ðJn
®
jacode::cache()
ø
èܹñB
@\
jacode.pl ÍAZÉæÁÄ»û®ÌÏ·ðs¤êª èÜ·BêxvZµ½ ÊÍnbV ÉÛ¶³êA¯¶¶ªo»µ½êÉÄp³êÜ·BÊíÍ»Ì @\ª ON ÉÈÁÄ¢éÌÅAON/OFF ðØè֦ȢÌÅ êÎÓ¯·éKvÍ èܹñB
ßèl
jacode::cache() ªÄÑo³êéOÌLbV Ì ON/OFF ÌóÔðԵܷB
jacode::nocache
LbV Ìâ~
®
jacode::nocache()
ø
èܹñB
@\
jacode.pl ªp¢éLbV ðâ~µÜ·B
ßèl
jacode::nocache() ªÄÑo³êéOÌLbV Ì ON/OFF ÌóÔðԵܷB
jacode::flushcache
LbV ÌÁ
®
jacode::flushcache()
ø
èܹñB
@\
jacode.pl ÌLbV ÉÛ¶³êÄ¢éàeðÁµÜ·B
ßèl
èܹñB
jacode::flush
LbV ÌÁ
®
jacode::flush()
ø
èܹñB
@\
àÅTu[ jacode::flushcache() ðÄÑoµÜ·B±ÌTu[ÍÃ
¢hL
gÌëèð~¤ÚIŶݵĢܷB
ßèl
èܹñB
jacode::tr
perl Ì tr/// ZqÌ@\ðÍí
®
jacode::tr(\$line, $from, $to [,$option])
ø \$line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µA»Ìt@XðøɵܷB zñÌvfÌt@XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü·B Tu[`ÀsãA$line ÌàeÍ«·íèÜ·B
ø $from
Ï·µ½¢Ï·O̶ðÀ×ÄLqµÜ·B
ø $to
ø $from ÌÉÏ·µ½¢Ï·ã̶ðÀ×ÄLqµÜ·B
ø $option
'd' ðwèµ½êÍ tr///d Ì@\ðÍíµÜ·B
@\
±ÌTu[`Í Perl Ì tr/// ZqÌ@\ðÍíµÜ·B jcode.pl ¨æÑ jacode.pl Í»û®ÌÏ·ðÚIƵ½CuÈÌÅ tr/// ÌÍíÍ@\IÉ\ªÅÍ èܹñB
$line ̶ñÉ $from ÉÜÜêĢ鶪 êÎA$to Ìηé¶Éu« ·¦Ü·B$line, $from, $to Ì»û®Íêv³¹éKvª èAJIS Ü½Í EUC-JP ÌݪpÅ«Ü·BȨAJIS X 0212(ÊÌAâ¿)͵¤±ÆªÅ«Ü ¹ñB
àµVtg JIS é¢Í UTF-8 ÌêÍAjacode::convert() ÉæÁÄ»û®ð EUC-JP Ü½Í JIS ÉÏ·µA»Ìã jacode::tr() ÌÀsðs¢A³çÉ»Ìã jacode::convert() ÉæÁij̻û®Éß·Kvª èÜ·B
$fromA¨æÑ $to ÉÍ "a-z" Ìæ¤ÉÍÍðwè·é±ÆªÅ«Ü·B±ÌL@Í ³K\»Ì¶NXÉĢܷª "[a-z]" Ìæ¤Ép©Á±ÅÍÞKvÍ èÜ ¹ñB"[", "]" ÅÍÞÆ»êç̶àÏ·ÎÛƵĵíêÜ·B
2oCg¶ÉæéÍÍwèÌêAJn¶ÆI¹¶Ì»ê¼êÌæ1oCgÌl ͯ¶Å éKvª èÜ·B
$option ÉÍ 'd' ðwè·é±ÆªÅ«Ü·B'd' ðwèµ½êÍA$from ÉÜÜ êÄ¢Ä $to ÉÜÜêĢȢ¶ª $line Éo»µ½êAÏ·ã̶ñ©ç æè©êÜ·B±êÍ tr///d Ì@\ðÍí·é±ÆðÓ}µÄ¢Ü·B
nCtu - v©gðu··éêAnCtðÍÍwèÌÅãÉzuµÜ·B
$line = 'sdkOR|XXXX|XXXX'; # Sp¶
jacode::tr(\$line, 'O-X`-y-|', '0-9A-Za-z-'); # ¼pÉu··éá
print $line; # "TEL03-9999-9999" Æ\¦
ßèl
Ï·µ½¶ÌðԵܷB
jacode::trans
tr/// ZqÌ@\ðÍí
®
jacode::trans($line, $from, $to [,$option])
ø $line
Ï·µ½¢¶ñðXJ[Ï $line Éi[µAøɵܷBzñÌvfÌt@ XânbV ÌvfÌt@Xðwè·é±ÆàÅ«Ü·B
ø $from
Ï·µ½¢Ï·O̶ðÀ×ÄLqµÜ·B
ø $to
ø $from ÌÉÏ·µ½¢Ï·ã̶ðÀ×ÄLqµÜ·B
ø $option
'd' ðwèµ½êÍ tr///d Ì@\ðÍíµÜ·B
@\
jacode::tr() ƯlÉ Perl Ì tr/// Ì@\ðÍíµÜ·Bjacode::tr() ÆÙÈèA $line Í«ÏíèܹñB
ßèl
Ï·ã̶ñðԵܷB
%jacode::convf
»û®Ï·ÌTu[` jacode::xxx2yyy() Ìt@Xðæ¾·é
®
$jacode::convf{'xxx', 'yyy'}
@\
xxx ¨æÑ yyy É jis, euc, sjis, utf8 Ì¢¸ê©ðwè·éÆ jacode::xxx2yyy() ÌTu[`Ìt@Xðæ¾·é±ÆªÅ«Ü·B
%jacode::h2zf
»û®Ï·ÌTu[` jacode::h2z_xxx() Ìt@Xðæ¾·é
®
$jacode::h2zf{'xxx'}
@\
xxx É jis, euc, sjis, utf8 Ì¢¸ê©ðwè·éÆ jacode::h2z_xxx() ÌTu[ `Ìt@Xðæ¾·é±ÆªÅ«Ü·B
%jacode::z2hf
»û®Ï·ÌTu[` jacode::z2h_xxx() Ìt@Xðæ¾·é
®
$jacode::z2hf{'xxx'}
@\
xxx É jis, euc, sjis, utf8 Ì¢¸ê©ðwè·éÆ jacode::z2h_xxx() ÌTu[ `Ìt@Xðæ¾·é±ÆªÅ«Ü·B
jacode::init
ÏÌú»ðs¤
®
jacode::init()
ø
èܹñB
@\
jacode pbP[WàÌÏðú»µÜ·Bjacode.pl ð require 'jacode.pl'; ÉæÁÄp·éêÍA©®IÉÄÑo³êÜ·Bjacode.pl ÌàeðAvP[ VvOÌÉRs[µÄßñ¾êÍAjacode ̼ÌTu[` ÌÄÑoµÉæ§ÁÄ jacode::init() ðÀsµAàÅp·éÏðú»·é Kvª èÜ·B
ßèl
èܹñB
ìÒ
Copyright (c) 1992,1993,1994 Kazumasa Utashiro Copyright (c) 1995-2000 Kazumasa Utashiro Copyright (c) 2002 Kazumasa Utashiro Copyright (c) 2010, 2011, 2014, 2015, 2016 INABA Hitoshi
ì
IWiÌ "jcode.pl" Ư¶ðÅpÅ«Ü·BȺÉøpµÜ·B
This software is free software;
Use and redistribution for ANY PURPOSE are granted as long as all copyright notices are retained. Redistribution with modification is allowed provided that you make your modified version obviously distinguishable from the original one. THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES ARE DISCLAIMED.
This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.