Jcode - Japanese Charset Handler
Jcode::convert(\$str, $ocode, $icode, "z");
# or OOP!
print Jcode->new($str)->h2z->tr($from, $to)->utf8;
Jcode.pm supports both object and traditional approach. With object approach, you can go like;
$iso_2022_jp = Jcode->new($str)->h2z->jis;
Which is more elegant than;
$iso_2022_jp = &jcode::convert(\$str,'jis',jcode::getcode(\str), "z");
For those unfamiliar with objects, Jcode.pm still supports getcode() and convert().
Methods mentioned here all return Jcode object unless otherwise mentioned.
Creates Jcode object $j from $str. Input code is automatically checked unless you explicitly set $icode. For available charset, see getcode below.
The object keeps the string in EUC format enternaly. When the object itself is evaluated, it returns the EUC-converted string so you can "print $j;" without calling access method if you are using EUC (thanks to function overload).
Instead of scalar value, You can use reference as
This saves time a little bit. In exchange of the value of $str being converted. (In a way, $str is now "tied" to jcode object).
Sets $j's internal string to $str. Handy when you use Jcode object repeatedly (saves time and memory to create object).
# converts mailbox to SJIS format
my $jconv = new Jcode;
$/ = 00;
Appends $str to $j's internal string.
shortcut for Jcode->new() so you can go like;
$sjis = jcode($str)->sjis;
What you code is what you get :)
Same as $j->z2h->jis. Hankaku Kanas are forcibly converted to Zenkaku.
folds lines in jcode string every $bytes_per_line (default: 72) in a way that does not clobber the multibyte string. (Sorry, no Kinsoku done!) with a newline string spified by $newline_str (default: \n).
returns character length properly, rather than byte length.
To use methods below, you need MIME::Base64. To install, simply
perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'
Converts $str to MIME-Header documented in RFC1522. When $lf is specified, it uses $lf to fold line (default: \n). When $bpl is specified, it uses $bpl for the number of bytes (default: 76; this number must be smaller than 76).
Decodes MIME-Header in Jcode object.
You can retrieve the number of matches via $j->nmatch;
Methods below are actually implemented in Jcode::H2Z.
Converts X201 kana (Hankaku) to X208 kana (Zenkaku). When $keep_dakuten is set, it leaves dakuten as is (That is, "ka + dakuten" is left as is instead of being converted to "ga")
Converts X208 kana (Zenkaku) to X201 kana (Hankaku).
Methods here are actually implemented in Jcode::Tr.
Applies tr on Jcode object. $from and $to can contain EUC Japanese.
If your perl does not support XS (or you can't perl Makefile.PL, Jcode::Unicode::NoXS will be used.
See Jcode::Unicode and Jcode::Unicode::NoXS for details
Returns UCS2 (Raw Unicode) string.
Returns utf8 String.
If you need to access instance variables of Jcode object, use access methods below instead of directly accessing them (That's what OOP is all about)
FYI, Jcode uses a ref to array instead of ref to hash (common way) to optimize speed (Actually you don't have to know as long as you use access methods instead; Once again, that's OOP)
Reference to the EUC-coded String.
Input charcode in recent operation.
Number of matches (Used in $j->tr, etc.)
Returns char code of $str. Return codes are as follows
ascii Ascii (Contains no Japanese Code)
binary Binary (Not Text File)
jis JIS (ISO-2022-JP)
ucs2 UCS2 (Raw Unicode)
When array context is used instead of scaler, it also returns how many character codes are found. As mentioned above, $str can be \$str instead.
jcode.pl Users: This function is 100% upper-conpatible with jcode::getcode() -- well, almost;
* When its return value is an array, the order is the opposite;
jcode::getcode() returns $nmatch first.
* jcode::getcode() returns 'undef' when the number of EUC characters
is equal to that of SJIS. Jcode::getcode() returns EUC. for
Jcode.pm there is no in-betweens.
Converts $str to char code specified by $ocode. When $icode is specified also, it assumes $icode for input string instead of the one checked by getcode(). As mentioned above, $str can be \$str instead.
jcode.pl Users: This function is 100% upper-conpatible with jcode::convert() !
Unicode support by Jcode is far from efficient!
Hopefully Jcode will be superceded by Encode module that is part of the standard module on Perl 5.7 and up
This package owes a lot in motivation, design, and code, to the jcode.pl for Perl4 by Kazumasa Utashiro <email@example.com>.
Hiroki Ohzaki <firstname.lastname@example.org> has helped me polish regexp from the very first stage of development.
And folks at Jcode Mailing list <email@example.com>. Without them, I couldn't have coded this far.
Copyright 1999 Dan Kogai <firstname.lastname@example.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Jcode, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell
For more information on module installation, please visit the detailed CPAN module installation guide.