12 Star 0 Fork 1

src-openEuler/perl-Jcode

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。
克隆/下载
Jcode-2.07-UTF-8.patch 20.74 KB
一键复制 编辑 原始数据 按行查看 历史
misaka00251 提交于 2022-07-15 21:58 . Init package
--- Jcode-2.07/Jcode/Nihongo.pod 2005-02-19 06:50:14.000000000 +0000
+++ Jcode-2.07/Jcode/Nihongo.pod 2011-06-28 09:56:30.365310693 +0100
@@ -1,77 +1,77 @@
-=encoding euc-jp
+=encoding utf8
-=head1 叹涟
+=head1 鍚嶅墠
-Jcode - 泣塑胳矢机礁圭ハンドラ
+Jcode - 鏃ユ湰瑾炴枃瀛楅泦鍚堛儚銉炽儔銉
-=head1 车妥
+=head1 姒傝
use Jcode;
#
- # 概及ゆかしく
+ # 鍙ゅ紡銈嗐亱銇椼亸
Jcode::convert($str, $ocode, $icode, "z");
- # もしくはオブジェクト回羹で—
+ # 銈傘仐銇忋伅銈儢銈搞偋銈儓鎸囧悜銇э紒
print Jcode->new($str)->h2z->tr($from, $to)->utf8;
-=head1 棱汤
+=head1 瑾槑
-Jcode.pmはオブジェクト弄なアプロ〖チと骄丸からのアプロ〖チの尉数を
-サポ〖トしています。オブジェクト弄なアプロ〖チを蝗えばこんな炊じで〃
+Jcode.pm銇偑銉栥偢銈с偗銉堢殑銇偄銉椼儹銉笺儊銇ㄥ緭鏉ャ亱銈夈伄銈€儣銉兗銉併伄涓℃柟銈
+銈点儩銉笺儓銇椼仸銇勩伨銇欍傘偑銉栥偢銈с偗銉堢殑銇偄銉椼儹銉笺儊銈掍娇銇堛伆銇撱倱銇劅銇樸仹锛
$iso_2022_jp = Jcode->new($str)->h2z->jis;
-こちらよりエレガントでしょう¨
+銇撱仭銈夈倛銈娿偍銉偓銉炽儓銇с仐銈囥亞锛
$iso_2022_jp = $str;
&jcode::convert(\$iso_2022_jp, 'jis', &jcode::getcode(\$str), "z");
-オブジェクトに齐厉みの痰い客のために、Jcode.pmはまだC<getcode()>と
-C<convert()>をサポ〖トしています。
+銈儢銈搞偋銈儓銇Υ鏌撱伩銇劇銇勪汉銇仧銈併伀銆丣code.pm銇伨銇燙<getcode()>銇
+C<convert()>銈掋偟銉濄兗銉堛仐銇︺亜銇俱仚銆
-Perlのバ〖ジョンが5.8.1笆惧なら、Jcodeは、Perl 5.8笆惯の筛洁弄な矢机礁圭
-ハンドラモジュ〖ルであるL<Encode>のラッパ〖として慷る神います。
+Perl銇儛銉笺偢銉с兂銇.8.1浠ヤ笂銇倝銆丣code銇丳erl 5.8浠ラ檷銇婧栫殑銇枃瀛楅泦鍚
+銉忋兂銉夈儵銉€偢銉ャ兗銉仹銇傘倠L<Encode>銇儵銉冦儜銉笺仺銇椼仸鎸倠鑸炪亜銇俱仚銆
-=head1 メソッド
+=head1 銉°偨銉冦儔
-泼に咐第しない嘎り、ここで刁げるメソッドは链てJcodeオブジェクトを手します。
+鐗广伀瑷鍙娿仐銇亜闄愩倞銆併亾銇撱仹鎸欍亽銈嬨儭銈姐儍銉夈伅鍏ㄣ仸Jcode銈儢銈搞偋銈儓銈掕繑銇椼伨銇欍
-=head2 コンストラクタ
+=head2 銈炽兂銈广儓銉┿偗銈
=over 2
=item $j = Jcode-E<gt>new($str [, $icode])
-$strからJcodeオブジェクト$jを栏喇します。汤绩弄に$icodeをセットしなければ、
-掐蜗コ〖ドは极瓢弄に冉年されます。网脱材墙な矢机礁圭については、布の
-L<getcode>を徊救してください。
+$str銇嬨倝Jcode銈儢銈搞偋銈儓$j銈掔敓鎴愩仐銇俱仚銆傛槑绀虹殑銇$icode銈掋偦銉冦儓銇椼仾銇戙倢銇般
+鍏ュ姏銈炽兗銉夈伅鑷嫊鐨勩伀鍒ゅ畾銇曘倢銇俱仚銆傚埄鐢ㄥ彲鑳姐仾鏂囧瓧闆嗗悎銇仱銇勩仸銇佷笅銇
+L<getcode>銈掑弬鐓с仐銇︺亸銇犮仌銇勩
-Perl 5.8.1笆惯では、C<$icode>にはL<Encode>が妄豺できる
-I<どんなエンコ〖ディング叹>も蝗えます。
+Perl 5.8.1浠ラ檷銇с伅銆丆<$icode>銇伅L<Encode>銇岀悊瑙c仹銇嶃倠
+I<銇┿倱銇偍銉炽偝銉笺儑銈c兂銈板悕>銈備娇銇堛伨銇欍
$j = Jcode->new($european, 'iso-latin1');
-オブジェクトを矢机误步すると、EUCに恃垂された矢机误が手ります。ですから
-C<< print $j->euc >>とする洛わりに、C<< print $j >>とできます。
+銈儢銈搞偋銈儓銈掓枃瀛楀垪鍖栥仚銈嬨仺銆丒UC銇鎻涖仌銈屻仧鏂囧瓧鍒椼亴杩斻倞銇俱仚銆傘仹銇欍亱銈
+C<< print $j->euc >>銇ㄣ仚銈嬩唬銈忋倞銇丆<< print $j >>銇ㄣ仹銇嶃伨銇欍
=over 2
-=item リファレンス畔し
+=item 銉儠銈°儸銉炽偣娓°仐
-スカラ〖猛の洛わりに、笆布のようにリファレンスを畔せます。
+銈广偒銉┿兗鍊ゃ伄浠c倧銈娿伀銆佷互涓嬨伄銈堛亞銇儶銉曘偂銉兂銈广倰娓°仜銇俱仚銆
Jcode->new(\$str);
-これはほんの警し箕粗を泪腆します。その洛浸として、$strの猛そのものが
-恃垂されます∈ある罢蹋、$strはjcodeオブジェクトに"tieされる"のです∷。
+銇撱倢銇伝銈撱伄灏戙仐鏅傞枔銈掔瘈绱勩仐銇俱仚銆傘仢銇唬鍎熴仺銇椼仸銆$str銇ゃ仢銇倐銇亴
+澶夋彌銇曘倢銇俱仚锛堛亗銈嬫剰鍛炽$str銇痡code銈儢銈搞偋銈儓銇"tie銇曘倢銈"銇仹銇欙級銆
=back
=item $j-E<gt>set($str [, $icode])
-$jの柒婶矢机误に$strをセットします。帆り手しJcodeオブジェクトを蝗うときに
-守网です∈オブジェクトを栏喇する箕粗とメモリの泪腆になります∷。
+$j銇唴閮ㄦ枃瀛楀垪銇$str銈掋偦銉冦儓銇椼伨銇欍傜拱銈婅繑銇桱code銈儢銈搞偋銈儓銈掍娇銇嗐仺銇嶃伀
+渚垮埄銇с仚锛堛偑銉栥偢銈с偗銉堛倰鐢熸垚銇欍倠鏅傞枔銇ㄣ儭銉€儶銇瘈绱勩伀銇倞銇俱仚锛夈
- # mailboxをSJIS妨及に恃垂
+ # mailbox銈扴JIS褰㈠紡銇鎻
my $jconv = new Jcode;
$/ = 00;
while(<>){
@@ -80,19 +80,19 @@
=item $j-E<gt>append($str [, $icode]);
-$jの柒婶矢机误に$strを裁えます。
+$j銇唴閮ㄦ枃瀛楀垪銇$str銈掑姞銇堛伨銇欍
=item $j = jcode($str [, $icode]);
-Jcode-E<gt>new() の没教妨。笆布のようにできます〃
+Jcode-E<gt>new() 銇煭绺舰銆備互涓嬨伄銈堛亞銇仹銇嶃伨銇欙紱
$sjis = jcode($str)->sjis;
=back
-=head2 矢机误のエンコ〖ド
+=head2 鏂囧瓧鍒椼伄銈ㄣ兂銈炽兗銉
-办忍に、$j-E<gt>I<encoded>とすることでI<encoded>に恃垂された矢机误を评ます。
+涓鑸伀銆$j-E<gt>I<encoded>銇ㄣ仚銈嬨亾銇ㄣ仹I<encoded>銇鎻涖仌銈屻仧鏂囧瓧鍒椼倰寰椼伨銇欍
=over 2
@@ -108,268 +108,268 @@
=item $utf8 = $j-E<gt>utf8
-极汤でしょう。
+鑷槑銇с仐銈囥亞銆
WYCIWYG = What you code is what you get :)
=item $iso_2022_jp = $j-E<gt>iso_2022_jp
-C<< $j->h2z->jis >>と票じです。
-染逞カナは动扩弄に链逞に恃垂されます。
+C<< $j->h2z->jis >>銇ㄥ悓銇樸仹銇欍
+鍗婅銈儕銇挤鍒剁殑銇叏瑙掋伀澶夋彌銇曘倢銇俱仚銆
-Perl 5.8.1笆惯では、Encodeがサポ〖トするどんなエンコ〖ディング叹と
-エイリアスでも网脱できます。毋えば¨
+Perl 5.8.1浠ラ檷銇с伅銆丒ncode銇屻偟銉濄兗銉堛仚銈嬨仼銈撱仾銈ㄣ兂銈炽兗銉囥偅銉炽偘鍚嶃仺
+銈ㄣ偆銉偄銈广仹銈傚埄鐢ㄣ仹銇嶃伨銇欍備緥銇堛伆锛
- $european = $j->iso_latin1; # メソッド叹脱に'-'は'_'に弥き垂えます
+ $european = $j->iso_latin1; # 銉°偨銉冦儔鍚嶇敤銇'-'銇'_'銇疆銇嶆彌銇堛伨銇
-B<徊雇>¨L<Encode::Encoder>がこれと票じ井祷を蝗っています。
+B<鍙傝>锛歀<Encode::Encoder>銇屻亾銈屻仺鍚屻仒灏忔妧銈掍娇銇c仸銇勩伨銇欍
=over 2
=item $j-E<gt>fallback($fallback)
-Perl 5.8.1笆惯では、Jcodeは柒婶の矢机误をUTF-8で瘦积します。
-I<< -E<gt>encoding >>にマップできない矢机は'?'に弥き垂えられますが、
-これはL<Encode>での筛洁瓢侯です。
-
- my $unistr = "\x{262f}"; # 雹哇マ〖ク
- my $j = jcode($unistr); # $j->euc の冯蔡は '?' に
-
-この慷る神いは、L<Encode>票屯、フォ〖ルバックを回年することで恃构できます。
-猛はL<Encode>のものと办斤です。守倒のため、C<Jcode::FB_PERLQQ>、
-C<Jcode::FB_XMLCREF>、C<Jcode::FB_HTMLCREF>がL<Encode>のそれらへの
-エイリアスになっています。
+Perl 5.8.1浠ラ檷銇с伅銆丣code銇唴閮ㄣ伄鏂囧瓧鍒椼倰UTF-8銇т繚鎸併仐銇俱仚銆
+I<< -E<gt>encoding >>銇優銉冦儣銇с亶銇亜鏂囧瓧銇'?'銇疆銇嶆彌銇堛倝銈屻伨銇欍亴銆
+銇撱倢銇疞<Encode>銇с伄妯欐簴鍕曚綔銇с仚銆
+
+ my $unistr = "\x{262f}"; # 闄伴櫧銉炪兗銈
+ my $j = jcode($unistr); # $j->euc 銇祼鏋溿伅 '?' 銇
+
+銇撱伄鎸倠鑸炪亜銇丩<Encode>鍚屾銆併儠銈┿兗銉儛銉冦偗銈掓寚瀹氥仚銈嬨亾銇ㄣ仹澶夋洿銇с亶銇俱仚銆
+鍊ゃ伅L<Encode>銇倐銇仺涓绶掋仹銇欍備究瀹溿伄銇熴倎銆丆<Jcode::FB_PERLQQ>銆
+C<Jcode::FB_XMLCREF>銆丆<Jcode::FB_HTMLCREF>銇孡<Encode>銇仢銈屻倝銇搞伄
+銈ㄣ偆銉偄銈广伀銇仯銇︺亜銇俱仚銆
print $j->fallback(Jcode::FB_PERLQQ)->euc; # '\x{262f}'
print $j->fallback(Jcode::FB_XMLCREF)->euc; # '&#x262f;'
print $j->fallback(Jcode::FB_HTMLCREF)->euc; # '&#9775;'
-グロ〖バル恃眶C<$Jcode::FALLBACK>にデフォルトのフォ〖ルバックが瘦积
-されていますので、この猛を洛掐することでオ〖バ〖ライドできます。
+銈般儹銉笺儛銉鏁癈<$Jcode::FALLBACK>銇儑銉曘偐銉儓銇儠銈┿兗銉儛銉冦偗銇屼繚鎸
+銇曘倢銇︺亜銇俱仚銇仹銆併亾銇ゃ倰浠e叆銇欍倠銇撱仺銇с偑銉笺儛銉笺儵銈ゃ儔銇с亶銇俱仚銆
- $Jcode::FALLBACK = Jcode::FB_PERLQQ; # デフォルトのフォ〖ルバックスキ〖マを肋年
+ $Jcode::FALLBACK = Jcode::FB_PERLQQ; # 銉囥儠銈┿儷銉堛伄銉曘偐銉笺儷銉愩儍銈偣銈兗銉炪倰瑷畾
=back
=item [@lines =] $jcode-E<gt>jfold([$width, $newline_str, $kref])
-$width∈デフォルト¨72∷髓にjcode矢机误柒の乖を擂り手します。
-$widthは∩染逞∩矢机の眶です。链逞矢机は2矢机としてカウントします。
+$width锛堛儑銉曘偐銉儓锛2锛夋瘞銇玧code鏂囧瓧鍒楀唴銇銈掓姌銈婅繑銇椼伨銇欍
+$width銇濆崐瑙掆濇枃瀛椼伄鏁般仹銇欍傚叏瑙掓枃瀛椼伅2鏂囧瓧銇ㄣ仐銇︺偒銈︺兂銉堛仐銇俱仚銆
-$newline_str∈デフォルトは"\n"∷で回年された猖乖矢机が裁わります。
-擂り手された链乖をリストで手します。
+$newline_str锛堛儑銉曘偐銉儓銇"\n"锛夈仹鎸囧畾銇曘倢銇熸敼琛屾枃瀛椼亴鍔犮倧銈娿伨銇欍
+鎶樸倞杩斻仌銈屻仧鍏ㄨ銈掋儶銈广儓銇ц繑銇椼伨銇欍
-Perl 5.8.1笆惯は3戎誊の苞眶$krefにEUCの矢机误の芹误リファレンスを
-畔すことで、词白弄な乖片敦搂借妄∈ぶら布がり∷を乖えます。
+Perl 5.8.1浠ラ檷銇暘鐩伄寮曟暟$kref銇獷UC銇枃瀛楀垪銇厤鍒椼儶銉曘偂銉兂銈广倰
+娓°仚銇撱仺銇с佺啊鏄撶殑銇闋鍓囧嚘鐞嗭紙銇躲倝涓嬨亴銈婏級銈掕銇堛伨銇欍
=item $length = $jcode-E<gt>jlength();
-バイト墓ではなく、链逞矢机も办矢机として眶えた眷圭の矢机眶を手します。
+銉愩偆銉堥暦銇с伅銇亸銆佸叏瑙掓枃瀛椼倐涓鏂囧瓧銇ㄣ仐銇︽暟銇堛仧鍫村悎銇枃瀛楁暟銈掕繑銇椼伨銇欍
=back
-=head2 MIME::Base64を蝗うメソッド
+=head2 MIME::Base64銈掍娇銇嗐儭銈姐儍銉
-布淡のメソッドを蝗うには、L<MIME::Base64>が涩妥です。インスト〖ルは帽姐に
+涓嬭銇儭銈姐儍銉夈倰浣裤亞銇伅銆丩<MIME::Base64>銇屽繀瑕併仹銇欍傘偆銉炽偣銉堛兗銉伅鍗樼磾銇
perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'
-とします。お蝗いのPerlが5.6笆惯であるなら、L<MIME::Base64>は
-バンドルされているので、インスト〖ルの涩妥はありません。
+銇ㄣ仐銇俱仚銆傘亰浣裤亜銇甈erl銇.6浠ラ檷銇с亗銈嬨仾銈夈丩<MIME::Base64>銇
+銉愩兂銉夈儷銇曘倢銇︺亜銈嬨伄銇с併偆銉炽偣銉堛兗銉伄蹇呰銇亗銈娿伨銇涖倱銆
=over 2
=item $mime_header = $j-E<gt>mime_encode([$lf, $bpl])
-$strをRFC1522にあるMIME-Headerに恃垂します。$lfを回年すると、
-乖の擂り手しに$lfが蝗われます∈デフォルト¨\n∷。
-$bplを回年すると、擂り手すバイト眶に$bplが蝗われます∈デフォルト¨76〃
-この眶猛は76笆布でなければなりません∷。
+$str銈扲FC1522銇亗銈婱IME-Header銇鎻涖仐銇俱仚銆$lf銈掓寚瀹氥仚銈嬨仺銆
+琛屻伄鎶樸倞杩斻仐銇$lf銇屼娇銈忋倢銇俱仚锛堛儑銉曘偐銉儓锛歕n锛夈
+$bpl銈掓寚瀹氥仚銈嬨仺銆佹姌銈婅繑銇欍儛銈ゃ儓鏁般伀$bpl銇屼娇銈忋倢銇俱仚锛堛儑銉曘偐銉儓锛6锛
+銇撱伄鏁板ゃ伅76浠ヤ笅銇с仾銇戙倢銇般仾銈娿伨銇涖倱锛夈
-Perl 5.8.1笆惯では、笆布のようにしてもMIME Headerエンコ〖ドができます¨
+Perl 5.8.1浠ラ檷銇с伅銆佷互涓嬨伄銈堛亞銇仐銇︺倐MIME Header銈ㄣ兂銈炽兗銉夈亴銇с亶銇俱仚锛
$mime_header = $j->MIME_Header;
-この眷圭C<$mime_header>の提り猛はMIME-B-encoded UTF-8になります。
-办数、C<< $j->mime_encode() >>はMIME-B-encoded ISO-2022-JPを手します。
-呵夺のほとんどのメ〖ラ〖はどちらもサポ〖トしています。
+銇撱伄鍫村悎C<$mime_header>銇埢銈婂ゃ伅MIME-B-encoded UTF-8銇仾銈娿伨銇欍
+涓鏂广丆<< $j->mime_encode() >>銇疢IME-B-encoded ISO-2022-JP銈掕繑銇椼伨銇欍
+鏈杩戙伄銇汇仺銈撱仼銇儭銉笺儵銉笺伅銇┿仭銈夈倐銈点儩銉笺儓銇椼仸銇勩伨銇欍
=item $j-E<gt>mime_decode;
-Jcodeオブジェクトの柒婶矢机误をMIME-Headerデコ〖ドします。Perl 5.8.1
-笆惯なら、笆布のようにして票じことができます¨
+Jcode銈儢銈搞偋銈儓銇唴閮ㄦ枃瀛楀垪銈扢IME-Header銉囥偝銉笺儔銇椼伨銇欍侾erl 5.8.1
+浠ラ檷銇倝銆佷互涓嬨伄銈堛亞銇仐銇﹀悓銇樸亾銇ㄣ亴銇с亶銇俱仚锛
Jcode->new($str, 'MIME-Header');
-こちらの眷圭、ISO-2022-JPだけではなくUTF-8などにも滦炳しており、
-さらにMIME B EncodingのみならずMIME Q Encodingにも滦炳している
-ので、Perl 5.8.1笆惯であればこちらを蝗うべきでしょう。
+銇撱仭銈夈伄鍫村悎銆両SO-2022-JP銇犮亼銇с伅銇亸UTF-8銇仼銇倐瀵惧繙銇椼仸銇娿倞銆
+銇曘倝銇玀IME B Encoding銇伩銇倝銇歁IME Q Encoding銇倐瀵惧繙銇椼仸銇勩倠
+銇仹銆丳erl 5.8.1浠ラ檷銇с亗銈屻伆銇撱仭銈夈倰浣裤亞銇广亶銇с仐銈囥亞銆
=back
-=head2 染逞 ⅹ 链逞
+=head2 鍗婅 鈫愨啋 鍏ㄨ
=over 2
=item $j-E<gt>h2z([$keep_dakuten])
-X201カナ∈染逞∷をX208カナ∈链逞∷に恃垂します。
-$keep_dakutenに靠猛をセットすると、蛮爬をそのままにします
-(これはつまり、≈カ≤~∽は≈ガ∽に恃垂されずにそのまま
-になるということです)
+X201銈儕锛堝崐瑙掞級銈扻208銈儕锛堝叏瑙掞級銇鎻涖仐銇俱仚銆
+$keep_dakuten銇湡鍊ゃ倰銈汇儍銉堛仚銈嬨仺銆佹縼鐐广倰銇濄伄銇俱伨銇仐銇俱仚
+(銇撱倢銇仱銇俱倞銆併屻偒锛嬨倹銆嶃伅銆屻偓銆嶃伀澶夋彌銇曘倢銇氥伀銇濄伄銇俱伨
+銇仾銈嬨仺銇勩亞銇撱仺銇с仚)
-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆
=item $j-E<gt>z2h
-X208カナ∈链逞∷をX201カナ∈染逞∷に恃垂します。
+X208銈儕锛堝叏瑙掞級銈扻201銈儕锛堝崐瑙掞級銇鎻涖仐銇俱仚銆
-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆
=back
-=head2 赖惮山附エミュレ〖タ
+=head2 姝h琛ㄧ従銈ㄣ儫銉ャ儸銉笺偪
-C<< -E<gt>m() >>とC<< -E<gt>s() >>を蝗うには、Perl 5.8.1笆惯が
-涩妥です。
+C<< -E<gt>m() >>銇–<< -E<gt>s() >>銈掍娇銇嗐伀銇丳erl 5.8.1浠ラ檷銇
+蹇呰銇с仚銆
=over 2
=item $j-E<gt>tr($from, $to, $opt);
-JcodeオブジェクトにC<tr/$from/$to/>を努脱します。$fromと$toは
-EUC-JPの矢机误です。Perl 5.8.1笆惯では、flag烧きのUTF-8矢机误
-も减け烧けます。
+Jcode銈儢銈搞偋銈儓銇獵<tr/$from/$to/>銈掗仼鐢ㄣ仐銇俱仚銆$from銇$to銇
+EUC-JP銇枃瀛楀垪銇с仚銆侾erl 5.8.1浠ラ檷銇с伅銆乫lag浠樸亶銇甎TF-8鏂囧瓧鍒
+銈傚彈銇戜粯銇戙伨銇欍
-C<$opt>をセットすると、C<tr/$from/$to/$opt>が努脱されます。C<$opt>は
-'c'、'd'あるいはそれらの寥み圭わせでなければなりません。
+C<$opt>銈掋偦銉冦儓銇欍倠銇ㄣ丆<tr/$from/$to/$opt>銇岄仼鐢ㄣ仌銈屻伨銇欍侰<$opt>銇
+'c'銆'd'銇傘倠銇勩伅銇濄倢銈夈伄绲勩伩鍚堛倧銇涖仹銇亼銈屻伆銇倞銇俱仜銈撱
-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆
-Perl 5.8.1笆惯では、trの妨及に疙りのあった眷圭に-E<gt>error_trを奶じて、
-$@を艰评できます。
+Perl 5.8.1浠ラ檷銇с伅銆乼r銇舰寮忋伀瑾ゃ倞銇亗銇c仧鍫村悎銇-E<gt>error_tr銈掗氥仒銇︺
+$@銈掑彇寰椼仹銇嶃伨銇欍
-笆布のメソッドはPerl 5.8.1笆惯でのみ网脱材墙です。
+浠ヤ笅銇儭銈姐儍銉夈伅Perl 5.8.1浠ラ檷銇с伄銇垮埄鐢ㄥ彲鑳姐仹銇欍
=item $j-E<gt>s($patter, $replace, $opt);
-改」にC<s/$pattern/$replace/$opt>を努脱します。C<$opt>は赖惮山附オプションと
-票じです。赖惮山附のオプションについてはL<perlre>を徊救ください。
+鍊嬨呫伀C<s/$pattern/$replace/$opt>銈掗仼鐢ㄣ仐銇俱仚銆侰<$opt>銇瑕忚〃鐝俱偑銉椼偡銉с兂銇
+鍚屻仒銇с仚銆傛瑕忚〃鐝俱伄銈儣銈枫儳銉炽伀銇ゃ亜銇︺伅L<perlre>銈掑弬鐓с亸銇犮仌銇勩
-C<< $j->tr() >>、C<< $j->s() >>はそのオブジェクト极咳を手すので、
-笆布のように拎侯を息冯できます。
+C<< $j->tr() >>銆丆<< $j->s() >>銇仢銇偑銉栥偢銈с偗銉堣嚜韬倰杩斻仚銇仹銆
+浠ヤ笅銇倛銇嗐伀鎿嶄綔銈掗g祼銇с亶銇俱仚銆
$j->tr("A-Z", "a-z")->s("foo", "bar");
=item [@match = ] $j-E<gt>m($pattern, $opt);
-C<m/$patter/$opt>を努脱します。このメソッドは∩オブジェクトを手さない∩
-ので、C<< $j->s() >>のようにメソッドを息冯できないことに庙罢してください。
+C<m/$patter/$opt>銈掗仼鐢ㄣ仐銇俱仚銆傘亾銇儭銈姐儍銉夈伅鈥濄偑銉栥偢銈с偗銉堛倰杩斻仌銇亜鈥
+銇仹銆丆<< $j->s() >>銇倛銇嗐伀銉°偨銉冦儔銈掗g祼銇с亶銇亜銇撱仺銇敞鎰忋仐銇︺亸銇犮仌銇勩
-赖惮山附の妨及に疙りのあった眷圭、-E<gt>error_m、-E<gt>error_sを奶じて
-$@を艰评できます。
+姝h琛ㄧ従銇舰寮忋伀瑾ゃ倞銇亗銇c仧鍫村悎銆-E<gt>error_m銆-E<gt>error_s銈掗氥仒銇
+$@銈掑彇寰椼仹銇嶃伨銇欍
=back
-=head2 インスタンス恃眶
+=head2 銈ゃ兂銈广偪銉炽偣澶夋暟
-もしJcodeオブジェクトのインスタンス恃眶にアクセスしたいなら、木儡それら
-にアクセスするのではなく、アクセスメソッドを网脱しましょう∈これぞOOP
-です∷。
-
-徊雇までに、Jcodeは∈办忍弄な数恕である∷ハッシュリファレンスの洛わりに、
-芹误リファレンスを蝗うことで、スピ〖ドを呵努步しています∈悸狠のところ、
-アクセスメソッドを蝗う嘎りこのことを梦る涩妥はありません〃 もう办刨
-いいますが、これはOOPなのです∷。
+銈傘仐Jcode銈儢銈搞偋銈儓銇偆銉炽偣銈裤兂銈瑰鏁般伀銈€偗銈汇偣銇椼仧銇勩仾銈夈佺洿鎺ャ仢銈屻倝
+銇偄銈偦銈广仚銈嬨伄銇с伅銇亸銆併偄銈偦銈广儭銈姐儍銉夈倰鍒╃敤銇椼伨銇椼倗銇嗭紙銇撱倢銇濷OP
+銇с仚锛夈
+
+鍙傝冦伨銇с伀銆丣code銇紙涓鑸殑銇柟娉曘仹銇傘倠锛夈儚銉冦偡銉ャ儶銉曘偂銉兂銈广伄浠c倧銈娿伀銆
+閰嶅垪銉儠銈°儸銉炽偣銈掍娇銇嗐亾銇ㄣ仹銆併偣銉斻兗銉夈倰鏈閬╁寲銇椼仸銇勩伨銇欙紙瀹熼殯銇仺銇撱倣銆
+銈€偗銈汇偣銉°偨銉冦儔銈掍娇銇嗛檺銈娿亾銇亾銇ㄣ倰鐭ャ倠蹇呰銇亗銈娿伨銇涖倱锛 銈傘亞涓搴
+銇勩亜銇俱仚銇屻併亾銈屻伅OOP銇伄銇с仚锛夈
-Perl 5.8.1笆惯では、ハッシュリファレンスを蝗うように恃构されました。
-これにより、Jcodeの橙磨はものすごく词帽になります。
+Perl 5.8.1浠ラ檷銇с伅銆併儚銉冦偡銉ャ儶銉曘偂銉兂銈广倰浣裤亞銈堛亞銇鏇淬仌銈屻伨銇椼仧銆
+銇撱倢銇倛銈娿丣code銇嫛寮点伅銈傘伄銇欍仈銇忕啊鍗樸伀銇倞銇俱仚銆
=over 2
=item $j-E<gt>r_str
-EUC矢机误へのリファレンス。
+EUC鏂囧瓧鍒椼伕銇儶銉曘偂銉兂銈广
-Perl 5.8.1笆惯ではUTF-8フラグの惟ったUTF-8矢机误へのリファレンスです。
+Perl 5.8.1浠ラ檷銇с伅UTF-8銉曘儵銈般伄绔嬨仯銇烾TF-8鏂囧瓧鍒椼伕銇儶銉曘偂銉兂銈广仹銇欍
=item $j-E<gt>icode
-木夺の拎侯における掐蜗矢机コ〖ド。
+鐩磋繎銇搷浣溿伀銇娿亼銈嬪叆鍔涙枃瀛椼偝銉笺儔銆
=item $j-E<gt>nmatch
-マッチした眶∈$j->tr霹を蝗ったとき∷。
+銉炪儍銉併仐銇熸暟锛$j->tr绛夈倰浣裤仯銇熴仺銇嶏級銆
=back
-=head1 サブル〖チン
+=head1 銈点儢銉兗銉併兂
=over 2
=item ($code, [$nmatch]) = getcode($str)
-$strの矢机コ〖ドを手します。手るコ〖ドは笆布の奶りです。
+$str銇枃瀛椼偝銉笺儔銈掕繑銇椼伨銇欍傝繑銈嬨偝銉笺儔銇互涓嬨伄閫氥倞銇с仚銆
- ascii Ascii ∈泣塑胳コ〖ドを崔まない∷
- binary Binary ∈テキストファイルではない∷
+ ascii Ascii 锛堟棩鏈獮銈炽兗銉夈倰鍚伨銇亜锛
+ binary Binary 锛堛儐銈偣銉堛儠銈°偆銉仹銇仾銇勶級
euc EUC-JP
sjis SHIFT_JIS
jis JIS (ISO-2022-JP)
ucs2 UCS2 (Raw Unicode)
utf8 UTF8
-スカラ〖コンテキストの洛わりに芹误コンテキストを蝗うと、部矢机尸の
-コ〖ドが斧つかったのかも手します。惧の数で揭べたように、$strは\$str
-でも菇いません。
-
-B<jcode.pl 网脱荚の数へ¨> この簇眶はjcode::getcode()と100%惧疤高垂が
-あります。〗〗まあ、ほぼ100%〃
-
- * 提り猛が芹误のとき、その界戎は嫡となります〃
- jcode::getcode()は$nmatchを呵介に手します。
-
- * jcode::getcode()は、EUC矢机とSJIS矢机の眶が霹しいとき、'undef'を
- 手します。 Jcode::getcode()はEUCを手します。これはJcode.pmには
- 面粗がないためです。
+銈广偒銉┿兗銈炽兂銉嗐偔銈广儓銇唬銈忋倞銇厤鍒椼偝銉炽儐銈偣銉堛倰浣裤亞銇ㄣ佷綍鏂囧瓧鍒嗐伄
+銈炽兗銉夈亴瑕嬨仱銇嬨仯銇熴伄銇嬨倐杩斻仐銇俱仚銆備笂銇柟銇ц堪銇广仧銈堛亞銇$str銇痋$str
+銇с倐妲嬨亜銇俱仜銈撱
+
+B<jcode.pl 鍒╃敤鑰呫伄鏂广伕锛> 銇撱伄闁㈡暟銇痡code::getcode()銇00%涓婁綅浜掓彌銇
+銇傘倞銇俱仚銆傗曗曘伨銇傘併伝銇00%锛
+
+ * 鎴汇倞鍊ゃ亴閰嶅垪銇仺銇嶃併仢銇爢鐣伅閫嗐仺銇倞銇俱仚锛
+ jcode::getcode()銇$nmatch銈掓渶鍒濄伀杩斻仐銇俱仚銆
+
+ * jcode::getcode()銇丒UC鏂囧瓧銇⊿JIS鏂囧瓧銇暟銇岀瓑銇椼亜銇ㄣ亶銆'undef'銈
+ 杩斻仐銇俱仚銆 Jcode::getcode()銇疎UC銈掕繑銇椼伨銇欍傘亾銈屻伅Jcode.pm銇伅
+ 涓枔銇屻仾銇勩仧銈併仹銇欍
=item Jcode::convert($str, [$ocode, $icode, $opt])
-$strを$ocodeで回年した矢机コ〖ドに恃垂します。$icodeも回年すると、
-掐蜗矢机误をgetcode()でチェックする洛わりに、$icodeと簿年します。
-惧の数で揭べたように、$strは\$strでも菇いません。
+$str銈$ocode銇ф寚瀹氥仐銇熸枃瀛椼偝銉笺儔銇鎻涖仐銇俱仚銆$icode銈傛寚瀹氥仚銈嬨仺銆
+鍏ュ姏鏂囧瓧鍒椼倰getcode()銇с儊銈с儍銈仚銈嬩唬銈忋倞銇$icode銇ㄤ划瀹氥仐銇俱仚銆
+涓娿伄鏂广仹杩般伖銇熴倛銇嗐伀銆$str銇痋$str銇с倐妲嬨亜銇俱仜銈撱
-B<jcode.pl 网脱荚の数へ¨> この簇眶はjcode::convert()と100%惧疤高垂が
-あります—
+B<jcode.pl 鍒╃敤鑰呫伄鏂广伕锛> 銇撱伄闁㈡暟銇痡code::convert()銇00%涓婁綅浜掓彌銇
+銇傘倞銇俱仚锛
=back
-=head1 バグ
+=head1 銉愩偘
-Perlが5.8.1笆惯の眷圭、JcodeはL<Encode>のラッパ〖として慷る神います。
-つまり、JcodeはEncode柒のバグの逼读を减けます。
+Perl銇.8.1浠ラ檷銇牬鍚堛丣code銇疞<Encode>銇儵銉冦儜銉笺仺銇椼仸鎸倠鑸炪亜銇俱仚銆
+銇ゃ伨銈娿丣code銇疎ncode鍐呫伄銉愩偘銇奖闊裤倰鍙椼亼銇俱仚銆
-=head1 颊辑
+=head1 璎濊緸
-このパッケ〖ジは、瓢怠、デザインそしてコ〖ドの驴くの爬で、
-参洛 下赖 <utashiro@iij.ad.jp>会のPerl4ライブラリjcode.plに砷っています。
+銇撱伄銉戙儍銈便兗銈搞伅銆佸嫊姗熴併儑銈躲偆銉炽仢銇椼仸銈炽兗銉夈伄澶氥亸銇偣銇с
+姝屼唬 鍜屾 <utashiro@iij.ad.jp>姘忋伄Perl4銉┿偆銉栥儵銉猨code.pl銇矤銇c仸銇勩伨銇欍
-络宏 穷答 <ohzaki@iod.ricoh.co.jp>会は、倡券の润撅に介袋の檬超から
-赖惮山附を酸きあげる缄锦けをしてくれました。
+澶у磶 鍗氬熀 <ohzaki@iod.ricoh.co.jp>姘忋伅銆侀枊鐧恒伄闈炲父銇垵鏈熴伄娈甸殠銇嬨倝
+姝h琛ㄧ従銈掔(銇嶃亗銇掋倠鎵嬪姪銇戙倰銇椼仸銇忋倢銇俱仐銇熴
-makamaka@donzoko.net の JEncode には、JcodeとEncodeをどう突圭させれば
-いいか络恃络きな芳绩を减けました。また、塑泣塑胳マニュアルも大拢して
-いただきました。
+makamaka@donzoko.net 銇 JEncode 銇伅銆丣code銇‥ncode銈掋仼銇嗚瀺鍚堛仌銇涖倢銇
+銇勩亜銇嬪ぇ澶夊ぇ銇嶃仾鍟撶ず銈掑彈銇戙伨銇椼仧銆傘伨銇熴佹湰鏃ユ湰瑾炪優銉嬨儱銈€儷銈傚瘎璐堛仐銇
+銇勩仧銇犮亶銇俱仐銇熴
-そしてJcode ML <jcode5@ring.gr.jp>の厂さん。この数茫なしには、
-ここまで窗喇しなかったことでしょう。
+銇濄仐銇code ML <jcode5@ring.gr.jp>銇殕銇曘倱銆傘亾銇柟閬斻仾銇椼伀銇
+銇撱亾銇俱仹瀹屾垚銇椼仾銇嬨仯銇熴亾銇ㄣ仹銇椼倗銇嗐
-=head1 徊雇
+=head1 鍙傝
L<Encode>
L<http://www.iana.org/assignments/character-sets>
-=head1 螟侯涪
+=head1 钁椾綔妯
Copyright 1999-2005 Dan Kogai <dankogai@dan.co.jp>
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
1
https://gitee.com/src-openeuler/perl-Jcode.git
git@gitee.com:src-openeuler/perl-Jcode.git
src-openeuler
perl-Jcode
perl-Jcode
master

搜索帮助