On Apache
Under GNU General Public License
2025-02-22 09:51 @18.118.255.51 CrawledBy Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)
Jcode::Nihongo(3pm) User Contributed Perl Documentation Jcode::Nihongo(3pm)
Jcode -
use Jcode;
#
#
Jcode::convert($str, $ocode, $icode, "z");
#
print Jcode->new($str)->h2z->tr($from, $to)->utf8;
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"getcode()" "convert()"
Perl5.8.1JcodePerl 5.8 Encode
Jcode
$j = Jcode->new($str [, $icode])
$strJcode$j$icode getcode
Perl 5.8.1$icodeEncode
$j = Jcode->new($european, 'iso-latin1');
EUC "print $j->euc""print $j"
Jcode->new(\$str);
$str $strjcode"tie"
$j->set($str [, $icode])
$j$strJcode
# mailboxSJIS
my $jconv = new Jcode;
$/ = 00;
while(<>){
print $jconv->set(\$_)->mime_decode->sjis;
}
$j->append($str [, $icode]);
$j$str
$j = jcode($str [, $icode]);
Jcode->new()
$sjis = jcode($str)->sjis;
$j->encodedencoded
$sjis = $j->sjis
$euc = $j->euc
$jis = $j->jis
$sjis = $j->sjis
$ucs2 = $j->ucs2
$utf8 = $j->utf8
WYCIWYG = What you code is what you get :)
$iso_2022_jp = $j->iso_2022_jp
"$j->h2z->jis"
Perl 5.8.1Encode
$european = $j->iso_latin1; # '-''_'
Encode::Encoder
$j->fallback($fallback)
Perl 5.8.1JcodeUTF-8 ->encoding'?' Encode
my $unistr = "\x{262f}"; #
my $j = jcode($unistr); # $j->euc '?'
Encode Encode"Jcode::FB_PERLQQ" "Jcode::FB_XMLCREF""Jcode::FB_HTMLCREF"Encode
print $j->fallback(Jcode::FB_PERLQQ)->euc; # '\x{262f}'
print $j->fallback(Jcode::FB_XMLCREF)->euc; # '☯'
print $j->fallback(Jcode::FB_HTMLCREF)->euc; # '☯'
$Jcode::FALLBACK
$Jcode::FALLBACK = Jcode::FB_PERLQQ; #
[@lines =] $jcode->jfold([$width, $newline_str, $kref])
$width72jcode $width""2
$newline_str"\n"
Perl 5.8.13$krefEUC
$length = $jcode->jlength();
MIME::Base64
MIME::Base64
perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'
Perl5.6MIME::Base64
$mime_header = $j->mime_encode([$lf, $bpl])
$strRFC1522MIME-Header$lf $lf\n $bpl$bpl76 76
Perl 5.8.1MIME Header
$mime_header = $j->MIME_Header;
$mime_headerMIME-B-encoded UTF-8 "$j->mime_encode()"MIME-B-encoded ISO-2022-JP
$j->mime_decode;
JcodeMIME-HeaderPerl 5.8.1
Jcode->new($str, 'MIME-Header');
ISO-2022-JPUTF-8 MIME B EncodingMIME Q Encoding Perl 5.8.1
<-->
$j->h2z([$keep_dakuten])
X201X208 $keep_dakuten ( )
$j->nmatch
$j->z2h
X208X201
$j->nmatch
"->m()""->s()"Perl 5.8.1
$j->tr($from, $to, $opt);
Jcode"tr/$from/$to/"$from$to EUC-JPPerl 5.8.1flagUTF-8
$opt"tr/$from/$to/$opt"$opt 'c''d'
$j->nmatch
Perl 5.8.1tr->error_tr $@
Perl 5.8.1
$j->s($patter, $replace, $opt);
"s/$pattern/$replace/$opt"$opt perlre
"$j->tr()""$j->s()"
$j->tr("A-Z", "a-z")->s("foo", "bar");
[@match = ] $j->m($pattern, $opt);
"m/$patter/$opt""" "$j->s()"
->error_m->error_s $@
Jcode OOP
Jcode OOP
Perl 5.8.1 Jcode
$j->r_str
EUC
Perl 5.8.1UTF-8UTF-8
$j->icode
$j->nmatch
$j->tr
($code, [$nmatch]) = getcode($str)
$str
ascii Ascii
binary Binary
euc EUC-JP
sjis SHIFT_JIS
jis JIS (ISO-2022-JP)
ucs2 UCS2 (Raw Unicode)
utf8 UTF8
$str\$str
jcode.pl jcode::getcode()100% 100%
*
jcode::getcode()$nmatch
* jcode::getcode()EUCSJIS'undef'
Jcode::getcode()EUCJcode.pm
Jcode::convert($str, [$ocode, $icode, $opt])
$str$ocode$icode getcode()$icode $str\$str
jcode.pl jcode::convert()100%
Perl5.8.1JcodeEncode JcodeEncode
<utashiro AT iij.jp>Perl4jcode.pl
<ohzaki AT iod.jp>
makamaka AT donzoko.net JEncode JcodeEncode
Jcode ML <jcode5 AT ring.jp>
Encode
<http://www.iana.org/assignments/character-sets>
Copyright 1999-2005 Dan Kogai <dankogai AT dan.jp>
This library is free software; you can redistribute it and/or modify it under the same
terms as Perl itself.
perl v5.32.1 2021-12-26 Jcode::Nihongo(3pm)
Generated by $Id: phpMan.php,v 4.55 2007/09/05 04:42:51 chedong Exp $ Author: Che Dong
On Apache
Under GNU General Public License
2025-02-22 09:51 @18.118.255.51 CrawledBy Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)