SeaRiver Blog

实力才是你一生最好的依靠!

日志

关于我

SeaRiver

强者恒强,弱者恒弱!

文章分类

Jcode.pm

2009-02-28 15:51:41| 分类： perl | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

Jcode.pm是一个带有C库的Perl模块，用于在日文编码间转换。它允许在SJIS/EUC/JIS/UTF8之间转换，用mblength 函数来正确地计算一个多字节字符串中的字符，用 mbsendmail()来使用JIS编码对电子邮件消息编码，用discover() 来猜测输入字符串码。
================================================================================

Jcode.pm - a successor to jcode.pl, a bridge to Encode.pm

[English][Japanese]

Last Modified:Sunday, 11-May-2008 03:16:47 JST

by Dan Kogai

As of Perl 5.8.0, all the Jcode capabilities are avaialble in standard distribution via Encode module Though I will maitain Jcode for old perls, I recommend that you use Encode if your perl is new enough. Encode more featureful, robust, and most of all, standard.

As of Jcode 2.0, Jcode now acts as a wrapper to Encode for perl 5.8.1 and better.

In those cases, Jcode.pm is self-contained so you don't even have to make install. All you have to do is copy Jcode.pm to the library path, a la jcode.pl.

For older perls, Jcode works the same as version 0.88.

Jcode.pm

Is a Perl module that handles various Japanese charsets. It has all features available on jcode.pl-2.10 PLUS

Object-oriented approach on Japanese text handling
mime header handling
Unicode feature (UCS2 and UTF8)

Here is the documentation, Jcode.html Which is pod2html'd from Jcode.pm.

History

See Changes for changes. Old Changes are available as Changes.ver0X.

Questions and bug reports

Now that Jcode.pm is an official OpenLab Project, Jcode.pm has an official mailing list for that purpose.

To subscribe, mail to jcode5-request@ring.gr.jp with "subscribe" in the body.
Once subscribed, mail to jcode5@ring.gr.jp.

Install

is easy.

via CPAN

This is more recommended because of the network bandwidth. Also note CPAN modules checks the version number so you can always download the latest version that way.

Make sure you have perl5. Jcode.pm is for perl5 only.
run CPAN module. Just
$ perl -MCPAN -e shell

via shell
if this is your first time running CPAN module, it will ask a series of questions, mostly about your network. Just fill it in and you are ready to go. As for the choice of mirror sites, try
http://www.ring.gr.jp/pub/lang/perl/CPAN/

If you are in Japan.
now all you have to do is "install Jcode" as follows;
cpan> install Jcodeand CPAN module takes care of the rest. It downloads the necessary tarball, untargiz, make, make test and make install.

via Tarball

If you are too insatiable to wait for CPAN to update, here's how.

Make sure you have perl5. Jcode.pm is for perl5 only.
download Jcode-2.07.tar.gz or Jcode-2.07.zip.
$ gunzip Jcode-*.tar.gz | tar xf - # or "tar zxf Jcode-x.xx.tar.gz" if your tar is gnu
$ cd Jcode-*
$ perl Makefile.PL; make; make install

Attention: Pre-0.50 users

If you have installed Jcode prior to version 0.50 manually (That is, without "perl Makefile.PL" trick. So this applies to Mac and Windows users only), please delete old version of Jcode.pm and Jcode directory in @INC manually before installing the new version.

When unicode conversion is needed, newer version of Jcode first tries to load Jcode::Unicode and if it fails (case for Mac, Windows, or such environment where XS is not supported), load Jcode::Unicode::NoXS. So Jcode gets confused if an older version of Jcode/Unicode.pm file still remains. Sorry for inconvenience.

Examples

here's some.

Migrating from jcode.pl

Replace all occurance of "require 'jcode.pl';" with "use Jcode;"
Replace all occurance of "jcode::" with "Jcode::"

This much should suffice for most cases.

Convert files at once.

perl -MJcode -i.bak -lpe 'Jcode::convert(\$_, "charcode")' files...

or

perl -MJcode -i.bak -lne 'print jcode(\$_)->charcode' files...

original files are ".bak"

Check your mailbox

perl -MJcode -00lne 'print jcode($_)->mime_decode->charcode' $mail

Why reinvent the wheel?

With Encode This section is somewhat obsolete but I'll leave it anyhow.

Virtually all Japanese perl coders must have used jcode.pl, a perl code that converts Japanese text from one char set or another. While jcode.pl has all the functinalities necessary, it has following problems;

Perl5-compliance

While it runs OK on perl5, you have to use typegrobs or references to givejcode::convert() right arguments. It doesn't look great to say

jcode::convert(\$str, 'jis', jcode::getcode(\$str), "z"); print $str;

Wouldn't it be nice if you can go like;

print jcode($str)->h2z->jis;

to do the same?

MIME header support

RFC1522 states that converting string to iso-2022-jp is not enought to put it into MIME header. You have to further convert the string with base64, then sandwitch that with =?ISO-2022-JP?B? and ?=. Wouldn't it be nice if you can

$header = jcode($str)->encode_mime;

Unicode support

I am not a big fan of Unicode but we have to admit the future is there...

评论这张

转发至微博

阅读(1473)| 评论(0)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_085074085087087067086094095095085095089067084084087068',
              blogTitle:'Jcode.pm',
              blogAbstract:'<P\>Jcode.pm是一个带有C库的Perl模块，用于在日文编码间转换。它允许在SJIS/EUC/JIS/UTF8之间转换，用mblength 函数来正确地计算一个多字节字符串中的字符，用 mbsendmail()来使用JIS编码对电子邮件消息编码，用discover() 来猜测输入字符串码。 <BR\>================================================================================</P\>  <H1 align=\"center\" \>Jcode.pm - a successor to jcode.pl, a bridge to Encode.pm</H1\>  <P align=\"center\" \>[<B\>English</B\>][<A rel=\"nofollow\"\></A\></P\>',
              blogTag:'',
              blogUrl:'blog/static/19800217200912835141524',
              isPublished:1,
              istop:false,
              type:0,
              modifyTime:1317431701745,
              publishTime:1235807501524,
              permalink:'blog/static/19800217200912835141524',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'强者恒强,弱者恒弱!',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/19800217200912835141524">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

SeaRiver Blog

导航

日志

Jcode.pm

Jcode.pm - a successor to jcode.pl, a bridge to Encode.pm

Jcode.pm

History

Questions and bug reports

Install

via CPAN

via Tarball

Attention: Pre-0.50 users

Examples

Migrating from jcode.pl

Convert files at once.

Check your mailbox

Why reinvent the wheel?

Perl5-compliance

MIME header support

Unicode support

历史上的今天

最近读者

热度

评论

页脚