Init package

2022-07-15 21:58:41 +08:00 · 2022-07-15 21:58:41 +08:00 · 916e5010cd
commit 916e5010cd
parent f73824b422
3 changed files with 607 additions and 0 deletions
--- a/Jcode-2.07-UTF-8.patch
+++ b/Jcode-2.07-UTF-8.patch
@ -0,0 +1,529 @@
+--- 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 - 鏃ユ湰瑾炴枃瀛楅泦鍚堛儚銉炽儔銉<E58494>
+ 
+-=head1 车妥
+=head1 姒傝<E5A792>
+ 
+  use Jcode;
+  # 
+- # 概及ゆかしく
+ # 鍙ゅ紡銈嗐亱銇椼亸
+  Jcode::convert($str, $ocode, $icode, "z");
+- # もしくはオブジェクト回羹で—
+ # 銈傘仐銇忋伅銈<E4BC85>儢銈搞偋銈<E5818B>儓鎸囧悜銇э紒
+  print Jcode->new($str)->h2z->tr($from, $to)->utf8;
+ 
+-=head1 棱汤
+=head1 瑾<>槑
+ 
+-Jcode.pmはオブジェクト弄なアプロ〖チと骄丸からのアプロ〖チの尉数を
+-サポ〖トしています。オブジェクト弄なアプロ〖チを蝗えばこんな炊じで〃
+Jcode.pm銇<6D>偑銉栥偢銈с偗銉堢殑銇<E6AE91>偄銉椼儹銉笺儊銇ㄥ緭鏉ャ亱銈夈伄銈€儣銉<E584A3>兗銉併伄涓℃柟銈<E69F9F>
+銈点儩銉笺儓銇椼仸銇勩伨銇欍€傘偑銉栥偢銈с偗銉堢殑銇<E6AE91>偄銉椼儹銉笺儊銈掍娇銇堛伆銇撱倱銇<E580B1>劅銇樸仹锛<E4BBB9>
+ 
+   $iso_2022_jp = Jcode->new($str)->h2z->jis;
+ 
+-こちらよりエレガントでしょう¨
+銇撱仭銈夈倛銈娿偍銉<E5818D>偓銉炽儓銇с仐銈囥亞锛<E4BA9E>
+ 
+   $iso_2022_jp = $str;
+   &jcode::convert(\$iso_2022_jp, 'jis', &jcode::getcode(\$str), "z");
+ 
+-オブジェクトに齐厉みの痰い客のために、Jcode.pmはまだC<getcode()>と
+-C<convert()>をサポ〖トしています。
+銈<>儢銈搞偋銈<E5818B>儓銇<E58493>Υ鏌撱伩銇<E4BCA9>劇銇勪汉銇<E6B189>仧銈併伀銆丣code.pm銇<6D>伨銇燙<getcode()>銇<>
+C<convert()>銈掋偟銉濄兗銉堛仐銇︺亜銇俱仚銆<E4BB9A>
+ 
+-Perlのバ〖ジョンが5.8.1笆惧なら、Jcodeは、Perl 5.8笆惯の筛洁弄な矢机礁圭
+-ハンドラモジュ〖ルであるL<Encode>のラッパ〖として慷る神います。
+Perl銇<6C>儛銉笺偢銉с兂銇<E58582>5.8.1浠ヤ笂銇<EFBFBD>倝銆丣code銇<EFBFBD>€丳erl 5.8浠ラ檷銇<EFBFBD><EFBFBD>婧栫殑銇<EFBFBD>枃瀛楅泦鍚<EFBFBD>
+銉忋兂銉夈儵銉€偢銉ャ兗銉<E58597>仹銇傘倠L<Encode>銇<>儵銉冦儜銉笺仺銇椼仸鎸<E4BBB8>倠鑸炪亜銇俱仚銆<E4BB9A>
+ 
+-=head1 メソッド
+=head1 銉°偨銉冦儔
+ 
+-泼に咐第しない嘎り、ここで刁げるメソッドは链てJcodeオブジェクトを手します。
+鐗广伀瑷€鍙娿仐銇<E4BB90>亜闄愩倞銆併亾銇撱仹鎸欍亽銈嬨儭銈姐儍銉夈伅鍏ㄣ仸Jcode銈<65>儢銈搞偋銈<E5818B>儓銈掕繑銇椼伨銇欍€<E6AC8D>
+ 
+-=head2 コンストラクタ
+=head2 銈炽兂銈广儓銉┿偗銈<E58197>
+ 
+ =over 2
+ 
+ =item $j = Jcode-E<gt>new($str [, $icode])
+ 
+-$strからJcodeオブジェクト$jを栏喇します。汤绩弄に$icodeをセットしなければ、
+-掐蜗コ〖ドは极瓢弄に冉年されます。网脱材墙な矢机礁圭については、布の
+-L<getcode>を徊救してください。
+$str銇嬨倝Jcode銈<65>儢銈搞偋銈<E5818B>儓$j銈掔敓鎴愩仐銇俱仚銆傛槑绀虹殑銇<E6AE91>$icode銈掋偦銉冦儓銇椼仾銇戙倢銇般€<E888AC>
+鍏ュ姏銈炽兗銉夈伅鑷<E4BC85>嫊鐨勩伀鍒ゅ畾銇曘倢銇俱仚銆傚埄鐢ㄥ彲鑳姐仾鏂囧瓧闆嗗悎銇<E6828E>仱銇勩仸銇<E4BBB8>€佷笅銇<E7AC85>
+L<getcode>銈掑弬鐓с仐銇︺亸銇犮仌銇勩€<E58BA9>
+ 
+-Perl 5.8.1笆惯では、C<$icode>にはL<Encode>が妄豺できる
+-I<どんなエンコ〖ディング叹>も蝗えます。
+Perl 5.8.1浠ラ檷銇с伅銆丆<$icode>銇<>伅L<Encode>銇岀悊瑙ｃ仹銇嶃倠
+I<銇┿倱銇<E580B1>偍銉炽偝銉笺儑銈ｃ兂銈板悕>銈備娇銇堛伨銇欍€<E6AC8D>
+ 
+   $j = Jcode->new($european, 'iso-latin1');
+ 
+-オブジェクトを矢机误步すると、EUCに恃垂された矢机误が手ります。ですから
+-C<< print $j->euc >>とする洛わりに、C<< print $j >>とできます。
+銈<>儢銈搞偋銈<E5818B>儓銈掓枃瀛楀垪鍖栥仚銈嬨仺銆丒UC銇<43><E98A87>鎻涖仌銈屻仧鏂囧瓧鍒椼亴杩斻倞銇俱仚銆傘仹銇欍亱銈<E4BAB1>
+C<< print $j->euc >>銇ㄣ仚銈嬩唬銈忋倞銇<E5809E>€丆<< print $j >>銇ㄣ仹銇嶃伨銇欍€<E6AC8D>
+ 
+ =over 2
+ 
+-=item リファレンス畔し
+=item 銉<>儠銈°儸銉炽偣娓°仐
+ 
+-スカラ〖猛の洛わりに、笆布のようにリファレンスを畔せます。
+銈广偒銉┿兗鍊ゃ伄浠ｃ倧銈娿伀銆佷互涓嬨伄銈堛亞銇<E4BA9E>儶銉曘偂銉<E58182>兂銈广倰娓°仜銇俱仚銆<E4BB9A>
+ 
+  Jcode->new(\$str);
+ 
+-これはほんの警し箕粗を泪腆します。その洛浸として、$strの猛そのものが
+-恃垂されます∈ある罢蹋、$strはjcodeオブジェクトに"tieされる"のです∷。
+銇撱倢銇<E580A2>伝銈撱伄灏戙仐鏅傞枔銈掔瘈绱勩仐銇俱仚銆傘仢銇<E4BBA2>唬鍎熴仺銇椼仸銆<E4BBB8>$str銇<72>€ゃ仢銇<E4BBA2>倐銇<E58090>亴
+澶夋彌銇曘倢銇俱仚锛堛亗銈嬫剰鍛炽€<E782BD>$str銇痡code銈<65>儢銈搞偋銈<E5818B>儓銇<E58493>"tie銇曘倢銈<E580A2>"銇<>仹銇欙級銆<E7B49A>
+ 
+ =back
+ 
+ =item $j-E<gt>set($str [, $icode])
+ 
+-$jの柒婶矢机误に$strをセットします。帆り手しJcodeオブジェクトを蝗うときに
+-守网です∈オブジェクトを栏喇する箕粗とメモリの泪腆になります∷。
+$j銇<6A>唴閮ㄦ枃瀛楀垪銇<E59EAA>$str銈掋偦銉冦儓銇椼伨銇欍€傜拱銈婅繑銇桱code銈<65>儢銈搞偋銈<E5818B>儓銈掍娇銇嗐仺銇嶃伀
+渚垮埄銇с仚锛堛偑銉栥偢銈с偗銉堛倰鐢熸垚銇欍倠鏅傞枔銇ㄣ儭銉€儶銇<E584B6>瘈绱勩伀銇<E4BC80>倞銇俱仚锛夈€<E5A488>
+ 
+- # mailboxをSJIS妨及に恃垂
+ # mailbox銈扴JIS褰㈠紡銇<E7B4A1><E98A87>鎻<EFBFBD>
+  my $jconv = new Jcode;
+  $/ = 00;
+  while(<>){
+@@ -80,19 +80,19 @@
+ 
+ =item $j-E<gt>append($str [, $icode]);
+ 
+-$jの柒婶矢机误に$strを裁えます。
+$j銇<6A>唴閮ㄦ枃瀛楀垪銇<E59EAA>$str銈掑姞銇堛伨銇欍€<E6AC8D>
+ 
+ =item $j = jcode($str [, $icode]);
+ 
+-Jcode-E<gt>new() の没教妨。笆布のようにできます〃
+Jcode-E<gt>new() 銇<>煭绺<E785AD>舰銆備互涓嬨伄銈堛亞銇<E4BA9E>仹銇嶃伨銇欙紱
+ 
+  $sjis = jcode($str)->sjis;
+ 
+ =back
+ 
+-=head2 矢机误のエンコ〖ド
+=head2 鏂囧瓧鍒椼伄銈ㄣ兂銈炽兗銉<E58597>
+ 
+-办忍に、$j-E<gt>I<encoded>とすることでI<encoded>に恃垂された矢机误を评ます。
+涓€鑸<E282AC>伀銆<E4BC80>$j-E<gt>I<encoded>銇ㄣ仚銈嬨亾銇ㄣ仹I<encoded>銇<><E98A87>鎻涖仌銈屻仧鏂囧瓧鍒椼倰寰椼伨銇欍€<E6AC8D>
+ 
+ =over 2
+ 
+@@ -108,268 +108,268 @@
+ 
+ =item $utf8 = $j-E<gt>utf8
+ 
+-极汤でしょう。
+鑷<>槑銇с仐銈囥亞銆<E4BA9E>
+ 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 >>銇ㄥ悓銇樸仹銇欍€<E6AC8D>
+鍗婅<E98D97>銈<EFBFBD>儕銇<E58495>挤鍒剁殑銇<E6AE91>叏瑙掋伀澶夋彌銇曘倢銇俱仚銆<E4BB9A>
+ 
+-Perl 5.8.1笆惯では、Encodeがサポ〖トするどんなエンコ〖ディング叹と
+-エイリアスでも网脱できます。毋えば¨
+Perl 5.8.1浠ラ檷銇с伅銆丒ncode銇屻偟銉濄兗銉堛仚銈嬨仼銈撱仾銈ㄣ兂銈炽兗銉囥偅銉炽偘鍚嶃仺
+銈ㄣ偆銉<E58186>偄銈广仹銈傚埄鐢ㄣ仹銇嶃伨銇欍€備緥銇堛伆锛<E4BC86>
+ 
+-  $european = $j->iso_latin1; # メソッド叹脱に'-'は'_'に弥き垂えます
+  $european = $j->iso_latin1; # 銉°偨銉冦儔鍚嶇敤銇<E695A4>'-'銇<>'_'銇<>疆銇嶆彌銇堛伨銇<E4BCA8>
+ 
+-B<徊雇>¨L<Encode::Encoder>がこれと票じ井祷を蝗っています。
+B<鍙傝€<E5829D>>锛歀<Encode::Encoder>銇屻亾銈屻仺鍚屻仒灏忔妧銈掍娇銇ｃ仸銇勩伨銇欍€<E6AC8D>
+ 
+ =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銇<EFBFBD>唴閮ㄣ伄鏂囧瓧鍒椼倰UTF-8銇т繚鎸併仐銇俱仚銆<E4BB9A>
+I<< -E<gt>encoding >>銇<>優銉冦儣銇с亶銇<E4BAB6>亜鏂囧瓧銇<E793A7>'?'銇<>疆銇嶆彌銇堛倝銈屻伨銇欍亴銆<E4BAB4>
+銇撱倢銇疞<Encode>銇с伄妯欐簴鍕曚綔銇с仚銆<E4BB9A>
+
+  my $unistr = "\x{262f}"; # 闄伴櫧銉炪兗銈<E58597>
+  my $j = jcode($unistr);  # $j->euc 銇<>祼鏋溿伅 '?' 銇<>
+
+銇撱伄鎸<E4BC84>倠鑸炪亜銇<E4BA9C>€丩<Encode>鍚屾<E98D9A>銆併儠銈┿兗銉<E58597>儛銉冦偗銈掓寚瀹氥仚銈嬨亾銇ㄣ仹澶夋洿銇с亶銇俱仚銆<E4BB9A>
+鍊ゃ伅L<Encode>銇<>倐銇<E58090>仺涓€绶掋仹銇欍€備究瀹溿伄銇熴倎銆丆<Jcode::FB_PERLQQ>銆<>
+C<Jcode::FB_XMLCREF>銆丆<Jcode::FB_HTMLCREF>銇孡<Encode>銇<>仢銈屻倝銇搞伄
+銈ㄣ偆銉<E58186>偄銈广伀銇<E4BC80>仯銇︺亜銇俱仚銆<E4BB9A>
+ 
+   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>にデフォルトのフォ〖ルバックが瘦积
+-されていますので、この猛を洛掐することでオ〖バ〖ライドできます。
+銈般儹銉笺儛銉<E5849B><E98A89>鏁癈<$Jcode::FALLBACK>銇<>儑銉曘偐銉<E58190>儓銇<E58493>儠銈┿兗銉<E58597>儛銉冦偗銇屼繚鎸<E7B99A>
+銇曘倢銇︺亜銇俱仚銇<E4BB9A>仹銆併亾銇<E4BABE>€ゃ倰浠ｅ叆銇欍倠銇撱仺銇с偑銉笺儛銉笺儵銈ゃ儔銇с亶銇俱仚銆<E4BB9A>
+ 
+-  $Jcode::FALLBACK = Jcode::FB_PERLQQ; # デフォルトのフォ〖ルバックスキ〖マを肋年
+  $Jcode::FALLBACK = Jcode::FB_PERLQQ; # 銉囥儠銈┿儷銉堛伄銉曘偐銉笺儷銉愩儍銈<E5848D>偣銈<E581A3>兗銉炪倰瑷<E580B0>畾
+ 
+ =back
+ 
+ =item [@lines =] $jcode-E<gt>jfold([$width, $newline_str, $kref])
+ 
+-$width∈デフォルト¨72∷髓にjcode矢机误柒の乖を擂り手します。
+-$widthは∩染逞∩矢机の眶です。链逞矢机は2矢机としてカウントします。
+$width锛堛儑銉曘偐銉<E58190>儓锛<E58493>72锛夋瘞銇玧code鏂囧瓧鍒楀唴銇<E594B4><E98A87>銈掓姌銈婅繑銇椼伨銇欍€<E6AC8D>
+$width銇<68>€濆崐瑙掆€濇枃瀛椼伄鏁般仹銇欍€傚叏瑙掓枃瀛椼伅2鏂囧瓧銇ㄣ仐銇︺偒銈︺兂銉堛仐銇俱仚銆<E4BB9A>
+ 
+-$newline_str∈デフォルトは"\n"∷で回年された猖乖矢机が裁わります。
+-擂り手された链乖をリストで手します。
+$newline_str锛堛儑銉曘偐銉<E58190>儓銇<E58493>"\n"锛夈仹鎸囧畾銇曘倢銇熸敼琛屾枃瀛椼亴鍔犮倧銈娿伨銇欍€<E6AC8D>
+鎶樸倞杩斻仌銈屻仧鍏ㄨ<E98D8F>銈掋儶銈广儓銇ц繑銇椼伨銇欍€<E6AC8D>
+ 
+-Perl 5.8.1笆惯は3戎誊の苞眶$krefにEUCの矢机误の芹误リファレンスを
+-畔すことで、词白弄な乖片敦搂借妄∈ぶら布がり∷を乖えます。
+Perl 5.8.1浠ラ檷銇<EFBFBD>3鐣<EFBFBD>洰銇<EFBFBD>紩鏁<EFBFBD>$kref銇獷UC銇<43>枃瀛楀垪銇<E59EAA>厤鍒椼儶銉曘偂銉<E58182>兂銈广倰
+娓°仚銇撱仺銇с€佺啊鏄撶殑銇<E6AE91><E98A87>闋<EFBFBD><E9978B>鍓囧嚘鐞嗭紙銇躲倝涓嬨亴銈婏級銈掕<E98A88>銇堛伨銇欍€<E6AC8D>
+ 
+ =item $length = $jcode-E<gt>jlength();
+ 
+-バイト墓ではなく、链逞矢机も办矢机として眶えた眷圭の矢机眶を手します。
+銉愩偆銉堥暦銇с伅銇<E4BC85>亸銆佸叏瑙掓枃瀛椼倐涓€鏂囧瓧銇ㄣ仐銇︽暟銇堛仧鍫村悎銇<E6828E>枃瀛楁暟銈掕繑銇椼伨銇欍€<E6AC8D>
+ 
+ =back
+ 
+-=head2 MIME::Base64を蝗うメソッド
+=head2 MIME::Base64銈掍娇銇嗐儭銈姐儍銉<E5848D>
+ 
+-布淡のメソッドを蝗うには、L<MIME::Base64>が涩妥です。インスト〖ルは帽姐に
+涓嬭<E6B693>銇<EFBFBD>儭銈姐儍銉夈倰浣裤亞銇<E4BA9E>伅銆丩<MIME::Base64>銇屽繀瑕併仹銇欍€傘偆銉炽偣銉堛兗銉<E58597>伅鍗樼磾銇<E7A3BE>
+ 
+    perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'
+ 
+-とします。お蝗いのPerlが5.6笆惯であるなら、L<MIME::Base64>は
+-バンドルされているので、インスト〖ルの涩妥はありません。
+銇ㄣ仐銇俱仚銆傘亰浣裤亜銇甈erl銇<6C>5.6浠ラ檷銇с亗銈嬨仾銈夈€丩<MIME::Base64>銇<>
+銉愩兂銉夈儷銇曘倢銇︺亜銈嬨伄銇с€併偆銉炽偣銉堛兗銉<E58597>伄蹇呰<E8B987>銇<EFBFBD>亗銈娿伨銇涖倱銆<E580B1>
+ 
+ =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銇<32>亗銈婱IME-Header銇<72><E98A87>鎻涖仐銇俱仚銆<E4BB9A>$lf銈掓寚瀹氥仚銈嬨仺銆<E4BBBA>
+琛屻伄鎶樸倞杩斻仐銇<E4BB90>$lf銇屼娇銈忋倢銇俱仚锛堛儑銉曘偐銉<E58190>儓锛歕n锛夈€<E5A488>
+$bpl銈掓寚瀹氥仚銈嬨仺銆佹姌銈婅繑銇欍儛銈ゃ儓鏁般伀$bpl銇屼娇銈忋倢銇俱仚锛堛儑銉曘偐銉<E58190>儓锛<E58493>76锛<36>
+銇撱伄鏁板€ゃ伅76浠ヤ笅銇с仾銇戙倢銇般仾銈娿伨銇涖倱锛夈€<E5A488>
+ 
+-Perl 5.8.1笆惯では、笆布のようにしてもMIME Headerエンコ〖ドができます¨
+Perl 5.8.1浠ラ檷銇с伅銆佷互涓嬨伄銈堛亞銇<EFBFBD>仐銇︺倐MIME Header銈ㄣ兂銈炽兗銉夈亴銇с亶銇俱仚锛<E4BB9A>
+ 
+   $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銇<38>仾銈娿伨銇欍€<E6AC8D>
+涓€鏂广€丆<< $j->mime_encode() >>銇疢IME-B-encoded ISO-2022-JP銈掕繑銇椼伨銇欍€<E6AC8D>
+鏈€杩戙伄銇汇仺銈撱仼銇<E4BBBC>儭銉笺儵銉笺伅銇┿仭銈夈倐銈点儩銉笺儓銇椼仸銇勩伨銇欍€<E6AC8D>
+ 
+ =item $j-E<gt>mime_decode;
+ 
+-Jcodeオブジェクトの柒婶矢机误をMIME-Headerデコ〖ドします。Perl 5.8.1
+-笆惯なら、笆布のようにして票じことができます¨
+Jcode銈<65>儢銈搞偋銈<E5818B>儓銇<E58493>唴閮ㄦ枃瀛楀垪銈扢IME-Header銉囥偝銉笺儔銇椼伨銇欍€侾erl 5.8.1
+浠ラ檷銇<E6AAB7>倝銆佷互涓嬨伄銈堛亞銇<E4BA9E>仐銇﹀悓銇樸亾銇ㄣ亴銇с亶銇俱仚锛<E4BB9A>
+ 
+   Jcode->new($str, 'MIME-Header');
+ 
+-こちらの眷圭、ISO-2022-JPだけではなくUTF-8などにも滦炳しており、
+-さらにMIME B EncodingのみならずMIME Q Encodingにも滦炳している
+-ので、Perl 5.8.1笆惯であればこちらを蝗うべきでしょう。
+銇撱仭銈夈伄鍫村悎銆両SO-2022-JP銇犮亼銇с伅銇<E4BC85>亸UTF-8銇<38>仼銇<E4BBBC>倐瀵惧繙銇椼仸銇娿倞銆<E5809E>
+銇曘倝銇玀IME B Encoding銇<67>伩銇<E4BCA9>倝銇歁IME Q Encoding銇<67>倐瀵惧繙銇椼仸銇勩倠
+銇<>仹銆丳erl 5.8.1浠ラ檷銇с亗銈屻伆銇撱仭銈夈倰浣裤亞銇广亶銇с仐銈囥亞銆<EFBFBD>
+ 
+ =back
+ 
+-=head2 染逞 <20>ⅹ 链逞
+=head2 鍗婅<E98D97> 鈫愨啋 鍏ㄨ<E98D8F>
+ 
+ =over 2
+ 
+ =item $j-E<gt>h2z([$keep_dakuten])
+ 
+-X201カナ∈染逞∷をX208カナ∈链逞∷に恃垂します。
+-$keep_dakutenに靠猛をセットすると、蛮爬をそのままにします
+-(これはつまり、≈カ≤～∽は≈ガ∽に恃垂されずにそのまま
+-になるということです)
+X201銈<31>儕锛堝崐瑙掞級銈扻208銈<38>儕锛堝叏瑙掞級銇<E7B49A><E98A87>鎻涖仐銇俱仚銆<E4BB9A>
+$keep_dakuten銇<6E>湡鍊ゃ倰銈汇儍銉堛仚銈嬨仺銆佹縼鐐广倰銇濄伄銇俱伨銇<E4BCA8>仐銇俱仚
+(銇撱倢銇<E580A2>仱銇俱倞銆併€屻偒锛嬨倹銆嶃伅銆屻偓銆嶃伀澶夋彌銇曘倢銇氥伀銇濄伄銇俱伨
+銇<>仾銈嬨仺銇勩亞銇撱仺銇с仚)
+ 
+-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗€氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆<E4BB9A>
+ 
+ =item $j-E<gt>z2h
+ 
+-X208カナ∈链逞∷をX201カナ∈染逞∷に恃垂します。
+X208銈<38>儕锛堝叏瑙掞級銈扻201銈<31>儕锛堝崐瑙掞級銇<E7B49A><E98A87>鎻涖仐銇俱仚銆<E4BB9A>
+ 
+-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗€氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆<E4BB9A>
+ 
+ =back
+ 
+-=head2 赖惮山附エミュレ〖タ
+=head2 姝ｈ<E5A79D>琛ㄧ従銈ㄣ儫銉ャ儸銉笺偪
+ 
+-C<< -E<gt>m() >>とC<< -E<gt>s() >>を蝗うには、Perl 5.8.1笆惯が
+-涩妥です。
+C<< -E<gt>m() >>銇–<< -E<gt>s() >>銈掍娇銇嗐伀銇<E4BC80>€丳erl 5.8.1浠ラ檷銇<EFBFBD>
+蹇呰<E8B987>銇с仚銆<E4BB9A>
+ 
+ =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銈<65>儢銈搞偋銈<E5818B>儓銇獵<tr/$from/$to/>銈掗仼鐢ㄣ仐銇俱仚銆<E4BB9A>$from銇<6D>$to銇<6F>
+EUC-JP銇<50>枃瀛楀垪銇с仚銆侾erl 5.8.1浠ラ檷銇с伅銆乫lag浠樸亶銇甎TF-8鏂囧瓧鍒<E793A7>
+銈傚彈銇戜粯銇戙伨銇欍€<E6AC8D>
+ 
+-C<$opt>をセットすると、C<tr/$from/$to/$opt>が努脱されます。C<$opt>は
+-'c'、'd'あるいはそれらの寥み圭わせでなければなりません。
+C<$opt>銈掋偦銉冦儓銇欍倠銇ㄣ€丆<tr/$from/$to/$opt>銇岄仼鐢ㄣ仌銈屻伨銇欍€侰<$opt>銇<>
+'c'銆<>'d'銇傘倠銇勩伅銇濄倢銈夈伄绲勩伩鍚堛倧銇涖仹銇<E4BBB9>亼銈屻伆銇<E4BC86>倞銇俱仜銈撱€<E692B1>
+ 
+-$j->nmatchを奶じてマッチした眶を艰评できます。
+$j->nmatch銈掗€氥仒銇︺優銉冦儊銇椼仧鏁般倰鍙栧緱銇с亶銇俱仚銆<E4BB9A>
+ 
+-Perl 5.8.1笆惯では、trの妨及に疙りのあった眷圭に-E<gt>error_trを奶じて、
+-$@を艰评できます。
+Perl 5.8.1浠ラ檷銇с伅銆乼r銇<EFBFBD>舰寮忋伀瑾ゃ倞銇<EFBFBD>亗銇ｃ仧鍫村悎銇<EFBFBD>-E<gt>error_tr銈掗€氥仒銇︺€<EFB8BA>
+$@銈掑彇寰椼仹銇嶃伨銇欍€<E6AC8D>
+ 
+-笆布のメソッドはPerl 5.8.1笆惯でのみ网脱材墙です。
+浠ヤ笅銇<E7AC85>儭銈姐儍銉夈伅Perl 5.8.1浠ラ檷銇с伄銇垮埄鐢ㄥ彲鑳姐仹銇欍€<EFBFBD>
+ 
+ =item $j-E<gt>s($patter, $replace, $opt);
+ 
+-改」にC<s/$pattern/$replace/$opt>を努脱します。C<$opt>は赖惮山附オプションと
+-票じです。赖惮山附のオプションについてはL<perlre>を徊救ください。
+鍊嬨€呫伀C<s/$pattern/$replace/$opt>銈掗仼鐢ㄣ仐銇俱仚銆侰<$opt>銇<><E98A87>瑕忚〃鐝俱偑銉椼偡銉с兂銇<E58582>
+鍚屻仒銇с仚銆傛<E98A86>瑕忚〃鐝俱伄銈<E4BC84>儣銈枫儳銉炽伀銇ゃ亜銇︺伅L<perlre>銈掑弬鐓с亸銇犮仌銇勩€<E58BA9>
+ 
+-C<< $j->tr() >>、C<< $j->s() >>はそのオブジェクト极咳を手すので、
+-笆布のように拎侯を息冯できます。
+C<< $j->tr() >>銆丆<< $j->s() >>銇<>仢銇<E4BBA2>偑銉栥偢銈с偗銉堣嚜韬<E59A9C>倰杩斻仚銇<E4BB9A>仹銆<E4BBB9>
+浠ヤ笅銇<E7AC85>倛銇嗐伀鎿嶄綔銈掗€ｇ祼銇с亶銇俱仚銆<E4BB9A>
+ 
+   $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>銈掗仼鐢ㄣ仐銇俱仚銆傘亾銇<E4BABE>儭銈姐儍銉夈伅鈥濄偑銉栥偢銈с偗銉堛倰杩斻仌銇<E4BB8C>亜鈥<E4BA9C>
+銇<>仹銆丆<< $j->s() >>銇<>倛銇嗐伀銉°偨銉冦儔銈掗€ｇ祼銇с亶銇<E4BAB6>亜銇撱仺銇<E4BBBA>敞鎰忋仐銇︺亸銇犮仌銇勩€<E58BA9>
+ 
+-赖惮山附の妨及に疙りのあった眷圭、-E<gt>error_m、-E<gt>error_sを奶じて
+-$@を艰评できます。
+姝ｈ<E5A79D>琛ㄧ従銇<E5BE93>舰寮忋伀瑾ゃ倞銇<E5809E>亗銇ｃ仧鍫村悎銆<E6828E>-E<gt>error_m銆<6D>-E<gt>error_s銈掗€氥仒銇<E4BB92>
+$@銈掑彇寰椼仹銇嶃伨銇欍€<E6AC8D>
+ 
+ =back
+ 
+-=head2 インスタンス恃眶
+=head2 銈ゃ兂銈广偪銉炽偣澶夋暟
+ 
+-もしJcodeオブジェクトのインスタンス恃眶にアクセスしたいなら、木儡それら
+-にアクセスするのではなく、アクセスメソッドを网脱しましょう∈これぞOOP
+-です∷。
+-
+-徊雇までに、Jcodeは∈办忍弄な数恕である∷ハッシュリファレンスの洛わりに、
+-芹误リファレンスを蝗うことで、スピ〖ドを呵努步しています∈悸狠のところ、
+-アクセスメソッドを蝗う嘎りこのことを梦る涩妥はありません〃 もう办刨
+-いいますが、これはOOPなのです∷。
+銈傘仐Jcode銈<65>儢銈搞偋銈<E5818B>儓銇<E58493>偆銉炽偣銈裤兂銈瑰<E98A88>鏁般伀銈€偗銈汇偣銇椼仧銇勩仾銈夈€佺洿鎺ャ仢銈屻倝
+銇<>偄銈<E58184>偦銈广仚銈嬨伄銇с伅銇<E4BC85>亸銆併偄銈<E58184>偦銈广儭銈姐儍銉夈倰鍒╃敤銇椼伨銇椼倗銇嗭紙銇撱倢銇濷OP
+銇с仚锛夈€<E5A488>
+
+鍙傝€冦伨銇с伀銆丣code銇<65>紙涓€鑸<E282AC>殑銇<E6AE91>柟娉曘仹銇傘倠锛夈儚銉冦偡銉ャ儶銉曘偂銉<E58182>兂銈广伄浠ｃ倧銈娿伀銆<E4BC80>
+閰嶅垪銉<E59EAA>儠銈°儸銉炽偣銈掍娇銇嗐亾銇ㄣ仹銆併偣銉斻兗銉夈倰鏈€閬╁寲銇椼仸銇勩伨銇欙紙瀹熼殯銇<E6AEAF>仺銇撱倣銆<E580A3>
+銈€偗銈汇偣銉°偨銉冦儔銈掍娇銇嗛檺銈娿亾銇<E4BABE>亾銇ㄣ倰鐭ャ倠蹇呰<E8B987>銇<EFBFBD>亗銈娿伨銇涖倱锛<E580B1> 銈傘亞涓€搴<E282AC>
+銇勩亜銇俱仚銇屻€併亾銈屻伅OOP銇<50>伄銇с仚锛夈€<E5A488>
+ 
+-Perl 5.8.1笆惯では、ハッシュリファレンスを蝗うように恃构されました。
+-これにより、Jcodeの橙磨はものすごく词帽になります。
+Perl 5.8.1浠ラ檷銇с伅銆併儚銉冦偡銉ャ儶銉曘偂銉<EFBFBD>兂銈广倰浣裤亞銈堛亞銇<EFBFBD><EFBFBD>鏇淬仌銈屻伨銇椼仧銆<EFBFBD>
+銇撱倢銇<E580A2>倛銈娿€丣code銇<65>嫛寮点伅銈傘伄銇欍仈銇忕啊鍗樸伀銇<E4BC80>倞銇俱仚銆<E4BB9A>
+ 
+ =over 2
+ 
+ =item $j-E<gt>r_str
+ 
+-EUC矢机误へのリファレンス。
+EUC鏂囧瓧鍒椼伕銇<E4BC95>儶銉曘偂銉<E58182>兂銈广€<E5B9BF>
+ 
+-Perl 5.8.1笆惯ではUTF-8フラグの惟ったUTF-8矢机误へのリファレンスです。
+Perl 5.8.1浠ラ檷銇с伅UTF-8銉曘儵銈般伄绔嬨仯銇烾TF-8鏂囧瓧鍒椼伕銇<E4BC95>儶銉曘偂銉<E58182>兂銈广仹銇欍€<E6AC8D>
+ 
+ =item $j-E<gt>icode
+ 
+-木夺の拎侯における掐蜗矢机コ〖ド。
+鐩磋繎銇<E7B98E>搷浣溿伀銇娿亼銈嬪叆鍔涙枃瀛椼偝銉笺儔銆<E58494>
+ 
+ =item $j-E<gt>nmatch
+ 
+-マッチした眶∈$j->tr霹を蝗ったとき∷。
+銉炪儍銉併仐銇熸暟锛<E69A9F>$j->tr绛夈倰浣裤仯銇熴仺銇嶏級銆<E7B49A>
+ 
+ =back
+ 
+-=head1 サブル〖チン
+=head1 銈点儢銉<E584A2>兗銉併兂
+ 
+ =over 2
+ 
+ =item ($code, [$nmatch]) = getcode($str)
+ 
+-$strの矢机コ〖ドを手します。手るコ〖ドは笆布の奶りです。
+$str銇<72>枃瀛椼偝銉笺儔銈掕繑銇椼伨銇欍€傝繑銈嬨偝銉笺儔銇<E58494>互涓嬨伄閫氥倞銇с仚銆<E4BB9A>
+ 
+- ascii   Ascii ∈泣塑胳コ〖ドを崔まない∷
+- binary  Binary ∈テキストファイルではない∷
+ ascii   Ascii 锛堟棩鏈<E6A3A9>獮銈炽兗銉夈倰鍚<E580B0>伨銇<E4BCA8>亜锛<E4BA9C>
+ binary  Binary 锛堛儐銈<E58490>偣銉堛儠銈°偆銉<E58186>仹銇<E4BBB9>仾銇勶級
+  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には
+-   面粗がないためです。
+銈广偒銉┿兗銈炽兂銉嗐偔銈广儓銇<E58493>唬銈忋倞銇<E5809E>厤鍒椼偝銉炽儐銈<E58490>偣銉堛倰浣裤亞銇ㄣ€佷綍鏂囧瓧鍒嗐伄
+銈炽兗銉夈亴瑕嬨仱銇嬨仯銇熴伄銇嬨倐杩斻仐銇俱仚銆備笂銇<E7AC82>柟銇ц堪銇广仧銈堛亞銇<E4BA9E>€<EFBFBD>$str銇痋$str
+銇с倐妲嬨亜銇俱仜銈撱€<E692B1>
+
+B<jcode.pl 鍒╃敤鑰呫伄鏂广伕锛<E4BC95>> 銇撱伄闁㈡暟銇痡code::getcode()銇<>100%涓婁綅浜掓彌銇<E5BD8C>
+銇傘倞銇俱仚銆傗€曗€曘伨銇傘€併伝銇<E4BC9D>100%锛<>
+
+ * 鎴汇倞鍊ゃ亴閰嶅垪銇<E59EAA>仺銇嶃€併仢銇<E4BBA2>爢鐣<E788A2>伅閫嗐仺銇<E4BBBA>倞銇俱仚锛<E4BB9A>
+   jcode::getcode()銇<>$nmatch銈掓渶鍒濄伀杩斻仐銇俱仚銆<E4BB9A>
+
+ * jcode::getcode()銇<>€丒UC鏂囧瓧銇⊿JIS鏂囧瓧銇<E793A7>暟銇岀瓑銇椼亜銇ㄣ亶銆<E4BAB6>'undef'銈<>
+   杩斻仐銇俱仚銆<E4BB9A> Jcode::getcode()銇疎UC銈掕繑銇椼伨銇欍€傘亾銈屻伅Jcode.pm銇<6D>伅
+   涓<>枔銇屻仾銇勩仧銈併仹銇欍€<E6AC8D>
+ 
+ =item Jcode::convert($str, [$ocode, $icode, $opt])
+ 
+-$strを$ocodeで回年した矢机コ〖ドに恃垂します。$icodeも回年すると、
+-掐蜗矢机误をgetcode()でチェックする洛わりに、$icodeと簿年します。
+-惧の数で揭べたように、$strは\$strでも菇いません。
+$str銈<72>$ocode銇ф寚瀹氥仐銇熸枃瀛椼偝銉笺儔銇<E58494><E98A87>鎻涖仐銇俱仚銆<E4BB9A>$icode銈傛寚瀹氥仚銈嬨仺銆<E4BBBA>
+鍏ュ姏鏂囧瓧鍒椼倰getcode()銇с儊銈с儍銈<E5848D>仚銈嬩唬銈忋倞銇<E5809E>€<EFBFBD>$icode銇ㄤ划瀹氥仐銇俱仚銆<E4BB9A>
+涓娿伄鏂广仹杩般伖銇熴倛銇嗐伀銆<E4BC80>$str銇痋$str銇с倐妲嬨亜銇俱仜銈撱€<E692B1>
+ 
+-B<jcode.pl 网脱荚の数へ¨> この簇眶はjcode::convert()と100%惧疤高垂が
+-あります—
+B<jcode.pl 鍒╃敤鑰呫伄鏂广伕锛<E4BC95>> 銇撱伄闁㈡暟銇痡code::convert()銇<>100%涓婁綅浜掓彌銇<E5BD8C>
+銇傘倞銇俱仚锛<E4BB9A>
+ 
+ =back
+ 
+-=head1 バグ
+=head1 銉愩偘
+ 
+-Perlが5.8.1笆惯の眷圭、JcodeはL<Encode>のラッパ〖として慷る神います。
+-つまり、JcodeはEncode柒のバグの逼读を减けます。
+Perl銇<6C>5.8.1浠ラ檷銇<EFBFBD>牬鍚堛€丣code銇疞<Encode>銇<>儵銉冦儜銉笺仺銇椼仸鎸<E4BBB8>倠鑸炪亜銇俱仚銆<E4BB9A>
+銇ゃ伨銈娿€丣code銇疎ncode鍐呫伄銉愩偘銇<E58198>奖闊裤倰鍙椼亼銇俱仚銆<E4BB9A>
+ 
+-=head1 颊辑
+=head1 璎濊緸
+ 
+-このパッケ〖ジは、瓢怠、デザインそしてコ〖ドの驴くの爬で、
+-参洛 下赖 <utashiro@iij.ad.jp>会のPerl4ライブラリjcode.plに砷っています。
+銇撱伄銉戙儍銈便兗銈搞伅銆佸嫊姗熴€併儑銈躲偆銉炽仢銇椼仸銈炽兗銉夈伄澶氥亸銇<E4BAB8>偣銇с€<D181>
+姝屼唬 鍜屾<E98D9C> <utashiro@iij.ad.jp>姘忋伄Perl4銉┿偆銉栥儵銉猨code.pl銇<6C>矤銇ｃ仸銇勩伨銇欍€<E6AC8D>
+ 
+-络宏 穷答 <ohzaki@iod.ricoh.co.jp>会は、倡券の润撅に介袋の檬超から
+-赖惮山附を酸きあげる缄锦けをしてくれました。
+澶у磶 鍗氬熀 <ohzaki@iod.ricoh.co.jp>姘忋伅銆侀枊鐧恒伄闈炲父銇<E788B6>垵鏈熴伄娈甸殠銇嬨倝
+姝ｈ<E5A79D>琛ㄧ従銈掔（銇嶃亗銇掋倠鎵嬪姪銇戙倰銇椼仸銇忋倢銇俱仐銇熴€<E786B4>
+ 
+-makamaka@donzoko.net の JEncode には、JcodeとEncodeをどう突圭させれば
+-いいか络恃络きな芳绩を减けました。また、塑泣塑胳マニュアルも大拢して
+-いただきました。
+makamaka@donzoko.net 銇<> JEncode 銇<>伅銆丣code銇‥ncode銈掋仼銇嗚瀺鍚堛仌銇涖倢銇<E580A2>
+銇勩亜銇嬪ぇ澶夊ぇ銇嶃仾鍟撶ず銈掑彈銇戙伨銇椼仧銆傘伨銇熴€佹湰鏃ユ湰瑾炪優銉嬨儱銈€儷銈傚瘎璐堛仐銇<E4BB90>
+銇勩仧銇犮亶銇俱仐銇熴€<E786B4>
+ 
+-そしてJcode ML <jcode5@ring.gr.jp>の厂さん。この数茫なしには、
+-ここまで窗喇しなかったことでしょう。
+銇濄仐銇<E4BB90>code ML <jcode5@ring.gr.jp>銇<>殕銇曘倱銆傘亾銇<E4BABE>柟閬斻仾銇椼伀銇<E4BC80>€<EFBFBD>
+銇撱亾銇俱仹瀹屾垚銇椼仾銇嬨仯銇熴亾銇ㄣ仹銇椼倗銇嗐€<E59790>
+ 
+-=head1 徊雇
+=head1 鍙傝€<E5829D>
+ 
+ L<Encode>
+ 
+ L<http://www.iana.org/assignments/character-sets>
+ 
+-=head1 螟侯涪
+=head1 钁椾綔妯<E7B694>
+ 
+ Copyright 1999-2005 Dan Kogai <dankogai@dan.co.jp>
+ 
--- a/Jcode-2.07.tar.gz
+++ b/Jcode-2.07.tar.gz
--- a/perl-Jcode.spec
+++ b/perl-Jcode.spec
@ -0,0 +1,78 @@
+Name:          perl-Jcode
+Version:       2.07
+Release:       1
+Summary:       Perl extension interface for converting Japanese text
+License:       GPL+ or Artistic
+URL:           https://metacpan.org/release/Jcode
+Source0:       https://cpan.metacpan.org/authors/id/D/DA/DANKOGAI/Jcode-%{version}.tar.gz
+Patch0:        Jcode-2.07-UTF-8.patch
+BuildArch:     noarch
+# Module Build
+BuildRequires: coreutils
+BuildRequires: findutils
+BuildRequires: make
+BuildRequires: perl-generators
+BuildRequires: perl-interpreter
+BuildRequires: perl(ExtUtils::MakeMaker)
+# Module Runtime
+BuildRequires: perl(Carp)
+BuildRequires: perl(DynaLoader)
+BuildRequires: perl(Encode)
+BuildRequires: perl(Encode::Alias)
+BuildRequires: perl(Encode::Guess)
+BuildRequires: perl(Encode::JP::H2Z)
+BuildRequires: perl(Exporter)
+BuildRequires: perl(MIME::Base64)
+BuildRequires: perl(overload)
+BuildRequires: perl(Scalar::Util)
+BuildRequires: perl(strict)
+BuildRequires: perl(vars)
+# Test Suite
+BuildRequires: perl(Data::Dumper)
+BuildRequires: perl(diagnostics)
+BuildRequires: perl(lib)
+BuildRequires: perl(Test)
+BuildRequires: perl(Test::More)
+# Dependencies
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:       perl(Encode)
+Requires:       perl(Encode::Alias)
+Requires:       perl(Encode::Guess)
+Requires:       perl(Encode::JP::H2Z)
+Requires:       perl(MIME::Base64)
+Requires:       perl(Scalar::Util)
+
+%description
+%{summary}.
+
+%prep
+%setup -q -n Jcode-%{version}
+
+# Fix character encoding of pod file
+%patch0 -p1 -b .timestamp
+touch --reference=Jcode/Nihongo.pod.timestamp Jcode/Nihongo.pod
+rm Jcode/Nihongo.pod.timestamp
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+%{_fixperms} -c %{buildroot}
+
+%check
+make test
+
+%files
+%doc Changes* README
+%{perl_vendorlib}/Jcode.pm
+%dir %{perl_vendorlib}/Jcode/
+%doc %{perl_vendorlib}/Jcode/Nihongo.pod
+%{_mandir}/man3/Jcode.3*
+%{_mandir}/man3/Jcode::Nihongo.3*
+
+%changelog
+* Wed Jul 06 2022 misaka00251 <misaka00251@misakanet.cn> - 2.07-1
+- Init package (Thanks to fedora team)