Sjis/JA.pm - metacpan.org

1;
__END__

=pod

=encoding Shift_JIS

=head1 NAME

Sjis-JA - JAPANESE DOCUMENT

=head1 vñ

=head2 gpO

  #!/usr/bin/perl
  use utf8;
  use open IO => ":encoding(cp932)";
  binmode STDIN => ":encoding(cp932)";
  binmode STDOUT => ":encoding(cp932)";
  binmode STDERR => ":encoding(cp932)";
  use Encode;
  
  my $char_length = length("}`oCg¶ñ"); # ¶ðÔ·
  use bytes; # -- don't use it. just forget about it.
  my $byte_length = bytes::length("}`oCg¶ñ"); # oCgðÔ·

=head2 gpã

XNvg ShiftJIS_script.pl ÌÉÈºðLqµÄ...

  #!/usr/bin/perl
  use Sjis;
  
  my $byte_length = length("}`oCg¶ñ"); # ±êÜÅÊèoCgðÔ·
  my $char_length = Sjis::length("}`oCg¶ñ"); # V@\ÆµÄ¶ðÔ·

R}hvvgÅÈºÌæ¤ÉÀs·é

  perl ShiftJIS_script.pl argv1 argv2 ...

Sjis\tgEFAÍAShiftJIS ÉæÁÄ©ê½ Perl XNvgÆperlC^v^
ÌÔÉÊu·é~hEFAÅ·B

Perl ÍAeLXgª90%A»êÈOÌª10%Å\¬³êéâèÉü¯ÄÅK»³
êÄ¢éÆ¾íêÄ¢Ü·B±±Å¢¤eLXgÉ ShiftJIS ªÜÜêÈ©Á½ÆµÄà
Perl3 È~Å êÎoCif[^ðµ¦éÌÅAShiftJIS f[^ðoCif[^Æ
µÄµ¤±ÆªÂ\Å·B

"use Sjis;" ÉæÁÄAXNvgð ShiftJIS ÅLq·é±ÆªÅ«éæ¤ÉÈèA
³K\»ðÍ¶ßÆ·é perl Ìeí@\Í ShiftJIS ÉÎ·éæ¤ÉÈèÜ·B
Ö length ªµ¤·³ÌPÊÍoCgÌÜÜÅAUTF8tOÍgpµÜ¹ñB

=head1 ±Ì¶Ì\LÌÔêÉÂ¢Ä

¢íäéVtgJISÉÎ·é¼ÌÉÂ¢ÄA±Ì¶ÅÍ ShiftJIS Æµ½èVtgJIS
Æµ½è Shift-JIS Æµ½èµÄ¢Ü·ªAÓ¡·éàÌÍ¯¶¾Æl¦Ä¾³¢B
±êçðLq·éÛÉQÆµ½¿ª Á½êATË»ÌÜÜÌ\LðcµÄ¢Ü·B
»êçðÏXµÈ¢Ù¤ªæ¢ÆvÁ½½ßA±Ì¶SÌÆµÄÍê³êÄ¢Ü¹
ñB ç©¶ß²¹³¾³¢B

=head1 à¤ÐÆÂÌ¢(Ýç¢)

JPerl ÍÆÄàDê½\tgEFAÅ·B¨ÁÆA±±Å¢¤ JPerl Íú{êÎÅÌ
Perl Ì±ÆÅAJava â JVM ÆÍÖWª èÜ¹ñBëð³ê½èAúÒ³ê½è·é
Ìà¢éÌÅA±Ì\tgEFAÍ Sjis Æ¢¤¼OÉµÜµ½B»ÌãAgbvx
Ì¼Oðð¯é½ß Char::Sjis Æ¢¤¼OÅfBXgr[Vðì¬·éæ¤É
µÜµ½ªA È½ª CPAN eX^[Ü½Í CPAN ^cÖWÒÅÈ¢ÌÈç±êÜÅÇ¨
è Sjis.pm, Esjis.pm ðgÁÄ¾³¢B

Æ±ëÅA»Ì JPerl Ío[W 5.005_04 È~AeiX³êÄ¢Ü¹ñB

åÏcOÈ±ÆÉAJPerlÌJðsÁ½nÓ ¶³ñÍ The Perl Confernce Japan
1998 ÉÄ

  "í½È×Íæê½©çÌlæëµË"

Æ¢¤bZ[WðcµAPerl ©ç£êÄ¢ÁÄµÜ¢Üµ½B

XCh15 "jperl Ì¡ã"

ftp://ftp.oreilly.co.jp/pcjp98/watanabe/jperlconf.ppt

«ÁÆN©ªø«p¢Å¢Äêé¾ë¤B
ÈÇÆúÒðµÈªç10NÔAÒ¿±¯éÔÉ¢EÍá¤ûüÖÆiñÅ¢ÌÅµ½B

±Ì\tgEFAÍ ShiftJIS Å©ê½ Perl XNvgðGXP[v·é½ßÌ
\[XR[htB^Å·BGXP[vÉæÁÄ¶R[hªÏ»·é±ÆÍ è
Ü¹ñBàµÏ»µ½êÍAoOÅ·ÌÅñ¸¯éÆ èª½¢Å·B

¬÷µ½\tgEFA©çÈºÌ±ÆðwñÅ±Ì\tgEFAÍì¬³êÜµ½B

=over 2

=item * Perl4 ©ç Perl5 Ìæ¤ÈãÊÝ·«

=item * jcode.pl Ìæ¤ÈÅåÀÌÚA«

=item * JPerl Ìæ¤ÉUTF8tOðgí¸AShiftJISð»ÌÜÜµ¢APerl Í1ÂÌ¾êÌÜÜ

=item * Encode W[Ìæ¤É Perl Í1ÂÌC^v^ÌÜÜ

=item * Ruby Ìæ¤É¶WÆ§Èè@

=item * cpanminus Ìæ¤ÉmVbNÈXNvg

=item * Perl ©gÌæ¤É TMTOWTDI(There's more than one way to do it)

=back

±Ì\tgEFAÆPerlÌ¢ÉÂ¢Äl¦éÆ¹ªÇ«Ç«µÜ·BÝÈ³ñ¾ÁÄ
«ÁÆ»¤Åµå¤H

=head1 î{IÈdgÝ

ÅßAÈºÌ[ðÄ©µÜµ½B

[Tokyo.pm] jus Benkyoukai

http://mail.pm.org/pipermail/tokyo-pm/1999-September/001854.html

("SJIS.pm" Æ¢¤t@C¼ÅÛ¶³êÄ¢éàÌÆµÜ·)

  package SJIS;
  use Filter::Util::Call;
  sub multibyte_filter {
      my $status;
      if (($status = filter_read()) > 0 ) {
          s/([\x81-\x9f\xe0-\xef])([\x40-\x7e\x80-\xfc])/
              sprintf("\\x%02x\\x%02x",ord($1),ord($2))
          /eg;
      }
      $status;
  }
  sub import {
      filter_add(\&multibyte_filter);
  }
  1;

î{IÉÍA±Ì\tgEFAÍãLÌæ¤È±Æðs¢Ü·B
½¾µAFilter::Util::Call ðpµÄ¢È¢_APerl Ì\¶ððÍµÄKvÉ¶Ä
GXP[v·é_ªÙÈèÜ·B

=head1 CXg[û@(ÈPÈû@)

   CPAN ©ç Sjis.pm Æ Esjis.pm ð_E[hµ Perl Ì lib fBNgÉi[µÜ·B

=head1 CXg[û@(makeðg¤ê)

   perl Makefile.PL
   make test
   make install

=head1 CXg[û@(makeðgíÈ¢ê)

   perl pMakefile.pl          --- pMakefile.pl ª pmake.bat ð¶¬µÜ·
   pmake.bat
   pmake.bat test
   pmake.bat install          --- »ÝgpÌ perl Â«ÉCXg[µÜ·
   pmake.bat dist             --- CPAN zzppbP[WðìèÜ·
   pmake.bat ptar.bat         --- ptar.bat ðì¬µÜ·

=head1 \tgEFAÌê

   Sjis.pm               --- ShiftJIS \[XR[htB^
   Esjis.pm              --- Sjis.pm Ì^C[`
   Char/Sjis.pm          --- CPANeX^[ü¯Ì Sjis.pm
   Char/Esjis.pm         --- CPANeX^[ü¯Ì Esjis.pm

=head1 DOSVXeÉ¨¯éR}hCÌChJ[hWJ

DOSVXeÌWVF(COMMAND.COM ¨æÑ cmd.exe)ÍAN®·évOÖn·
p[^ÌChJ[hWJðs¢Ü¹ñB»ÌãíèÆµÄ Esjis.pm àÌ import
ÖªChJ[hWJðs¤æ¤ÉÈÁÄ¢Ü·B

   Ql Esjis.pm ©ç²
   #
   # @ARGV wildcard globbing
   #
   sub import {

       if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
           my @argv = ();
           for (@ARGV) {

               # has space
               if (/\A (?:$q_char)*? [ ] /oxms) {
                   if (my @glob = Esjis::glob(qq{"$_"})) {
                       push @argv, @glob;
                   }
                   else {
                       push @argv, $_;
                   }
               }

               # has wildcard metachar
               elsif (/\A (?:$q_char)*? [*?] /oxms) {
                   if (my @glob = Esjis::glob($_)) {
                       push @argv, @glob;
                   }
                   else {
                       push @argv, $_;
                   }
               }

               # no wildcard globbing
               else {
                   push @argv, $_;
               }
           }
           @ARGV = @argv;
       }
   }

=head1 ßÄÌJPerl

   g¢û(»Ì1)

    1. XNvg ShiftJIS_script.pl ÌÉÈºÌ¢¸ê©ðLqµÄ...

      use Sjis;
      use Sjis ver.sion;              --- Sjis.pm Ìo[Wª ver.sion ÈãÈçÀsÂ
      use Sjis ver.sion.0;            --- Sjis.pm Ìo[Wª ver.sion ÅÈ¯êÎ die ·é
      use Sjis qw(ord reverse getc);  --- ord, reverse, getc Ìg£@\ðg¤ê
      use Sjis ver.sion qw(ord reverse getc);
      use Sjis ver.sion.0 qw(ord reverse getc);

      ¦ no Sjis; ÍpÅ«Ü¹ñB

      use Sjis ver.sion.0; `®¾Æ Sjis\tgEFAÌo[WÌãÀEºÀÌoû
      ðwèÅ«Ü·BÀsÌ Sjis\tgEFAªLqµ½o[WÆÒÁ½è¯¶Å
      È¢ÈçÎ die µÜ·Bá¦ÎAuse Sjis 0.88.0; ÆLq·éÆ Sjis\tgEFA
      Ìo[Wª 0.88 Å é±ÆðÛáÅ«Ü·B

    2. R}hvvgÅÈºÌæ¤ÉÀs·é

      perl  ShiftJIS_script.pl  wild*  *card  and  '*quote*'  on MSWin32

      ? * ðgÁÄChJ[hÌwèªÅ«Ü·
      ' ` ' ðgÁÄNH[g·é±ÆªÅ«Ü·

   g¢û(»Ì2)

    R}hvvgÅÈºÌæ¤ÉÀs·é

      C:\>perl  Sjis.pm  ShiftJIS_script.pl  >  Escaped_script.pl.e
      C:\>perl  Escaped_script.pl.e

      ShiftJIS_script.pl  --- ShiftJIS Å©ê½XNvg
      Escaped_script.pl.e --- GXP[v³ê½XNvg

   g¦éTu[`ÆÖ
      Sjis::ord(...);
      Sjis::reverse(...);
      Sjis::getc(...);
      Sjis::length(...);
      Sjis::substr(...);
      Sjis::index(...);
      Sjis::rindex(...);
      Sjis::eval(...);
      CORE::chop(...);
      CORE::ord(...);
      CORE::reverse(...);
      CORE::getc(...);
      CORE::index(...);
      CORE::rindex(...);

   ÈºÍ_~[Tu[`ÆµÄpÓ³êÄ¢é
      utf8::upgrade(...);
      utf8::downgrade(...);
      utf8::encode(...);
      utf8::decode(...);
      utf8::is_utf8(...);
      utf8::valid(...);
      bytes::chr(...);
      bytes::index(...);
      bytes::length(...);
      bytes::ord(...);
      bytes::rindex(...);
      bytes::substr(...);

=head1 GXP[vÉæéãÊÝ·«ÌmÛ

±Ì\tgEFAÍßÌàÌðóµ½èÍ¹¸AíÉuGXP[vvÉæÁÄ@\ðÇÁ
µÄ¢Ü·B¾©ç¡ÜÅÂ\Å Á½±ÆªsÂ\ÉÈé±ÆÍ èÜ¹ñB±ÌAv
[`ÍAãÞªµÄ³êÈ¢ªìÉLøÅ·BÈ¨AãÊÝ·«ÌmÛÌ½ßÉA
Perl©gÌñÝ·Èg£ðæè±Æà èÜ·B

=head1 XNvgÌGXP[v

ì¬µ½XNvgÉ 'use Sjis;' ÆKvª èÜ·B

  ---------------------
  ÈºÌæ¤É«Ü·
  ---------------------
  use Sjis;
  ---------------------

=head1 }`oCg¶ÌGXP[v

±Ì\tgEFAÉæÁÄA}`oCg¶Ìæ2oCgÌ @  [  \  ]  ^  `  {  |  }
Ì¼OÉ chr(0x5c) ª}ü³êÜ·BÎÛÍÈºÌÓÅ·B

=over 2

=item * VONH[gÌ¶ñ ('', q{}, <<'END' and qw{})

=item * _uNH[gÌ¶ñ ("", qq{}, <<END, <<"END", ``, qx{} and <<`END`)

=item * VONH[gÌ³K\» (m'', s''', split(''), split(m'') and qr'')

=item * _uNH[gÌ³K\» (//, m//, ??, s///, split(//), split(m//) and qr//)

=item * tr/// ÌÌ¶ (tr/// and y///)

=back

  á: J^JiÌu\vR[hÍ "\x83\x5C"
  
                  ©¦û  _v
  -----------------------------------------
  source script   "`/"    [83 5c]
  -----------------------------------------
 
  ±±Å use Sjis; ðÀs
                          _v
  -----------------------------------------
  escaped script  "`\/"   [83 [5c] 5c]
  -----------------------------------------
                    ^--- Sjis\tgEFAÅGXP[v³êé
 
  Ql            ©¦û  _v
  -----------------------------------------
  your eye's      "`/\"   [83 5c] [5c]
  -----------------------------------------
  perl eye's      "`\/"   [83] \[5c]
  -----------------------------------------
 
                          _v
  -----------------------------------------
  in the perl     "`/"    [83] [5c]
  -----------------------------------------

=head1 ³K\»ÖÌ}`oCgAJ[OÌÇÁ

Sjis\tgEFAÍ³K\»ÌæªÉ}`oCgAJ[Oðt¯«µÜ·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  m/regexp/               m/${Esjis::anchor}(?:regexp).../
  --------------------------------------------------------------------------------

${Esjis::anchor} ÌïÌIÈàeÉÂ¢ÄÍÊruSjis\tgEFAÌ}`oCgA
J[OvÉLqµÄ èÜ·B

=head1 æ2INebgÌGXP[v

Sjis\tgEFAÍ³K\»Ì}`oCg¶Ìæ2INebgðGXP[vµÜ·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  m{...`/...}             m{...`/\...}
  --------------------------------------------------------------------------------

=head1 ³K\»Ì}`oCg¶Ìµ¢ÉÂ¢Ä

Sjis\tgEFAÍ}`oCg¶ÖÌÊwèqA¨æÑ}`oCg¶ÌJX^
¶NXðNX^OµÜ·BÜ½NbVbNÈ Perl ¶NXAPOSIX X^C
Ì¶NXð}`oCg¶ÎÅÉ«·¦Ü·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  m/...MULTIOCT+.../      m/...(?:MULTIOCT)+.../
  m/...[AN-EM].../        m/...(?:A[N-Z]|[B-D][A-Z]|E[A-M]).../
  m/...\D.../             m/...(?:${Esjis::eD}).../
  m/...[[:^digit:]].../   m/...(?:${Esjis::not_digit}).../
  --------------------------------------------------------------------------------

=head1 Esjis::ignorecase() ÌÄÑoµ

Sjis\tgEFAÍ /i CüqÌãíèÉ Esjis::ignorecase() ÌÄoµð«Á¦Ü·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  m/...$var.../i          m/...@{[Esjis::ignorecase($var)]}.../
  --------------------------------------------------------------------------------

=head1 ¶wüÌ³K\»

/b CüqÌÈ¢³K\»Í¶wüÌ«ðµÜ·B
ÂÜèA/./ (hbg)Í¶É}b`µÜ·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  /regexp/                / ãLQÆ $Esjis::matched/
  m/regexp/               m/ ãLQÆ $Esjis::matched/
  ?regexp?                m? ãLQÆ $Esjis::matched?
  m?regexp?               m? ãLQÆ $Esjis::matched?
 
  $_ =~                   ($_ =~ m/ ãLQÆ $Esjis::matched/) ?
  s/regexp/replacement/   eval{ Esjis::s_matched(); local $^W=0; my $__r=qq/replacement/; $_="${1}$__r$'"; 1 } :
                          undef
 
  $_ !~                   ($_ !~ m/ ãLQÆ $Esjis::matched/) ?
  s/regexp/replacement/   1 :
                          eval{ Esjis::s_matched(); local $^W=0; my $__r=qq/replacement/; $_="${1}$__r$'"; undef }
 
  split(/regexp/)         Esjis::split(qr/regexp/)
  split(m/regexp/)        Esjis::split(qr/regexp/)
  split(qr/regexp/)       Esjis::split(qr/regexp/)
  qr/regexp/              qr/ ãLQÆ $Esjis::matched/
  --------------------------------------------------------------------------------

=head1 oCgwüÌ³K\»

/b CüqðtÁµ½³K\»ÍoCgwüÌ«ðµÜ·B
ÂÜèA/./ (hbg)ÍoCgÉ}b`µÜ·B

  --------------------------------------------------------------------------------
  O                  ã
  --------------------------------------------------------------------------------
  /regexp/b               /(?:regexp)$Esjis::matched/
  m/regexp/b              m/(?:regexp)$Esjis::matched/
  ?regexp?b               m?regexp$Esjis::matched?
  m?regexp?b              m?regexp$Esjis::matched?
 
  $_ =~                   ($_ =~ m/(\G[\x00-\xFF]*?)(?:regexp)$Esjis::matched/) ?
  s/regexp/replacement/b  eval{ Esjis::s_matched(); local $^W=0; my $__r=qq/replacement/; $_="${1}$__r$'"; 1 } :
                          undef
 
  $_ !~                   ($_ !~ m/(\G[\x00-\xFF]*?)(?:regexp)$Esjis::matched/) ?
  s/regexp/replacement/b  1 :
                          eval{ Esjis::s_matched(); local $^W=0; my $__r=qq/replacement/; $_="${1}$__r$'"; undef }
 
  split(/regexp/b)        split(qr/regexp/)
  split(m/regexp/b)       split(qr/regexp/)
  split(qr/regexp/b)      split(qr/regexp/)
  qr/regexp/b             qr/(?:regexp)$Esjis::matched/
  --------------------------------------------------------------------------------

=head1 ¶NXÌGXP[v

ßÌperlÆÌÝ·«ðÛÂ½ßÉ¶NXÍÈºÌæ¤ÉÄè`³êÄ¢Ü·B

  ---------------------------------------------------------------
  escape        class
  ---------------------------------------------------------------
   .            ${Esjis::dot}
                ${Esjis::dot_s}    (/s Cüq è)
  \d            [0-9]
  \s            [\x09\x0A\x0B\x0C\x0D\x20]
  \w            [0-9A-Z_a-z]
  \D            ${Esjis::eD}
  \S            ${Esjis::eS}
  \W            ${Esjis::eW}
  \h            [\x09\x20]
  \v            [\x0A\x0B\x0C\x0D]
  \H            ${Esjis::eH}
  \V            ${Esjis::eV}
  \C            [\x00-\xFF]
  \X            X (½¾ÌpAX Å·)
  \R            ${Esjis::eR}
  \N            ${Esjis::eN}
  ---------------------------------------------------------------

¯lÉ POSIX X^CÌ¶NXàÄè`³êÄ¢Ü·B

  ---------------------------------------------------------------
  escape        class
  ---------------------------------------------------------------
  [:alnum:]     [\x30-\x39\x41-\x5A\x61-\x7A]
  [:alpha:]     [\x41-\x5A\x61-\x7A]
  [:ascii:]     [\x00-\x7F]
  [:blank:]     [\x09\x20]
  [:cntrl:]     [\x00-\x1F\x7F]
  [:digit:]     [\x30-\x39]
  [:graph:]     [\x21-\x7F]
  [:lower:]     [\x61-\x7A]
                [\x41-\x5A\x61-\x7A]     (/i Cüq è)
  [:print:]     [\x20-\x7F]
  [:punct:]     [\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E]
  [:space:]     [\s\x0B]
  [:upper:]     [\x41-\x5A]
                [\x41-\x5A\x61-\x7A]     (/i Cüq è)
  [:word:]      [\x30-\x39\x41-\x5A\x5F\x61-\x7A]
  [:xdigit:]    [\x30-\x39\x41-\x46\x61-\x66]
  [:^alnum:]    ${Esjis::not_alnum}
  [:^alpha:]    ${Esjis::not_alpha}
  [:^ascii:]    ${Esjis::not_ascii}
  [:^blank:]    ${Esjis::not_blank}
  [:^cntrl:]    ${Esjis::not_cntrl}
  [:^digit:]    ${Esjis::not_digit}
  [:^graph:]    ${Esjis::not_graph}
  [:^lower:]    ${Esjis::not_lower}
                ${Esjis::not_lower_i}    (/i Cüq è)
  [:^print:]    ${Esjis::not_print}
  [:^punct:]    ${Esjis::not_punct}
  [:^space:]    ${Esjis::not_space}
  [:^upper:]    ${Esjis::not_upper}
                ${Esjis::not_upper_i}    (/i Cüq è)
  [:^word:]     ${Esjis::not_word}
  [:^xdigit:]   ${Esjis::not_xdigit}
  ---------------------------------------------------------------

\b Æ \B àßÌperlÆÌÝ·«ðÛÂ½ßÉÄè`³êÄ¢Ü·B

  ---------------------------------------------------------------
  escape      class
  ---------------------------------------------------------------
  \b          ${Esjis::eb}
  \B          ${Esjis::eB}
  ---------------------------------------------------------------

ãLÌè`ÍAt@C Esjis.pm ÌÅÈºÌæ¤Éè`³êÄ¢Ü·B

  ---------------------------------------------------------------------------------------------------------------------------------------------------------
  class                    Definition
  ---------------------------------------------------------------------------------------------------------------------------------------------------------
  ${Esjis::anchor}         qr{\G(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?}
                           32766INebgð´¦é¶ñðµ¦éæ¤É·é½ßAActivePerl5.6È~(5.10.0ÜÞ)AÜ½Í»Ì¼ÌPerl5.10.1È~ÌêÍÈºÌæ¤ÉÈèÜ·
                           qr{\G(?(?=.{0,32766}\z)(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?|(?(?=[\x00-\x80\xA0-\xDF\xFD-\xFF]+\z).*?|(?:.*?[\x00-\x80\xA0-\xDF\xFD-\xFF](?:[^\x00-\x80\xA0-\xDF\xFD-\xFF]{2})*?)))}oxms;
  ${Esjis::dot}            qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x0A])}
  ${Esjis::dot_s}          qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])}
  ${Esjis::eD}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC0-9])}
  ${Esjis::eS}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x09\x0A\x0B\x0C\x0D\x20])}
  ${Esjis::eW}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC0-9A-Z_a-z])}
  ${Esjis::eH}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x09\x20])}
  ${Esjis::eV}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x0A\x0B\x0C\x0D])}
  ${Esjis::eR}             qr{(?:\x0D\x0A|[\x0A\x0D])}
  ${Esjis::eN}             qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x0A])}
  ${Esjis::not_alnum}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x30-\x39\x41-\x5A\x61-\x7A])}
  ${Esjis::not_alpha}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x41-\x5A\x61-\x7A])}
  ${Esjis::not_ascii}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x00-\x7F])}
  ${Esjis::not_blank}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x09\x20])}
  ${Esjis::not_cntrl}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x00-\x1F\x7F])}
  ${Esjis::not_digit}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x30-\x39])}
  ${Esjis::not_graph}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x21-\x7F])}
  ${Esjis::not_lower}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x61-\x7A])}
  ${Esjis::not_lower_i}    qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])}
  ${Esjis::not_print}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x20-\x7F])}
  ${Esjis::not_punct}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E])}
  ${Esjis::not_space}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\s\x0B])}
  ${Esjis::not_upper}      qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x41-\x5A])}
  ${Esjis::not_upper_i}    qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])}
  ${Esjis::not_word}       qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x30-\x39\x41-\x5A\x5F\x61-\x7A])}
  ${Esjis::not_xdigit}     qr{(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC\x30-\x39\x41-\x46\x61-\x66])}
  ${Esjis::eb}             qr{(?:\A(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[0-9A-Z_a-z])|(?<=[0-9A-Z_a-z])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]|\z))}
  ${Esjis::eB}             qr{(?:(?<=[0-9A-Z_a-z])(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]))}
  ---------------------------------------------------------------------------------------------------------------------------------------------------------

=head1 \N, \p, \P, \X ÌAGXP[v

±Ì\tgEFAÉæÁÄpÌ³K\»^V{ \N, \p, \P, \X ÌæªÌ
'\' ªæè©êÜ·B±Ìû@ÅÛ»Ìã©ðð¯é±ÆªÅ«Ü·B

AGXP[vãÉ "{" ðGXP[v·éæ¤Éµ½RÍA
Deprecate literal unescaped "{" in regexes.
http://perl5.git.perl.org/perl.git/commit/2a53d3314d380af5ab5283758219417c6dfa36e9
ÉæéàÌÅ·B

  ------------------------------------
  O           ã
  ------------------------------------
  \N{CHARNAME}     N\{CHARNAME}
  \p{L}            p\{L}
  \p{^L}           p\{^L}
  \p{\^L}          p\{\^L}
  \pL              pL
  \P{L}            P\{L}
  \P{^L}           P\{^L}
  \P{\^L}          P\{\^L}
  \PL              PL
  \X               X
  ------------------------------------

=head1 gÝÖÌGXP[v

±Ì\tgEFAÉæÁÄÖ¼ÌæªÉ 'Esjis::' ª«ÁíèGXP[v³êÜ·B
Esjis::* Tu[`Í Esjis.pm ªñµÜ·B

  --------------------------------------------
  O      ã            ®ì
  --------------------------------------------
  length      length            oCgwü
  substr      substr            oCgwü
  pos         pos               oCgwü
  split       Esjis::split      ¶wü
  tr///       Esjis::tr         ¶wü
  tr///b      tr///             oCgwü
  tr///B      tr///             oCgwü
  y///        Esjis::tr         ¶wü
  y///b       tr///             oCgwü
  y///B       tr///             oCgwü
  chop        Esjis::chop       ¶wü
  index       Esjis::index      ¶wü
  rindex      Esjis::rindex     ¶wü
  lc          Esjis::lc         ¶wü
  lcfirst     Esjis::lcfirst    ¶wü
  uc          Esjis::uc         ¶wü
  ucfirst     Esjis::ucfirst    ¶wü
  fc          Esjis::fc         ¶wü
  chr         Esjis::chr        ¶wü
  glob        Esjis::glob       ¶wü
  lstat       Esjis::lstat      ¶wü
  opendir     Esjis::opendir    ¶wü
  stat        Esjis::stat       ¶wü
  unlink      Esjis::unlink     ¶wü
  chdir       Esjis::chdir      ¶wü
  do          Esjis::do         ¶wü
  require     Esjis::require    ¶wü
  --------------------------------------------

  ------------------------------------------------------------------------------------------------------------------------
  O                   ã
  ------------------------------------------------------------------------------------------------------------------------
  use Perl::Module;        BEGIN { Esjis::require 'Perl/Module.pm'; Perl::Module->import() if Perl::Module->can('import'); }
  use Perl::Module @list;  BEGIN { Esjis::require 'Perl/Module.pm'; Perl::Module->import(@list) if Perl::Module->can('import'); }
  use Perl::Module ();     BEGIN { Esjis::require 'Perl/Module.pm'; }
  no Perl::Module;         BEGIN { Esjis::require 'Perl/Module.pm'; Perl::Module->unimport() if Perl::Module->can('unimport'); }
  no Perl::Module @list;   BEGIN { Esjis::require 'Perl/Module.pm'; Perl::Module->unimport(@list) if Perl::Module->can('unimport'); }
  no Perl::Module ();      BEGIN { Esjis::require 'Perl/Module.pm'; }
  ------------------------------------------------------------------------------------------------------------------------

=head1 t@CeXgZqÌGXP[v

±Ì\tgEFAÉæÁÄZqÌ '-' Í 'Esjis::' É«·íèÜ·B

  MSWin32, MacOS ¨æÑ UNIXÌVXeÅpÂ\ÈZq
  -------------------------------------------------------------------------------
  O    ã      à¾
  -------------------------------------------------------------------------------
  -r        Esjis::r    t@CâfBNgª±Ì(Àø)[UÜ½ÍO[v©çÇÝoµÂ\
  -w        Esjis::w    t@CâfBNgª±Ì(Àø)[UÜ½ÍO[v©ç«ÝÂ\
  -e        Esjis::e    t@CâfBNg¼ª¶Ý·é
  -x        Esjis::x    t@CâfBNgª±Ì(Àø)[UÜ½ÍO[v©çÀsÂ\
  -z        Esjis::z    t@Cª¶ÝµÄ¢Äå«³ª0Å é(fBNgÉÎµÄÍíÉUÉÈé)
  -f        Esjis::f    GgÍÊÌt@CÅ é
  -d        Esjis::d    GgÍfBNgÅ é
  -t        -t          ±Ìt@CnhÍTTYÅ é(isatty()VXeÖÌÊÅ»è·éB
                        ±ÌeXgÍt@C¼ÉÍKpÅ«È¢)
  -T        Esjis::T    ±Ìt@CÍueLXgvt@CÌæ¤Å é
  -B        Esjis::B    ±Ìt@CÍuoCivt@CÌæ¤Å é
  -M        Esjis::M    ÅãÉÏX³êÄ©çÌú
  -A        Esjis::A    ÅãÉANZX³êÄ©çÌú
  -C        Esjis::C    ÅãÉ im[h(inode) ªÏX³êÄ©çÌú
  -s        Esjis::s    t@CâfBNgª¶ÝµÄ¢Äå«³ª 0 ÅÈ¢
                        (oCgPÊÅ\íµ½t@CÌå«³ªlÉÈé)
  -------------------------------------------------------------------------------
  
  MacOS ¨æÑ UNIXÌVXeÅpÂ\ÈZq
  -------------------------------------------------------------------------------
  O    ã      à¾
  -------------------------------------------------------------------------------
  -R        Esjis::R    t@CâfBNgª±ÌÀ[UÜ½ÍO[v©çÇÝoµÂ\
  -W        Esjis::W    t@CâfBNgª±ÌÀ[UÜ½ÍO[v©ç«ÝÂ\
  -X        Esjis::X    t@CâfBNgª±ÌÀ[UÜ½ÍO[v©çÀsÂ\
  -l        Esjis::l    GgÍV{bNNÅ é
  -S        Esjis::S    GgÍ\PbgÅ é
  -------------------------------------------------------------------------------
  
  MSWin32, MacOS ÅÍpoÈ¢t@CeXgZq
  -------------------------------------------------------------------------------
  O    ã      à¾
  -------------------------------------------------------------------------------
  -o        Esjis::o    t@CâfBNgð±Ì(Àø)[UªLµÄ¢é
  -O        Esjis::O    t@CâfBNgð±ÌÀ[UªLµÄ¢é
  -p        Esjis::p    GgÍ¼Ot«pCv(fifo)Å é
  -b        Esjis::b    GgÍubNÁêfoCXÅ é(á¦ÎA}EgÂ\ÈfBXN)
  -c        Esjis::c    GgÍLN^ÁêfoCXÅ é(á¦ÎAI/OfoCX)
  -u        Esjis::u    t@CâfBNgª setuid ³êÄ¢é
  -g        Esjis::g    t@CâfBNgª setgid ³êÄ¢é
  -k        Esjis::k    t@CâfBNgÌ sticky rbgªZbg³êÄ¢é
  -------------------------------------------------------------------------------

perl5.00503 ðgpµÄ¢éêÅàt@CeXgZqÍuÏÝdËév±Æª
Å«Ü·B

  if ( -w -r $file ) {
      print "The file is both readable and writable!\n";
  }

=head1 Ö¼ÌGXP[v

àµ¶wüÌTu[`ðg¢½¢êÍÈºÌæ¤ÉLq·éKvª èÜ·B
»ê¼êÌ@\ÉÂ¢ÄÍu¶wüÌTu[`vðQÆµÄ¾³¢B

  ----------------------------------------------------
  Ö¼    ¶wü        à¾
  ----------------------------------------------------
  ord       Sjis::ord
  reverse   Sjis::reverse
  getc      Sjis::getc
  length    Sjis::length
  substr    Sjis::substr
  index     Sjis::index     ÈºÌLqàQÆÌ±Æ
  rindex    Sjis::rindex    ÈºÌLqàQÆÌ±Æ
  ----------------------------------------------------

  index ÌÔ½¿
  --------------------------------------------------------------
  Ö¼         ®ì         Ôl         à¾
  --------------------------------------------------------------
  index          ¶wü     oCgPÊ   JPerlÆ¯¶®ì
  Sjis::index    ¶wü     ¶PÊ     ¶wüÌ®ì
  CORE::index    oCgwü   oCgPÊ   oCgwüÌ®ì
  --------------------------------------------------------------

  rindex ÌÔ½¿
  --------------------------------------------------------------
  Ö¼         ®ì         Ôl         à¾
  --------------------------------------------------------------
  rindex         ¶wü     oCgPÊ   JPerlÆ¯¶®ì
  Sjis::rindex   ¶wü     ¶PÊ     ¶wüÌ®ì
  CORE::rindex   oCgwü   oCgPÊ   oCgwüÌ®ì
  --------------------------------------------------------------

=head1 ¶wüÌTu[`

=over 2

=item * Sjis::ord

    $ord = Sjis::ord($string);

    Sjis::ord($string) Í $string ÌæªÌ¶Ì ShiftJIS R[hlðÔµÜ·
    (Unicode ÅÍ èÜ¹ñ)B$string ªÈª³ê½êÍ $_ ªÎÛÆÈèÜ·B
    ±ÌTu[`ÍíÉÈµÌlðÔµÜ·B

    "use Sjis qw(ord);" ÉæÁÄXNvgÉLqµ½ ord Í Sjis::ord É«
    ·íéæ¤ÉÈèÜ·Bord ª Sjis::ord Ì®ìð·éÌÍ JPerl ÆñÝ·ÈÌ
    Å¾¦IÉC|[gµ½êÌÝ«·íèÜ·B

=item * Sjis::reverse

    @reverse = Sjis::reverse(@list);
    $reverse = Sjis::reverse(@list);

    Sjis::reverse(@list) ÍXgReLXgÅÍ @list ÌvfðtÉÀ×½
    XglðÔµÜ·B

    XJ[ReLXgÅÍ @list Ì·×ÄÌvfðAµ½ãÅAShiftJIS Ì
    ¶PÊÅtÉµ½àÌðÔµÜ·B

    "use Sjis qw(reverse);" ÉæÁÄXNvgÉLqµ½ reverse Í
    Sjis::reverse É«·íéæ¤ÉÈèÜ·Breverse ª Sjis::reverse Ì®ìð
    ·éÌÍ JPerl ÆñÝ·ÈÌÅ¾¦IÉC|[gµ½êÌÝ«·íèÜ·B

    àµ±ÌTu[`ðmçÈÆàâèÍ èÜ¹ñB±êÜÅÊèA±ÌTu
    [`Í

    $rev = join('', reverse(split(//, $jstring)));

    ÅÀ»Å«Ü·B

    Ql:
    P.558 JPerl (ú{êÎPerl)
    t^C ú{êÅÌÇÁ
    ISBN 4-89052-384-7 PerlvO~O

=item * Sjis::getc

    $getc = Sjis::getc(FILEHANDLE);
    $getc = Sjis::getc($filehandle);
    $getc = Sjis::getc;

    FILEHANDLE ÉÑÂ¯çê½üÍt@C©çAÌ1¶ðÇñÅÔµÜ·B
    end-of-file(t@CÌIíè) ÉÈÁ½©A é¢Í I/O G[ª¶µ½êÉ
    ÍAundef ðÔµÜ·BFILEHANDLE ðÈª·éÆASTDIN ©çüÍµÜ·B

    ±ÌTu[`Íµx¢àÌÌAL[{[h©ç1¶ðüÍ·éÛÉÖÅ·
    -- L[{[hüÍðobt@OÈµÉÝèÅ«êÎÅ·ªB±ÌTu[`ÍA
    WI/OCuÉÎµÄAobt@OÈµÅüÍ·éæ¤ÉvµÜ·BcOÈ
    ±ÆÉAWI/OCuÍAIy[eBOVXeÉÎµÄobt@OÈµ
    ÅL[{[hüÍðs¤æ¤Év·é½ßÌAÚA«Ì éèiðpÓ·éÜÅÉÍA
    W»³êÄ¢Ü¹ñB»êÉÍAXmbð©¹ÄAIy[eBOVXeÉ
    ÅLÌâèûð·éKvª èÜ·BUnix ÅÍAÌæ¤É·êÎ¤Ü¢Åµå¤B

    if ($BSD_STYLE) {
        system "stty cbreak </dev/tty >/dev/tty 2>&1";
    }
    else {
        system "stty", "-icanon", "eol", "\001";
    }

    $key = Sjis::getc;

    if ($BSD_STYLE) {
        system "stty -cbreak </dev/tty >/dev/tty 2>&1";
    }
    else {
        system "stty", "icanon", "eol", "^@"; # ASCII NUL
    }
    print "\n";

    ±ÌR[hÍA[©çÉ^Cv³ê½¶ðÏ $key ÉüêÜ·B È½ÌVXe
    Ì stty vOÉ cbreak IvVª éÈçAãÌR[hÌ¤¿A$BSD_STYLE
    ª^ÌêÌR[hðg¤ÆÇ¢Åµå¤B»¤ÅÈ¯êÎA$BSD_STYLE ªUÌêÌ
    R[hðg¦Îæ¢Åµå¤B

    "use Sjis qw(getc);" ÉæÁÄXNvgÉLqµ½ getc Í Sjis::getc É«
    ·íéæ¤ÉÈèÜ·Bgetc ª Sjis::getc Ì®ìð·éÌÍ JPerl ÆñÝ·ÈÌ
    Å¾¦IÉC|[gµ½êÌÝ«·íèÜ·B

=item * Sjis::length

    $length = Sjis::length($string);
    $length = Sjis::length();

    Sjis::length($string) ÍXJ[l $string Ì·³ð ShiftJIS Ì¶(vO
    }©ç©¦é¶)ÅÔµÜ·B$string ðÈªµ½êÍ $_ Ì¶ðÔµÜ
    ·B

    zñâAzzñ(nbV)Ìå«³ðmè½¢êÉÍASjis::length Íg¦Ü
    ¹ñBzñÌå«³ðméÉÍ scalar @arrayAAzzñÉüÁÄ¢éL[/lÌy
    AÌÂðméÉÍ scalar keys %hash ÆµÜ·B

    ¶ÅÍÈoCgPÊÅÌ·³ð²×éÉÍA¢ÜÜÅÊè

    $bytes = length($string);

    Ìæ¤ÉµÜ·B

    àµ±ÌTu[`ðmçÈÆàâèÍ èÜ¹ñB±êÜÅÊèA±ÌTu[
    `Í

    $len = split(//, $jstring);

    ÅÀ»Å«Ü·B

    Ql:
    P.558 JPerl (ú{êÎPerl)
    t^C ú{êÅÌÇÁ
    ISBN 4-89052-384-7 PerlvO~O

=item * Sjis::substr

    $substr = Sjis::substr($string,$offset,$length,$replacement);
    $substr = Sjis::substr($string,$offset,$length);
    $substr = Sjis::substr($string,$offset);

    Sjis::substr ÍAShiftJIS ¶ñ $string Åwè³ê½¶ñ©çª¶ñðæè
    oµÄÔµÜ·Bª¶ñÍA¶ñÌæª©ç¦Ä $offset ¶Ú©çnÜéA
    $length ¶ªÅ·BÅÌ¶ªItZbg 0 ÆÈèÜ·B$offset ÉÌlðÝè
    ·éÆA$string ÌIíè©çÌItZbgÆÈèÜ·B
    $length ðÈª·éÆA$string ÌÅãÜÅ·×ÄªÔ³êÜ·B$length ªÌl¾
    ÆA¶ñÌÅã©çwè³ê½¾¯¶ðæè«Ü·B»¤ÅÈ¯êÎA$length
    ÍA È½ªúÒ·éæ¤ÉAæèo·ª¶ñÌ·³ð\µÄ¢Ü·B

    my $s = "The black cat climbed the green tree";
    my $color  = Sjis::substr $s, 4, 5;      # black
    my $middle = Sjis::substr $s, 4, -11;    # black cat climbed the
    my $end    = Sjis::substr $s, 14;        # climbed the green tree
    my $tail   = Sjis::substr $s, -4;        # tree
    my $z      = Sjis::substr $s, -4, 2;     # tr

    o[W 5.14 È~Ì Perl Å êÎASjis::substr() ð¶ÓlÆµÄgp·é±Æà
    Â\Å·B»ÌêÉÍA$string ª©g¶ÓlÅÈ¯êÎÈèÜ¹ñB$length æèZ¢
    àÌðãüµ½Æ«ÉÍA$string ÍZÈèA$length æè·¢àÌðãüµ½Æ«ÉÍA
    $string Í»êÉí¹ÄLÑé±ÆÉÈèÜ·B$string Ì·³ðêèÉÛÂ½ßÉÍA
    sprintf ðgÁÄAãü·élÌ·³ð²®·é±ÆªAKvÉÈé©àµêÜ¹ñB

    $offset Æ $length ÆµÄ¶ñÌO¤ðÜÞæ¤Èª¶ñªwè³êéÆA¶ñ
    Ìà¤Ìª¾¯ªÔ³êÜ·Bª¶ñª¶ñÌ¼[ÌO¤ÌêASjis::substr()
    Í¢è`lðÔµAxªoÍ³êÜ·B¶ÓlÆµÄgÁ½êA¶ñÌ®SÉO¤ð
    ª¶ñÆµÄwè·éÆáOª¶µÜ·BÈºÍ«EðÌUé¢ð¦·áÅ·:

    my $name = 'fred';
    Sjis::substr($name, 4) = 'dy';         # $name is now 'freddy'
    my $null = Sjis::substr $name, 6, 2;   # returns "" (no warning)
    my $oops = Sjis::substr $name, 7;      # returns undef, with warning
    Sjis::substr($name, 7) = 'gap';        # raises an exception

    Sjis::substr() ð¶ÓlÆµÄg¤ãíèÌû@ÍAu«·¦é¶ñð 4 ÔÚÌøÆ
    µÄwè·é±ÆÅ·B±êÉæèA$string Ìêðu«·¦Au«·¦éOª½Å Á
    ½©ðÔ·AÆ¢¤±Æð(splice() Æ¯l) 1 ®ìÅs¦Ü·B

    my $s = "The black cat climbed the green tree";
    my $z = Sjis::substr $s, 14, 7, "jumped from";    # climbed
    # $s is now "The black cat jumped from the green tree"

    3 øÌ Sjis::substr() ÉæÁÄÔ³ê½¶ÓlÍu@ÌeÛvÌæ¤ÉU¤±ÆÉ
    ÓµÄ¾³¢; ±êªãü³êéÉA³Ì¶ñÌÇÌªªÏX³ê½©ªv¢
    o³êÜ·; á¦Î:

    $x = '1234';
    for (Sjis::substr($x,1,2)) {
        $_ = 'a';   print $x,"\n";    # prints 1a4
        $_ = 'xyz'; print $x,"\n";    # prints 1xyz4
        $x = '56789';
        $_ = 'pq';  print $x,"\n";    # prints 5pq9
    }

    ÌItZbgÌêA^[Qbg¶ñªC³³ê½Æ«É¶ñÌö©çÌÊu
    ðo¦Ü·:

    $x = '1234';
    for (Sjis::substr($x, -3, 2)) {
        $_ = 'a';   print $x,"\n";    # prints 1a4, as above
        $x = 'abcdefg';
        print $_,"\n";                # prints f
    }

    o[W 5.10 æèOÌ Perl ÅÍA¡ñ¶ÓlðgÁ½êÌÊÍ ¢è`Åµ½B
    5.16 æèOÅÍAÌItZbgÌÊÍ¢è`Å·B

=item * Sjis::index

    $index = Sjis::index($string,$substring,$offset);
    $index = Sjis::index($string,$substring);

    Sjis::index ÍAShiftJIS ¶ñ $string ÌÉÜÜêéAà¤1ÂÌ ShiftJIS ¶
    ñ $substring ðTµÜ·B$string ÌÅA$substring ªÅÉo»·éÊuð
    ¶PÊÅ¦ÄÔµÜ·B$offset ªwè³êÄ¢éêA$string Ìæª©ç $offset
    ÂÌ¶ðXLbvµ½Êu©çA$substring ðTµnßÜ·BÊuÍ 0 ðx[XÆµ
    Ä¦Ü·B$substring ª©Â©çÈ¯êÎASjis::index Tu[`Íx[Xæè
    1 ¾¯¬³¢l -1 ðÔµÜ·BSjis::index ðgÁÄA¶ñSÌð²×éÉÍAÌ
    æ¤ÉµÜ·B

    $pos = -1;
    while (($pos = Sjis::index($string, $lookfor, $pos)) > -1) {
        print "Found at $pos\n";
        $pos++;
    }

=item * Sjis::rindex

    $rindex = Sjis::rindex($string,$substring,$offset);
    $rindex = Sjis::rindex($string,$substring);

    Sjis::rindex Í Sjis::index ÆÄ¢Ü·ªAShiftJIS ¶ñ $string ÌÅA
    ª¶ñ $substring ªÅãÉo»·éÊuð¶PÊÅ¦ÄÔµÜ·(ÂÜè
    reverse Sjis::index Å·)B$substring ª©Â©çÈ¯êÎA-1 ðÔµÜ·B
    $offset ÉæÁÄAlÆµÄÔ·±Æª³êéAÅàEæèÌÊuðwè·é±Æ
    ªÅ«Ü·BSjis::rindex ðgÁÄA¶ñSÌðö©çæªÉü©ÁÄ²×éÉ
    ÍAÌæ¤ÉµÜ·B

    $pos = Sjis::length($string);
    while (($pos = Sjis::rindex($string, $lookfor, $pos)) >= 0) {
        print "Found at $pos\n";
        $pos--;
    }

=item * Sjis::eval

    $eval = Sjis::eval { block };
    $eval = Sjis::eval $expr;
    $eval = Sjis::eval;

    JPerl É¨¢ÄÍASjis::eval L[[hÍAÆ§µÄ¢Ü·ªAÖA«Ì é2Â
    ÌÚIÉgp³êÄ¢Ü·B±êç2ÂÌÚIÉí¹ÄA2ÂÌ`® Sjis::eval
    { block } Æ Sjis::eval $expr ªpÓ³êÄ¢Ü·B1ÔÚÌ`® Sjis::eval
    { block } ÍA»ÌÜÜÅÍv½IÅ éæ¤ÈÀsáO(G[)ðgbv·é
    ½ßÌàÌÅAC++ â Java Ì "tryubN" ÉÄ¢Ü·B2ÔÚÌ`®
    Sjis::eval $expr ÍAÀsÉR[hðRpCµÄÀs·éÆÆàÉA1ÔÚÌ
    `®Æ¯¶æ¤ÉA¶µ½áOðgbvµÜ·Bµ©µASjis::eval $expr Ì
    Ù¤ª Sjis::eval { block } æèà©ÈèÀsªxÈèÜ·BÈºÈçA
    Sjis::eval $expr ÍAñ¶ñðp[XµÈ¯êÎÈçÈ¢©çÅ·B»ÌêûÅA
    Sjis::eval $expr ÌÙ¤ªæèÄp«ªÈèÜ·BÇ¿çÌ`®ðg¤É¹æA
    JPerl É¨¢ÄÍA·×ÄÌáOÉÍ Sjis::eval ðp·é±Æª]Üµ¢
    Å·B

    Ç¿çÌ`®Ì Sjis::eval ÅàATu[`Æ¯¶æ¤ÉAÅãÉ]¿µ½®Ì
    lª Sjis::eval ÌlÆµÄÔ³êÜ·BÜ½¯lÉAreturn Zqðg¤±ÆÉ
    æÁÄASjis::eval Ìr©çlðÔ·±ÆªÅ«Ü·BSjis::eval Ìßèlðñ
    ·é®ÍASjis::eval ©ÌÌReLXgÉ¶ÄA³øReLXgAXJ[
    ReLXgAÜ½ÍXgReLXgÅ]¿³êÜ·B]¿ªsíêéReL
    Xgðméû@ÉÂ¢ÄÍAwantarray ðQÆµÄ¾³¢B

    gbvÂ\ÈG[(die ZqÅ¶³¹½G[àÜÞ)ª¶·éÆA
    Sjis::eval Í underf ðÔµAÏ $@ ÉG[bZ[W(Ü½ÍIuWFNg)ð
    ZbgµÜ·BG[ª¶µÈ¯êÎA$@ ªó¶ñÉÈé±ÆªÛØ³êÄ¢
    Ü·B¾©çASjis::eval ÌãÅ $@ Ìlð²×êÎAG[ÌL³ðmÀÉ»è
    ·é±ÆªÅ«Ü·BÀÛÉÍAÌæ¤ÈPÈu[lÌeXgÅ\ªÅ·:

        Sjis::eval { ... }; # ÀsG[ðgbv·é
        if ($@) { ... }     # G[ðs¤

    (Perl 5.16 ÈOÅÍAoOÉæÁÄAXgReLXgÅ\¶G[ÌÉÍ undef
    ðÔµÄ¢Üµ½ªAÀsG[ÌÉÍÔµÄ¢Ü¹ñÅµ½)B

    Sjis::eval { block } `®ÍARpCÉ\¶`FbNðs¤½ßÉAñíÉø
    ¦ªÇÈèÜ·B(x¢ Sjis::eval $expr `®ÉµêÄ¢élÍA±Ì_ÉÂ¢Ä
    ëðµÄ¢é±Æª½¢æ¤Å·B) { block } àÌR[hÍAñèÌR[hÆ¯É
    RpC³êéÌÅA±Ì`®Ì Sjis::eval ÅÍ\¶G[ðgbv·é±ÆÍ
    Å«Ü¹ñB

    Sjis::eval $expr `®ÍAÀsÉR[hðp[X·éÌÅA\¶G[ðgbv
    ·é±ÆªÂ\Å·B(p[XÉ¸s·éÆAáÉæÁÄG[bZ[Wª $@ É
    Zbg³êÜ·B) $expr ªÈª³êéÆA$_ ð]¿µÜ·B

    \¶G[ªÈ¯êÎA® $expr ÌlðA¬³È JPerl XNvgÌæ¤ÉµÄÀs
    µÜ·B±ÌÆ«R[hÍA»Ì_Ì JPerl XNvgÌReLXgÅÀs³ê
    Ü·B¾©çASjis::eval ÅÀs³êéR[h©çÍAñèðæèÍÞXR[vÌL
    VJÏð©é±ÆªÅ«A(Sjis::eval ÌÅsÁ½)ñ[JÈÏÖÌãüA
    Tu[`âtH[}bgÌè`ÍASjis::eval ªI¹µ½ãàLøÅ·B
    Sjis::eval ÌR[hÍubNÆµÄµíêéÌÅASjis::eval àÅé¾µ½[J
    ÈXR[vðÂÏÍASjis::eval ªI¹·éÜÅLøÅ·B(localÆmyðQÆÌ
    ±ÆB)ubNàÉu©ê½R[hÌêÆ¯lÉAêÔÅãÌZ~RÍÈ¢Äà
    \¢Ü¹ñB

    Sjis::eval ÍÈºÌæ¤ÉGXP[v³êÜ·:

    -------------------------------------------------
    O                  ã
    -------------------------------------------------
    Sjis::eval { block }    eval { block }
    Sjis::eval $expr        eval Sjis::escape $expr
    Sjis::eval              eval Sjis::escape
    -------------------------------------------------

    Sjis::eval Æ¢¤Tu[`ÍÀÍ¶ÝµÜ¹ñBàµ¶ÝµÄ¢½Æ·éÆAmy
    Åé¾³ê½ÏðVONH[gÅÍÝASjis::eval Ìp[^Éµ½Æ«É
    ¢é©çÅ·BSjis::escape Í JPerl XNvgð Perl XNvgÉGXP[v·
    éTu[`Å·B

    É¦·ÌÍÈPÈ JPerl VFÌáÅ·BJPerl ÌR[hðüÍ·éæ¤É[U
    ÉÎµÄvvgð\¦µÄAüÍ³ê½¶ñðRpCµÄ©çÀsµÄA
    ¶µ½G[ð\¦µÜ·:

        #!/usr/bin/perl
        # jperlshell.pl - ÈPÈ JPerl VF
        use Sjis;
        print "\nEnter some JPerl code: ";
        while (<STDIN>) {
            Sjis::eval;
            print $@;
            print "\nEnter some more JPerl code: ";
        }

    ÌXNvg rename.pl ÍAJPerl Ì®ÆµÄ^¦çê½w¦ÉîÃ¢ÄAåÊÌ
    t@Cðl[µÜ·:

        #!/usr/bin/perl
        # rename.pl - t@CÌ¼OðÏX·é
        use Sjis;
        $op = shift;
        for (@ARGV) {
            $was = $_;
            Sjis::eval $op;
            die if $@;
            # ÌsÍXNvg rename.pl ÅÍÈA
            # gÝÝÖ rename ðÄÑo·
            if ($was ne $_) {
                print STDERR "rename $was --> $_\n";
                rename($was,$_);
            }
        }

    ±ÌXNvgÍAÈºÌæ¤ÉµÄgpµÜ·:

        C:\WINDOWS> perl rename.pl 's/\.orig$//' *.orig
        C:\WINDOWS> perl rename.pl 'y/A-Z/a-z/ unless /^Make/' *
        C:\WINDOWS> perl rename.pl '$_ .= ".bad"' *.f

    Sjis::eval ðg¦ÎA»ÌÜÜÅÍv½IÉÈéæ¤ÈG[ðgbv·é±Æª
    Å«éÌÅA é@\(á¦Î fork â symlink)ªÀ³êÄ¢é©Ç¤©ðmF·
    éÌÉÖÅ·B

    Sjis::eval { block } `®ÅÍRpCÉ¶@`FbNªsíêéÌÅA·×Ä
    ¶@G[Í(Sjis::eval $expr `®æèà)úÉ©³êÜ·Bµ½ªÁÄAÎÛ
    ÆÈéR[hªsÏÅASjis::eval $expr Æ Sjis::eval { block } ÌÇ¿çà È
    ½ÌÚIÉKµÄ¢éêÉÍASjis::eval { block } ðg¤±Æª]ÜêÜ·B
    á¦ÎAÌáð©Ä¾³¢:

        # 0 ÉæéZðv½IÅÈ¢æ¤É·é
        Sjis::eval { $answer = $a / $b; };
        warn $@ if $@;

        # ¯¶±Æ¾ªA½ñàÀs·éêÉÍø¦ª«¢
        Sjis::eval '$answer = $a / $b';
        warn $@ if $@;

        # RpCÌ¶@G[(gbv³êÈ¢)
        Sjis::eval { $answer = }; # ëè

        # ÀsÌ¶@G[
        Sjis::eval '$answer =';   # G[bZ[Wª $@ ÉZbg³êé

    ±±ÅARpCª¬÷·é½ßÉÍA{ block } àÌR[hÍ³µ¢ JPerl R[
    hÅÈ¯êÎÈèÜ¹ñB$expr ÉüÁÄ¢éR[hÍÀsÜÅ`FbN³êÈ¢
    ÌÅAÀsÉÈçÈ¯êÎG[Í¶µÜ¹ñB

    Sjis::eval { block } `®ðCuÌáOðß¨·é½ßÉg¤Æ«ÉÍâèª
     èÜ·B»ÝÌ __DIE__ tbNÌóÔÍÙÚmÀÉóêÄ¢éÆ¢¤RÅA[
    U[ÌR[hªÝèµ½ __DIE__ tbNðÀsµ½È¢©àµêÜ¹ñB±ÌÚI
    ÉÍÈºÌáÌæ¤ÉAlocal $SIG{__DIE__} \¢ªg¦Ü·B

    # a private exception trap for divide-by-zero
    Sjis::eval { local $SIG{'__DIE__'}; $answer = $a / $b; };
    warn $@ if $@;

    ±êÍÁÉÖÅ·; ^¦çê½ __DIE__ tbNÍ die ðà¤êxÄÑo·±Æª
    Å«A±êÉæÁÄG[bZ[WðÏ¦éøÊª èÜ·:

    # __DIE__ hooks may modify error messages
    {
        local $SIG{'__DIE__'} =
            sub { (my $x = $_[0]) =~ s/foo/bar/g; die $x };
        Sjis::eval { die "foo lives here" };
        print $@ if $@; # prints "bar lives here"
    }

    ±êÍ£Ì£ê½®ìÅ é½ßA±Ì¼´IÅÈ¢Ué¢Í«Ì[XÅ
    ÍC³³êé©àµêÜ¹ñB

    Sjis::eval ÅÍAÈºÌæ¤ÈêÉA½ª²×çêé©ÉÁÉÓµÄ¨±Æª
    KvÅ·:

    Sjis::eval $x;        # CASE 1
    Sjis::eval "$x";      # CASE 2

    Sjis::eval '$x';      # CASE 3
    Sjis::eval { $x };    # CASE 4

    Sjis::eval "\$$x++";  # CASE 5
    $$x++;                # CASE 6

    ãLÌ CASE 1 Æ CASE 2 Ì®ìÍ¯êÅAÏ $x àÌ R[hðÀsµÜ·B(½
    ¾µACASE 2 ÅÍAKvÌÈ¢_uNH[gÉæÁÄAÇÞlª½ªN±é©¬
    ·é±ÆÅµå¤(½àN±èÜ¹ñª)B)¯lÉ CASE 3 Æ CASE 4 Ì®ìàµA
    $x ÌlðÔ·ÈOÉ½àµÈ¢ $x Æ¢¤R[hðÀsµÜ·(É©½ÚÌâè
    ÅACASE 4 ªDÜêÜ·ªAÀsÅÈRpCÉRpC³êéÆ¢¤
    _à èÜ·)BCASE 5 ÌêÍAÊí_uNH[gðgpµÜ·B±Ìóµð
    ¯ÎACASE 6 Ìæ¤ÉAPÉV{bNt@Xðg¦ÎÇ¢Åµå¤B

    Perl 5.14 æèOÅÍA$@ ÖÌãüÍ[J»³ê½ÏÌAÌOÉN«éÌ
    ÅAÃ¢o[WÅÀs³êéêÍASÄÅÍÈê¾¯ÌG[ð}XNµ
    ½¢êÉÍêÏªKvÅ·:

    # alter $@ on nefarious repugnancy only
    {
        my $e;
        {
            local $@; # protect existing $@
            Sjis::eval { test_repugnancy() };
            # $@ =~ /nefarious/ and die $@; # Perl 5.14 and higher only
            $@ =~ /nefarious/ and $e = $@;
        }
        die $e if defined $e
    }

    Sjis::eval { block } ÌubNÍ[vÆÍÝÈ³êÈ¢ÌÅA[v§ä¶
    nextAlastAredo ðgÁÄ²¯oµ½èÄÀsµ½è·é±ÆÍÅ«È¢B

=item * t@C¼OrO

    @glob = glob($expr);
    $glob = glob($expr);
    @glob = glob;
    $glob = glob;
    @glob = <*>;
    $glob = <*>;

    ±ÌZqÍ Esjis::glob ÉæÁÄÀ³êÄ¢Ü·BEsjis::glob ÌÚ×ÍÈºÌ
    ÊèÅ·B

    @glob = Esjis::glob($string);
    @glob = Esjis::glob_;

    ±ÌTu[`ÍA$stringÌlÉÎµÄADOSVFÆ¯¶æ¤Èt@C¼WJ
    ðsÁÄ¾çê½ÊðÔµÜ·B$string ªÈª³ê½Æ«ÍãíèÉ $_ ªgíê
    Ü·B±ÌTu[`Í Sjis\tgEFAàÅ <*> ¨æÑ glob ZqðÀµ
    Ä¢éTu[`Å·BMSWin32Â«ÉÄ $string ª chr(0x5c) ÅI¹µÄ¢éê
    Åà®ìµÜ·B

    g¢â··é½ßÉ Esjis::glob ÍAUNIXÅÍÈADOSÌWJðs¤æ¤ÉÈÁ
    Ä¢Ü·BAX^XN("*")ÍACÓÌ¶ðCÓÂ(0ÂÅàæ¢)À×½àÌÉ}b`
    µÜ·BNGX`L("?")ÍACÓÌ¶1ÂÜ½Í0ÂÉ}b`µÜ·BeB
    f("~")Íz[fBNg¼ÉWJ³êÜ·Bá¦ÎA"~/.*rc" Í»ÝÌ[UÌ
    "rc" t@C·×ÄÉ}b`·éµA"~jane/Mail/*" ÍJaneÌ[t@C·×Ä
    É}b`µÜ·B

    ASCIIÌpÌå¶Æ¬¶ÍæÊ³ê¸A¯¶àÌÆµÄµíêÜ·BobNXb
    VÆXbVÍÇ¿çàfBNgZp[^ÆµÄµíêÜ·B_uNH[g
    ¶ñÌÅobNXbV1Â(\)ð\í·½ßÉÍ2ÂÌ \A(ÂÜè \\ )ðLq·
    éKvª èÜ·B

    ó¶ðÜÞÂ\«Ì ét@C¼ðOuµ½¢êÉÍA$stringð_u
    NH[gÅÍÞKvª èÜ·BÈºÈçAEsjis::glob ÍAó¶ðÁÊµ¢µÄ¡
    Ìp^[ÌæØè(á¦Î<*.c *.h>)ÆðßµÄµÜ¤©çÅ·B
    á¦ÎA"e" ÌãëÉó¶A»ÌãëÉ "f" ª±t@C¼ÌOrOðs¤
    ÉÍÈºÌæ¤ÉLqµÜ·B

    @spacies = <"*e f*">;
    @spacies = Esjis::glob('"*e f*"');
    @spacies = Esjis::glob(q("*e f*"));

    Ïðp·éêÍÈºÌæ¤ÉµÜ·B

    @spacies = Esjis::glob("'*${var}e f*'");
    @spacies = Esjis::glob(qq("*${var}e f*"));

    XNvgð¡ãàDOSÌOSÅÀs·éÌÅ êÎA

    # ÎpXÅæ¾·éê
    @relpath_file = split(/\n/,`dir /b wildcard\\here*.txt 2>NUL`);

    # âÎpXÅæ¾·éê
    @abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt 2>NUL`);

    ÆLqµÄàæ¢Åµå¤B

=back

=head1 oCgwüÌÖ

=over 2

=item * CORE::chop

    $byte = CORE::chop($string);
    $byte = CORE::chop(@list);
    $byte = CORE::chop;

    ¶ñÏ é¢ÍoCgñÏÌÅãÌoCgðØèÆµA»ÌoCgðlÆµÄ
    ÔµÜ·BCORE::chop ZqÍAåÉüÍR[hÌö©çüs¶ðæèÌÉ
    p¢çêAu·Zqðg¤(s/\n$//)æèàø¦IÅ·Bàµâè½¢±Æª»ê¾¯
    ÈçÎAchomp ðg¤Ù¤ªæèÀSÅ·BÈºÈçACORE::chop ÍöÉ éoCg
    ð³ðÅæèÌÉÎµÄAchomp ÍæèàÌðIñÅæè©çÅ·B

    eð CORE::chop ·é±ÆÍÅ«Ü¹ñ --- CORE::chop Å«éÌÍÏ¾¯Å
    ·B

    øÆµÄÏÌXg @list ð^¦éÆAXgÌe¶ñÌÅãÌoCgªØè
    Æ³êÜ·:

    @lines = `cat myfile`;
    CORE::chop @lines;

    ãü®ðÜßA¶ÓlÈçÎÇñÈàÌÅà CORE::chop ·é±ÆªÅ«Ü·:

    CORE::chop($cwd = `pwd`);
    CORE::chop($answer = <STDIN>);

    ãÌ2sÍAÌáÆÍáÁ½®ìðµÜ·:

    $answer = CORE::chop($tmp = <STDIN>); # ëè

    ±ÌR[hÅÍACORE::chop ÍA($tmpÉüÁÄ¢é)c³ê½¶ñÅÍÈAØè
    Æµ½oCgðÔ·ÌÅA$answer ÉÍüs¶ªZbg³êÄµÜ¢Ü·BÓ}µ
    ½Êð¾é½ßÌû@Ì1ÂÍAsubstr ðg¤±ÆÅ·:

    $answer = substr <STDIN>, 0, -1;

    µ©µAÌæ¤ÉÌªÊÅ·:

    CORE::chop($answer = <STDIN>);

    ÅàêÊIÈP[XÅÍAsubstr ðgÁÄACORE::chop ð«·¦é±ÆªÅ«Ü·:

    $last_byte = CORE::chop($var);
    $last_byte = substr($var, -1, 1, ""); # ¯¶±Æ

    ±êçª¿Å é±ÆððµÄµÜ¦ÎAÜÆßÄ CORE::chop ðs¤±ÆªÅ«
    Ü·B2ÂÈãÌoCgðÜÆßÄØèÆ·ÉÍAsubstr ð¶ÓlÆµÄg¢A»êÉ
    ó¶ñðãüµÜ·BÌR[hÍ $caravan ÌÅãÌ5oCgðæè«Ü·:

    substr($caravan, -5) = "";

    ±±ÅÍ substr ÉÌlð^¦é±ÆÉæÁÄA(æª©çÅÍÈ)ö©çÌI
    tZbgðwèµÄ¢Ü·Bíµ½oCgðÛ¶µ½¯êÎA4øÌ substr ðgÁ
    Ä5oCgð CORE::chop µÜ·:

    $tail = substr($caravan, -5, 5, "");

    øðÈª·éÆAÏ $_ ªÎÛÆÈèÜ·B

=item * CORE::ord

    $ord = CORE::ord($expr);

    CORE::ord($expr) Í "use Sjis qw(ord);" ÌLqÌL³ÉÖíç¸AíÉ $expr
    ÌæªÌoCglðÔµÜ·B$expr ªÈª³ê½êÍ $_ ªÎÛÆÈèÜ·B
    ±ÌÖÍíÉÈµÌlðÔµÜ·B

    t«ÌlªKvÅ êÎAunpack('c',$expr) ðg¢Ü·BÜ½SÄÌoCgl
    ðXgÆµÄKvÅ êÎ unpack('C*',$expr) ðãíèÉg¢Ü·B

=item * CORE::reverse

    @reverse = CORE::reverse(@list);
    $reverse = CORE::reverse(@list);

    CORE::reverse(@list) ÍXgReLXgÅÍ @list ÌvfðtÉÀ×½
    XglðÔµÜ·B

    XJ[ReLXgÅÍ "use Sjis qw(ord);" ÌLqÌL³ÉÖíç¸A @list
    Ì·×ÄÌvfðAµ½ãÅAoCgPÊÅtÉµ½àÌðÔµÜ·B

=item * CORE::getc

    $getc = CORE::getc(FILEHANDLE);
    $getc = CORE::getc($filehandle);
    $getc = CORE::getc;

    FILEHANDLE ÉÑÂ¯çê½üÍt@C©çAÌ1oCgðÇñÅÔµÜ·B
    end-of-file(t@CÌIíè) ÉÈÁ½©A é¢Í I/O G[ª¶µ½êÉ
    ÍAundef ðÔµÜ·BFILEHANDLE ðÈª·éÆASTDIN ©çüÍµÜ·B

    ±ÌÖÍµx¢àÌÌAL[{[h©ç1oCgðüÍ·éÛÉÖÅ· -- L[
    {[hüÍðobt@OÈµÉÝèÅ«êÎÅ·ªB±ÌÖÍAWI/OCu
    ÉÎµÄAobt@OÈµÅüÍ·éæ¤ÉvµÜ·BcOÈ±ÆÉAW
    I/OCuÍAIy[eBOVXeÉÎµÄobt@OÈµÅL[{[h
    üÍðs¤æ¤Év·é½ßÌAÚA«Ì éèiðpÓ·éÜÅÉÍAW»³ê
    Ä¢Ü¹ñB»êÉÍAXmbð©¹ÄAIy[eBOVXeÉÅLÌâè
    ûð·éKvª èÜ·BUnix ÅÍAÌæ¤É·êÎ¤Ü¢Åµå¤B

    if ($BSD_STYLE) {
        system "stty cbreak </dev/tty >/dev/tty 2>&1";
    }
    else {
        system "stty", "-icanon", "eol", "\001";
    }

    $key = CORE::getc;

    if ($BSD_STYLE) {
        system "stty -cbreak </dev/tty >/dev/tty 2>&1";
    }
    else {
        system "stty", "icanon", "eol", "^@"; # ASCII NUL
    }
    print "\n";

    ±ÌR[hÍA[©çÉ^Cv³ê½1oCgðÏ $key ÉüêÜ·B È½Ì
    VXeÌ stty vOÉ cbreak IvVª éÈçAãÌR[hÌ¤¿A
    $BSD_STYLE ª^ÌêÌR[hðg¤ÆÇ¢Åµå¤B»¤ÅÈ¯êÎA$BSD_STYLE
    ªUÌêÌR[hðg¦Îæ¢Åµå¤B

=item * CORE::index

    $index = CORE::index($string,$substring,$offset);
    $index = CORE::index($string,$substring);

    CORE::index ÍAoCgñ $string ÌÉÜÜêéAà¤1ÂÌoCgñ $substring
    ðTµÜ·B$string ÌÅA$substring ªÅÉo»·éÊuðoCgPÊÅ¦Ä
    ÔµÜ·B$offset ªwè³êÄ¢éêA$string Ìæª©ç $offset oCgªXLb
    vµ½Êu©çA$substring ðTµnßÜ·BÊuÍ 0 ðx[XÉµÄ¦Ü·B
    $substring ª©Â©çÈ¯êÎACORE::index ÖÍx[Xæè 1 ¾¯¬³¢l -1
    ðÔµÜ·BCORE::index ðgÁÄAoCgñSÌð²×éÉÍAÌæ¤ÉµÜ·B

    $pos = -1;
    while (($pos = CORE::index($string, $lookfor, $pos)) > -1) {
        print "Found at $pos\n";
        $pos++;
    }

=item * CORE::rindex

    $rindex = CORE::rindex($string,$substring,$offset);
    $rindex = CORE::rindex($string,$substring);

    CORE::rindex Í CORE::index ÆÄ¢Ü·ªAoCgñ $string ÌÅAªoCg
    ñ $substring ªÅãÉo»·éÊuðoCgPÊÅ¦ÄÔµÜ·(ÂÜè
    reverse CORE::index Å·)B$substring ª©Â©çÈ¯êÎA-1 ðÔµÜ·B
    $offset ÉæÁÄAlÆµÄÔ·±Æª³êéAÅàEæèÌÊuðwè·é±Æ
    ªÅ«Ü·BCORE::rindex ðgÁÄAoCgñSÌðö©çæªÉü©ÁÄ²×é
    ÉÍAÌæ¤ÉµÜ·B

    $pos = CORE::length($string);
    while (($pos = CORE::rindex($string, $lookfor, $pos)) >= 0) {
        print "Found at $pos\n";
        $pos--;
    }

=back

=head1 bytes::* Tu[`ÌAGXP[v

±Ì\tgEFAÉæÁÄ bytes::* Tu[`ÌæªÌ 'bytes::' ªæè©êÜ·B

  -----------------------------------------
  O           ã    ®ì
  -----------------------------------------
  bytes::chr       chr       oCgwü
  bytes::index     index     oCgwü
  bytes::length    length    oCgwü
  bytes::ord       ord       oCgwü
  bytes::rindex    rindex    oCgwü
  bytes::substr    substr    oCgwü
  -----------------------------------------

=head1 ³·évO}¨æÑW[

  -----------------------------------------------------------
  O                    ã
  -----------------------------------------------------------
  use strict;               use strict; no strict qw(refs);
  use 5.12.0;               use 5.12.0; no strict qw(refs);
  require utf8;             # require utf8;
  require bytes;            # require bytes;
  require charnames;        # require charnames;
  require I18N::Japanese;   # require I18N::Japanese;
  require I18N::Collate;    # require I18N::Collate;
  require I18N::JExt;       # require I18N::JExt;
  require File::DosGlob;    # require File::DosGlob;
  require Wild;             # require Wild;
  require Wildcard;         # require Wildcard;
  require Japanese;         # require Japanese;
  use utf8;                 # use utf8;
  use bytes;                # use bytes;
  use charnames;            # use charnames;
  use I18N::Japanese;       # use I18N::Japanese;
  use I18N::Collate;        # use I18N::Collate;
  use I18N::JExt;           # use I18N::JExt;
  use File::DosGlob;        # use File::DosGlob;
  use Wild;                 # use Wild;
  use Wildcard;             # use Wildcard;
  use Japanese;             # use Japanese;
  no utf8;                  # no utf8;
  no bytes;                 # no bytes;
  no charnames;             # no charnames;
  no I18N::Japanese;        # no I18N::Japanese;
  no I18N::Collate;         # no I18N::Collate;
  no I18N::JExt;            # no I18N::JExt;
  no File::DosGlob;         # no File::DosGlob;
  no Wild;                  # no Wild;
  no Wildcard;              # no Wildcard;
  no Japanese;              # no Japanese;
  -----------------------------------------------------------

  utf8 vO}Abytes vO}ÍRgAEg³êÜ·B¯t@CÅñ³êÄ
  ¢éTu[`ÌãíèÆµÄ Esjis.pm ª_~[Tu[`ðñµÜ·B

=over 2

=item * _~[ÌTu[` utf8::upgrade

  $num_octets = utf8::upgrade($string);

  $string ÌINebgðÔµÜ·B

=item * _~[ÌTu[` utf8::downgrade

  $success = utf8::downgrade($string[, FAIL_OK]);

  ±ÌTu[`ÍíÉ^ÌlðÔµÜ·B

=item * _~[ÌTu[` utf8::encode

  utf8::encode($string);

  ±ÌTu[`Í½àÔµÜ¹ñB

=item * _~[ÌTu[` utf8::decode

  $success = utf8::decode($string);

  ±ÌTu[`ÍíÉ^ÌlðÔµÜ·B

=item * _~[ÌTu[` utf8::is_utf8

  $flag = utf8::is_utf8(STRING);

  ±ÌTu[`ÍíÉUÌlðÔµÜ·B

=item * _~[ÌTu[` utf8::valid

  $flag = utf8::valid(STRING);

  ±ÌTu[`ÍíÉ^ÌlðÔµÜ·B

=item * _~[ÌTu[` bytes::chr

  oCgwüÌTu[` chr ÆµÄÀ³êÄ¢Ü·B

=item * _~[ÌTu[` bytes::index

  oCgwüÌTu[` index ÆµÄÀ³êÄ¢Ü·B

=item * _~[ÌTu[` bytes::length

  oCgwüÌTu[` length ÆµÄÀ³êÄ¢Ü·B

=item * _~[ÌTu[` bytes::ord

  oCgwüÌTu[` ord ÆµÄÀ³êÄ¢Ü·B

=item * _~[ÌTu[` bytes::rindex

  oCgwüÌTu[` rindex ÆµÄÀ³êÄ¢Ü·B

=item * _~[ÌTu[` bytes::substr

  oCgwüÌTu[` substr ÆµÄÀ³êÄ¢Ü·B

=back

=head1 Sjis\tgEFAÌ}`oCgAJ[O

=over 2

=item * oCgÆ¶(CJKVúØzîñæè)

VtgJISÌæ¤È}`oCg¶ð·éÆ«Éu¶Ìívu¶Ì}üvu¶Ì
õvðKØÉs¤½ßÉÍA1¶ª1oCgÅ\³êéÆ¢¤ÅèÏOðjçÈ¯êÎÈè
Ü¹ñB

±Ì±ÆÉÂ¢Ä

  CJKVúØzîñ(ISBN 4-87311-108-0)
  http://www.oreilly.co.jp/books/4873111080/
  
  P.439 9.6 oCgÆ¶
    9.6.1 ¶Ìí
    9.6.2 ¶Ì}ü
    9.6.3 ¶Ìõ

ÉÚµ©êÄ¢Ü·B
Ü½±êð Perl vO~OÅð·é½ßÌû@ª¯Ì

  t^W PerlÌvOá
    W.8 CJKV»Ìev[g
      W.8.5 VtgJIS »
    W.9 }`oCgAJ[O
    W.10 }`oCg

ÉfÚ³êÄ¢Ü·B

=item * OiÉæéV½ÈÛè

ãLÌ}`oCgAJ[OÌev[gðp·éÆAVtgJISÌ¶ñð³K\»
ÅÅ«éæ¤ÉÈèÜ·ªA±ÌOiÉæÁÄV½ÈÇÉË«½èÜ·B

  wcs_abe³ñÌñ
  Perl t@CêCÇÝãÌ³K\»ÉÂ¢Ä
  http://okwave.jp/qa/q6674287.html
  
  PerlÅÈºÌÊèAhtmlt@CðSÄÇÝñ¾ãÉ³K\»ðÄ½¢ÌÅ·ªA¤Ü
  ¢«Ü¹ñB°kÅ·ªA´öð²¶mÌû¢çÁµá¢Üµ½ç³¦Ä¸¯Ü¹ñÅµå¤
  ©BÜ½A¼ÉÇ¢ðû@ª èÜµ½ç³¦Ä¸¯éÆK¢Å·B
  ¦PCÂ«Íwindows7, perl5.12Å·BîñÉs«ª²´¢Üµ½ç²wEº³¢B
  
  -----
  #--test.html(¶¤ÌÍs)
  000001 <dl>
  000002 <dt>aaa</dt>
  000003 <dd>12345</dd>
  000004 </dl>
  
  iªj
  
  120001 <dl>
  120002 <dt>bbb</dt>
  120003 <dd>6789</dd>
  120004 </dl>
  
  #--test.pl
  open IN , "test.html";
  local $/ = undef;
  $data = <IN>;
  close IN;
  
  $data =~ s|<dt>bbb</dt>|<dt>ccc</dt>|;
  print "$data\n";
  -----
  
  t@CÌnßÌû¾Æ½éÌÉAã¼ÅÍ½èÜ¹ñB
  ³K\»ÌÎÛÆµÄå«·¬éñÅµå¤©EEEB
  
  $data =~ s|<dt>aaa</dt>|<dt>ccc</dt>|;
  ÍA½èÜ·ª
  
  $data =~ s|<dt>bbb</dt>|<dt>ccc</dt>|;
  ¾Æ½èÜ¹ñB
  
  Ç¤¼æëµ¨è¢¢½µÜ·B
  
  â«
  ãLÌ¿âÅÍAÖAÍ¢Æv¢ ¦ÄLÚµÈ©Á½ñÅ·ªA±Ìhtmlt@CÍ
  SjiseLXgÅA»êðSjis.pmðgÁÄðs¨¤ÆµÄ¢Ü·B

±ÌÇóðÄ»·éÅ¬ÌR[hðÆ

  # XNvg test2.pl
  for my $n (32767, 32768) {
      $_ = ('A' x $n) . 'B';
      if (/(\G(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?)B/) {
          print "ok - ('A' x $n).'B' =~ /B/\n";
      }
      else {
          print "not ok - ('A' x $n).'B' =~ /B/\n";
      }
  }
  __END__

Ìæ¤ÉÈèAÀsÊÍ

  ok - ('A' x 32767).'B' =~ /B/
  not ok - ('A' x 32768).'B' =~ /B/

ÆÈèÜ·B'A' ª 32,767Â±¢½ãÌ 'B' ÍõµÄ©Â©éÌÉA32,768Â±¢½ãÌ
'B' ÍõµÄà©Â©çÈ¢ÌÅ·B

=item * PerlÌ³K\»ÌÊwèqÌÀE

±Ì´öÍ perl C^v^É èÜ·B

  Êwèq
  http://perldoc.jp/docs/perl/5.14.1/perlre.pod
  
  ÈºÌWIÈÊwèqðg¦Ü·:
    *           Match 0 or more times
    +           Match 1 or more times
    ?           Match 1 or 0 times
    {n}         Match exactly n times
    {n,}        Match at least n times
    {n,m}       Match at least n but not more than m times
  
  (Oª) "*" ÊwèqÍ {0,} ÆA"+" ÊwèqÍ {1,} ÆA "?" ÊwèqÍ {0,1} Æ¿
  Å·B n yÑ m Í perl ðrhµ½Æ«Éè`µ½ùèÌ§Àæè¬³Èñ®ñÉ
  §À³êÜ·B ±êÍåïÌvbgtH[ÅÍ 32766 ñÉÈÁÄ¢Ü·B ÀÛÌ§À
  ÍÌæ¤ÈR[hðÀs·éÆ¶¬³êéG[bZ[WÅ ©é±ÆªÅ«Ü·:
  
    $_ **= $_ , / {$_} / for 2 .. 42;

=item * Çðæèz¦éÉÍ

±ÌÀEðñð·éû@ÆµÄAåAms³ñªlÄµ½ÈºÌû@ª èÜ·B

  2002-01-17: ·¢¶ñÉÎ·é³K\»õ
  http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm#long
  
  # êñ¾¯}b`
  my $Apad = '(?:(?:\A|[\x00-\x80\xA0-\xDF])(?:[\x81-\x9F\xE0-\xFC]{2})*?)';
  my $str1 = (' ' x 100000) . 'ACABC';
  $str1 =~ /$Apad([A-Z]+)/o;
  print "$1\n"; # "ABC" Æ\¦³êéB
  
  # O[o}b`
  my $Gpad = '(?:(?:\G|[\x00-\x80\xA0-\xDF])(?:[\x81-\x9F\xE0-\xFC]{2})*?)';
  my $str2 = ' ' x 100000 . 'ACABC'. '¨' x 100000 . 'XYZ';
  my @array = $str2 =~ /$Gpad([A-Z]+)/go;
  print "@array\n"; # "ABC XYZ" Æ\¦³êéB

\A Æ \G ªg¢ª¯çêÄ¢éÌÅ·ªA\G ÍÅÉgíêéÆ«Í \A Æ¯¶æ¤É@\
·éÌÅAÀÛÉÍ \G Ìû@ÐÆÂ¾¯Åæ¢Åµå¤B

  ³K\»ÌNH[gÌZq
  http://perldoc.jp/docs/perl/5.16.1/perlop.pod#Regexp32Quote-Like32Operators
  
  \G assertion (\G AT[g)
  
  (Oª)ÈOÉ /g }b`ðKpµÄ¢È¢^[Qbg¶ñÉÎµÄ /g ÈµÅ \G ðg¤ÆA
  ¶ñÌæªÉ}b`·é \A AT[gðg¤ÌÆ ¯¶±ÆÉÈèÜ·B(ãª)

=item *  ÆµcÁÄ¢éâèÖÌÎ

ãLÌy[WÉÍ

  êoCg¶©AñoCg¶Ì¤¿æñoCgª [\x40-\x7E\x80\xA0-\xDF] ÅIíéàÌ
  ªAÈÆàKÈÔuÅiãÀÉBµÈ¢¤¿Éjo»·êÎAG[ÉÈç¸É·
  é±ÆªÅ«Ü·Bim¦IÈâèÅ·ÌÅA®SÅÍ èÜ¹ñBj

Æ èASoCgª US-ASCII Å\¬³êÄ¢éf[^ÌêÍ¤Ü¢«Ü¹ñB
»Ìæ¤ÈêÍAJ[Oð

  qr{\G.*?}s

É·é±ÆÅÎµÜ·B

=item * ÜÆßéÆ

ÈãÌSÄðl¶µÄAÄÑ}`oCgAJ[Oðl¦éÆÈºÌæ¤ÉÈèÜ·B

  qr{\G(?(?=.{0,32766}\z)(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?|(?(?=[\x00-\x80\xA0-\xDF\xFD-\xFF]+\z).*?|(?:.*?[\x00-\x80\xA0-\xDF\xFD-\xFF](?:[^\x00-\x80\xA0-\xDF\xFD-\xFF]{2})*?)))}oxms
  
  ðà
  
  qr{\G  # \G AT[gÆ \A AT[gðËé
       (?(?=.{0,32766}\z)  # ÎÛ¶ñª 32,766 INebgÈºÅ êÎ
                         (?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?  # ±êª}`oCgAJ[OÉgíêé
                                                                                    |  # 32,767 INebgÈãÅAÈ¨©Â
                                                                                     (?(?=[\x00-\x80\xA0-\xDF\xFD-\xFF]+\z)  # SoCgªVOoCgR[hZbgÅ\¬³êÄ¢éÈçÎ
                                                                                                                           .*?  # ±êªAJ[OÉgíêé
                                                                                                                              |  # »êÈOÌêÍ
                                                                                                                               (?:.*?[\x00-\x80\xA0-\xDF\xFD-\xFF](?:[^\x00-\x80\xA0-\xDF\xFD-\xFF]{2})*?)  # ±êª}`oCgAJ[OÉgíêé
                                                                                                                                                                                                          ))}oxms

MSWin32 Â«Ì ActivePerl Ìo[W 5.6 È~(Perl5.10.0àÜÝÜ·)A é¢Í»Ì¼
Ì Perl Ìo[W 5.10.1 È~ÌêÉ±Ì}`oCgAJ[OªgíêÜ·B
»êÈOÌêÍA±êÜÅÇ¨è

  qr{\G(?:[\x81-\x9F\xE0-\xFC][\x00-\xFF]|[^\x81-\x9F\xE0-\xFC])*?}oxms

ªgíêÜ·B

=back

=head1 Â«Ï

 ±Ì\tgEFAÍr¼§äÉ flock ÖðgpµÜ·Bt@CªÇæèÂ\ÉÈéÜÅ
  é¢ÍÝÂ\ÉÈéÜÅvOÌÀsÍubN³êÜ·B
 ±êðÂ«Ï SJIS_NONBLOCK ðè`·é±ÆÅubN³¹È¢æ¤É·é±ÆªÅ«Ü
 ·B

 á:

   SET SJIS_NONBLOCK=1

 (l '1' ÍÓ¡ð½È¢ÌÅ½Åà\¢Ü¹ñ)

=head1 MacJPerl Ì@\

 }Æ Web ãÌîñðQlÉµÄ MacOS ÉÎµÄÝÜµ½BÀ@ªÈ¢½ßÉeXgª
 Å«Ä¢Ü¹ñB®ìñAoOñ¸¯éÆÆÄà èª½¢Å·B
 
 ÀsÉÍÈºÌ\tgEFAªKvÅ·B
 1. MacPerl W[
 2. Mac::Files W[
 3. ToolServer
 4. MPW(Macintosh Programmer's Workshop)

=head1 oOÆ§ÀÆÝ·«

±Ì\tgEFAÍAÌ\ÍðsµÄAeXgµÄÆµÜµ½B»¤Å ÁÄàA½
Ì³K\»ðÜÞ\tgEFAÍA éöxÌoOð¤±ÆðÜÊªêé±ÆªÅ«Ü¹ñB
æÁÄAàµ È½ÌXNvgÅÍÈÄASjis\tgEFAÌoOð©Â¯½ÌÈçA
Å¬ÀÌeXgR[hÉØèlß½ãÅAìÒÜÅñµÄ¸¯éÆ©èÜ·B

 é¢ÍàÁÆLpÈc[É·é½ßÌæ¢ACfBAª Á½ÈçAFÆ¤LµÄ¸¯é
Æ èª½¢Å·B

=over 2

=item * format

    IWiÌ Perl Æ@\ª¯¶Å·(ShiftJIS ÉÎµÄ¢Ü¹ñ)B

=item * ³K\»ÌNCX^

    ³K\»ÌNCX^ (?s) Æ (?i) ÍÊAÀ³êÈ¢Åµå¤B
    NCX^ (?s) Í /s CüqÆ .(hbg) Æ \N ÅãpÅ«Ü·B
    NCX^ (?i) Í \F ` \E ÅHvµÄLqµÈ¢Æ¢¯Ü¹ñB

=item * chdir

    perl5.005 Å êÎíÉ chdir() ð³íÉÀsÅ«Ü·B

    DOSÌVXe($^O Ìlª MSWin32, NetWare, symbian, dos Ì¢¸ê©Ì
    ê)ÍAÈºÌ§Àª èÜ·B

    perl5.006 Ü½Í perl5.00800 ÌêÅ¶R[h(0x5C)ÅIíéfBNg
    ðwèµÄÀs·éÉÍ jacode.pl CuªKvÅ·B

    perl5.008001È~, perl5.010, perl5.012, perl5.014, perl5.016, perl5.018,
    perl5.020 ÉÄ¶R[h(0x5C)ÅIíéfBNgðwèµÄÀs·éÆ«A
    COMMAND.COM  é¢Í cmd.exe ÉæÁÄ 8dot3name `®ÌZ¢¼Oðæ¾Å«½
    êÍ chdir() ª¬÷µÜ·B½¾µAchdir() ãÌJgfBNgÌ
    ÅIÌTufBNgÍ 8dot3name `®ÌZ¢¼OÉÈèÜ·B

    QlN
    Bug #81839
    chdir does not work with chr(0x5C) at end of path
    http://bugs.activestate.com/show_bug.cgi?id=81839

=item * ¶ÓlÆµÄÌ Sjis::substr

    o[W 5.14 ¢Ì Perl ÌêASjis::substr Í CORE::substr ÆÍÙÈèA
    ¶ÓlÆµÄµ¤±ÆªÅ«Ü¹ñB¶ñÌêªðÏXµ½¢êÍASjis::substr
    Ì4ÔÚÌøÆµÄu·¦ãÌ¶ñðwèµÜ·B
    
    Sjis::substr($string, 13, 4, "JPerl");

=item * ÁêÏ $` Æ $& ðg¤Æ«Í /( ³K\»SÌðLv` )/ ·éKvª èÜ·

    ÈºÈçÎAÈºÌæ¤ÉÏ·³êA$1 ðp·é½ßÅ·B
 
    -------------------------------------------------------------------------------------------
    O          ã               Às³êéàe
    -------------------------------------------------------------------------------------------
    $`              Esjis::PREMATCH()    CORE::substr($&,0,CORE::length($&)-CORE::length($1))
    ${`}            Esjis::PREMATCH()    CORE::substr($&,0,CORE::length($&)-CORE::length($1))
    $PREMATCH       Esjis::PREMATCH()    CORE::substr($&,0,CORE::length($&)-CORE::length($1))
    ${^PREMATCH}    Esjis::PREMATCH()    CORE::substr($&,0,CORE::length($&)-CORE::length($1))
    $&              Esjis::MATCH()       $1
    ${&}            Esjis::MATCH()       $1
    $MATCH          Esjis::MATCH()       $1
    ${^MATCH}       Esjis::MATCH()       $1
    $'              $'                   $'
    ${'}            ${'}                 $'
    $POSTMATCH      Esjis::POSTMATCH()   $'
    ${^POSTMATCH}   Esjis::POSTMATCH()   $'
    -------------------------------------------------------------------------------------------

=item * ³K\»ðKp·é¶ñÌ·³ÌãÀ

    OqÌÆ¨èAGXP[vãÌ³K\»ÉÍ}`oCgAJ[OÌ½
    ßÌLq ${Esjis::anchor} ªÇÁ³êÜ·ªA»ÌÉÜÜêé \G Ì§ñðó
    ¯Ü·BMSWin32ÅÌActivePerl5.6È~(5.10.0àÜÝÜ·)A é¢Í¼ÌPerlÌ
    êÍ5.10.1È~ÅÈ¯êÎA¶ñÌ32,767oCgð´¦éÊuÅ}b`³¹é
    ±ÆªÅ«Ü¹ñB
 
    QlN
    
    In 5.10.0, the * quantifier in patterns was sometimes treated as {0,32767}
    http://perldoc.perl.org/perl5101delta.html
    
    [perl #116379] \G can't treat over 32767 octet
    http://www.nntp.perl.org/group/perl.perl5.porters/2013/01/msg197320.html
    
    perlre - Perl regular expressions
    http://perldoc.perl.org/perlre.html
    
    perlre length limit
    http://stackoverflow.com/questions/4592467/perlre-length-limit

=item * WJ·éÆóÉÈé³K\»ÌÏ

    óÌe¶ñÆÍÙÈèA³K\»ÉWJ³ê½ÏÌlªó¶ñÅ Á
    ÄàA¼OÉ¬÷µ½³K\»ÍgíêÜ¹ñB

=item * ??, m?? àÌ§À

    ?? Ü½Í m?? ÌàÅ}`oCg¶ÉÎµÄ {n,m} {n,} {n} * + ÈÇÌÊw
    èqðt¯½¢êÍA»Ì¶ð ( ) ÅÍñÅLq·éKvª èÜ·B»ÌÊA
    $1,$2,$3,... Í¸êÄµÜ¤½ßA»ÌLqðC³·éKvª èÜ·B
    È¨ ?? Ü½Í m?? Íf~^ª ? ÈÌÅA(?: ) âÊwèqÌ ? {n,m}? {n,}?
    {n}? ÍLq·é±ÆªÅ«Ü¹ñB

=item * ãÇÝ¾¾

    ãÇÝ¾¾(á¦Î (?<=[A-Z]))ª¼OÌñoCg¶ÌæñoCgÉëÁÄ}b`
    ·é±ÆÉÍÎ³êÄ¢Ü¹ñB
    á¦ÎA'ACE' =~ /(?<=[A-Z])([ACE])/ ðÀs·éÆ}b`µÄ $1 Í 'C'
    ÉÈèÜ·ªA±êÍ³µ èÜ¹ñB

=item * ³K\»ÌCüq /a /d /l /u

    ±Ì\tgEFAÌRZvgÍAÐÆÂÌXNvgÌe¶ñâ³K\»
    ÌeªÉ¡Ì»û®ðpµÈ¢æ¤É·é±ÆÅ·B]ÁÄCüq
    /a /d /l /u ðT|[gµÜ¹ñB
    \d ÍÌà¡à [0-9] ðÓ¡µÜ·B

=item * ¼Ot«¶

    á¦ÎA\N{GREEK SMALL LETTER EPSILON}A\N{greek:epsilon}A\N{epsilon} Ìæ¤
    È¼Ot«¶ÍpÅ«Ü¹ñB

=item * ³K\»ÌUnicode®«

    ³K\»ÌUnicode®«Íp·é±ÆªÅ«Ü¹ñBPerl5.18ÅÇÁ³ê½ (?[])
    \¶àpÅ«Ü¹ñB¢ÜÌÆ±ë»êçðT|[g·é\èÍ èÜ¹ñB

=item * ³³êé ${^WIN32_SLOPPY_STAT} Ìl

    Microsoft Windows ãÅ chr(0x5c) ÅIíépXðwèµÄt@CeXg(Zq)A
     é¢Í lstat()Astat() ðÀs·éÆA${^WIN32_SLOPPY_STAT} É^ÌlªÝè³ê
    Ä¢éêÅà»Ìt@CðI[vµÄ²×Ü·B

=item * ¶ñ¨æÑ³K\»Ìf~^

    qq//, q//, qw//, qx//, qr//, m//, s///, tr///, y/// Ìf~^ÆµÄChL
    N^ðgp·é±ÆÍÅ«Ü¹ñB

=back

=head1 ìÒ

±ÌvWFNgÍ ît  ina@cpan.org ÉæÁÄnÜèÜµ½B

=head1 ì 

±Ì\tgEFAÍt[\tgEFAÅ·B È½Í Perl Æ¯¶CZX
Ì³ÅÄzzyÑÏXðs¤±ÆªoÜ·BÚµÍ perlartistic ðQÆµÄ
¾³¢B

±Ì\tgEFAÍLpÅ é±ÆðèÁÄÐz³êÜ·ªA*SÌ³ÛØ* 
Å·B¤ÆÂ\«ÌÛØâÁèÌÚIÖÌK«ÍA¾OÉ¦³ê½àÌàÜ
ßS¶ÝµÜ¹ñB

=head1 VtgJISR[hÆÍ(ú{êîñæè)

VtgJIS»ÍA}CN\tgÐÉæèJ³ê½Aú{ÌRs[^ÅÅàæ
p¢çêé»û®Å·BVtgJISÍuMS¿(Microsoft¿)vAÜ½ÍuSJIS
(ShiftJISÌªÌ)vÆàÄÎêÄ¢Ü·B

©ÂÄú{ÌRs[^[UÍ¼pÐ¼¼µ©g¦È©Á½½ßA]û®ÆÌÝ·«
ðÛ·éÚIÅVtgJISªJ³êÜµ½B

VtgJISÉ¨¢ÄÍA16iÅ 0x81`0x9F Ü½Í 0xE0`0xEF ÌÍÍðÂINebg
ÉæÁÄ1¶2INebg[hªJnµÜ·B»µÄ±ÌINebgÍA»±©çnÜé
2INebg¶Ìæ1INebgÆµÄ³êÜ·B±(æ2)INebgÍA16iÅ
0x40`0x7E Ü½Í 0x80`0xFC ÌÍÍðÂlÅÈ¯êÎÈèÜ¹ñBæ1INebgÌ
ÍÍÍg£ASCII¶ZbgAÂÜèÅãÊrbgªIÉÈÁ½8rbg¶ZbgÌÍÍ
É®SÉûÜÁÄ¢é±ÆÉÚµÄ¾³¢BÜ½VtgJISÍA¼pÐ¼¼ÆASCII/JIS
[}àT|[gµÄ¢Ü·B

êÌVtgJISdl(ÁÉ[Jdl)ÅÍA[Uè`¶ÌR[hÌæâAêÉæÁÄ
Í¼pÐ¼¼ó¶ÌR[hÊuàè`³êÄ¢Ü·Bàµ{iIÈîñð·ð]ÞÌÅ
 êÎA±Ìæ¤ÈR[hÌæâR[hÊuÍssÅ·BÆ¢¤ÌàA±Ìæ¤È¶ÍA
ÊÌú{ê»û®(ÂÜèJISÆEUC)ÌR[hÊuÉÏ·Å«È¢æ¤É»³êÄµ
Ü¤©çÅ·B

=head1 EBLyfBAÉæéuShift_JISvÌè`

Shift_JIS (2011.10.27 00:00:00 JST). In Wikipedia: The Free Encyclopedia.
Retrieved from
http://ja.wikipedia.org/wiki/Shift_JIS

oT: t[SÈTwEBLyfBA(Wikipedia)x

Shift_JISiVtgWXjÍA»Ý½Ìp\RãÌt@CàÅú{êð\·½ß
ÉgíêÄ¢é¶R[hÅ éB©ÂÄÍx_[ÉæéÆ©g£ðÜÞ¶R[h
QÉÎ·éBÈ¼ÌÅ Á½ªA»ÝÍW»¶JIS X 0208Ì®1ÅKè³ê
Ä¢éBuShift_JISvÍIANAÉ¨¯éo^¼Å éB

Shift_JISÌa¶

1980NãAp\Rp16rbgCPUÌyà ¢ÜÁÄA¿â¼¼ð\¦Â\Èn[
hEFAðõ¦½p\Rª±XÆ³ê½B»Ì½ßAú{êð\»Å«é¶
»û®ªÍõ³êÄ¢½iShift_JISðuVtgJISR[hvÆÄñÅ»¶
Wi¶R[hjÌÊÌÝðl¦éc_ª éªA±±ÅÍ¶»û®ÌÊÉ
Å_ðÄéjB

¶»û®Shift_JISÌÝvÒçÍAæsµÄæp³êÄ¢½JIS C 6220
i»ÝÌJIS X 0201jÌ8rbgiÈºupE¼pJivjÆAJIS C 6226
i»ÝÌJIS X 0208AÈºu¿vjÌ¼¶Wð\»µæ¤Æµ½BÜ½At@
CÌå«³âÔÌZkð}é½ßAGXP[vV[PXÈµÅ¬ÝÂ\É
·é±Æðé}µ½B

JIS C 6220ÆJIS C 6226Ì2ÂÍÆàÉAISO 2022Å¶WðØèÖ¦Äp·é
Ývª Á½BISO 2022ÉîÃ¶»û®ÅÍApA¼pJiA¿Í»ê
¼êA8rbgóÔÌÌGL/GRÆ¢¤ÌæÌ1Âði½¾µ¿Í2ñjg¤±ÆÅ
\»Å«éBàµpÆ¿Ì2ÂðGXP[vV[PXÈµÅ¬Ýµ½¢ÈçA
pðGLA¿ðGRÉèÄéû@ª éBEUC-JPÍA¨¨æ»»Ìæ¤ÉÀ
³êÄ¢éB

µ©µAp\RÅÍ·ÅÉAJIS X 0201Ì8rbgAÂÜèGLÉpAGRÉ1o
CgJ^Jii¼pJ^JijðèÄ½ªyµÄ¢½BpÆ1oCgJ
^JiÌ2Âð®©·±ÆÍA¶»¯Ì´öÉÈé½ßð¯éKvª Á½B»Ì
½ßAISO 2022ÌgàÌÌæÉ¿ð¬Ý³¹é±ÆÍ¢ï¾Á½B

1982NA¿ÌÊuð¡GÉÚ®iVtgjµAóÔÌÔÉµÞ
Shift JISªa¶µ½B±êðÀ»·é½ßÉÍA¿Ì1oCgÚÆµÄAISO 2022
É¨¯éGRiA1(16)-FE(16)jÌæÉ3ªÌ1cµÄ¢½¢gpÌæÉÁ¦AISO 2022É
¨¢ÄñgpÌCRi80(16)-9F(16)jÌæðgp·é±ÆÆµ½B½¾µAGLi21(16)
-7E(16)jÌæÉ¨¢ÄÍAJIS X 0201ÌLÉ½éªÍÉÍð¯½B³çÉ2oC
gÚÉÍAISO 2022ÆÍÙÈèApE¼pJiÉgpÏÝÌÌæðàÜÞAGLA
CRAGRÉ ½éeÌæÌÙÚSÄðg¤Kvª Á½B

}CN\tgiú{@lj³ï·ÌÃìÉæéÆAShift_JISÌ§èÉÍAAX
L[A}CN\tgiÄjAOHd@A}CN\tgEFAEA\VGCcAf
W^T[`iÄjªÖíèAÁÉAXL[ÌRºÇ ªSÆÈÁÄì¬µ½
àÌ¾Æ¢¤B±êÉÎ·éÙàÆµÄAsåw³öÌÀªFêÍA}CN\
tgEFAEA\VGCcÆOHd@ÌÝÌ¤¯J¾Æå£µÄ¢½ªARº{l
Ì¾ÉæèÀªÍ©àðPñ·é¾ðµÄ¢éBÜ½ÃÍLife with UNIXÌ
óiISBN 4-7561-0783-4jÌuUNIXl¼Tv|óÅÁMªip. 45jÅA[£
O±ÉuMS¿R[hÌìÒÌêlvÆ¢¤Ðî¶ª©êÄ¢½B

Shift_JISÌW»

Shift_JISÍA»¶WÆ»Ì¶»û®Ì¼ûðÜÞ»ÀÌâèðð·
é½ßÌZpÅ éB»êä¦AJIS X 0208Ì¶WðpµÄÍ¢éàÌÌA
ISO 2022Ì»ÌûjÌÍÍÌOÉ éB

µ©µ»ÝÅÍAJIS X 0208:1997Ì®1ÉAuVtg»\»vÆ¢¤¼OÅ
dlªè`³êÄ¢éB±êÍAft@NgX^_[hÆÈÁÄ¢éZpÉÂ¢Ä
Ío©ðâèÆ¹¸AÆà©W»µÄµÜ¨¤Æ¢¤Ó}ªú{HÆW²¸ï
 (JISC) É ÁÄÌ±ÆÅ éB

JIS X 0208Ìg£KiÅ éJIS X 0213ÅÍA2000N§èÌÅÅ®1ÆµÄ
Shift_JISX0213ªèßçê½B2004Nü³Ì10¶ÇÁÉºÁÄAShift_JIS-2004
Æ¼ÌªÏX³ê½B

IANAÅàuShift_JISvÆ¢¤¼OªèÄçêÄ¢éB

_Æ_

_
1. Sp¶ÆAJIS X 0201Åè`µ½¢íäé¼pJi¶ð¯êÌR[hÌnÅ
   \»Å«éB
2. ú{êÂ«É¨¢ÄÍAMS-DOSÅú{êp¶R[hÆµÄÌp³êÄÈAp\
   RÉ¨¢Ä³|IÈyxª èA»Ì¼Ì¶»û®Éä×Äf[^ð·
   Â\«ª¢B

_
1. ¼pJiÌ½ßÌÌæðmÛµ½ÖWãAR[hV[NGXªæ_ÔÌuæv
   ÌæØèÅÍÈ¢ÓÅªfµÄ¢éB±Ì½ßAR[hÔðZÅßéÛÍ
   ÏGÈªKvÅ éB
2. 2oCgÚÉ80(16)¢(ASCIIÌR[hÌæ)ª»êéB±Ì½ßA¶ÌæØèÌ
   »èÉèÔª©©éBt@Câd¶Ìæª©ç¶R[hÌ»èð·éêÍæ¢
   ªAãë©ç»èðµæ¤Æ·éÆAÅ«ÌêAæªÜÅ½ÇçÈ¢Æ¢¯È¢
   ±Æª é½ßAvOÌìèûÉHvªKvÉÈéBÜ½A±ÌÌæÉÜÜ
   êéêÌ¶Ìµ¢Ì½ßA}`oCgÌEUC-JPAUTF-8ÈÇÉä×AvO
   ~OãÌµ¢ªïµ¢iðQÆjB
3. JISâ¿ª\»Å«È¢Bâ¿Ì¶ÍShift_JISÌR[h¢o^ªÉ
   ûÜçÈ¢B
4. ¶WÉÂ¢ÄÍÀx_ªJIS X 0208ÅKè³êÄ¢È¢@íË¶Ìg£ð
   {µÄ¢é±Æª½A±¤¢Á½g£ªÉÖµÄÍf[^ð·Â\«ªá¢B

2oCgÚª5CÉÈè¤é±ÆÉæéâè

Shift_JISÅÍAu\vu\vÈÇêÌÌ2oCgÚÉA5C(16)iShift_JISÅÍ
LAASCIIÈÇÅÍobNXbVjðgpµÄ¢éB½ÌvO~O¾ê
 (CAPerlABourne ShellÈÇ½) ÅÍA±Ì5C(16)ðGXP[v¶ÆµÄ¢éB
µ½ªÁÄA\[XR[hâ¶f[^ÌÉ¨¢ÄShift_JISðzèµÄ¢È¢v
O~OÂ«ÅÍâèªN±éB±ÌâèÍA¯¶æ¤É2oCgÚÌÍÍÉ5C(16)
ðÜÞBig5âAGBKÈÇÌ¶R[hÅà¶µ¤éB

Ü½A5C(16)ÈOÉÂ¢ÄàÞÌâèª¶·é±Æª éB½Æ¦ÎAUnixâ
MS-DOSÈÇÌVFãÅ7C(16) (Shift_JISâASCIIÅÍo[eBJo[) ðÜÞ¶
i|A|A|A|A|A|A|Accjðt@C¼Égpµæ¤Æ·éÆApCv
LÆF¯³êA³íÉt@Cªì¬³êÈ©Á½èAÇÝÝªsÇÉÈÁ½è
·é±Æª éB

»ÝÅàAVOoCg¶R[hÎÌ\tgEFAðShift_JISÂ«Ågp·é
ÆAüsÈÇÌ®ìât@C¼ÌÈÇÉµÎµÎ±ÌâèªÂ«ÜÆ¤B±Ì
sïðµA2oCgÚÉ5C(16)ðÂ¶ÍÉu¾ß¶vÆÄÎêA±ÌÉ
Íu\vu\vu\vu\vÈÇêÊÉgppxÌ¢¶àÜÜêéB

±Ìâèðñð·é`IÈû@ÆµÄA\[XR[hSÌðEUCR[hâUTF-8ÈÇÉ
Ï·µÄ©çRpCµ½èÀsµ½è·éû@ª éiáFPerl Ìencodingv
O}jB é¢Íu\v¨u\\vÌæ¤ÉA2oCgÚÌ¼O(u¼ãvÆ©êÄ¢é
îñÍëèÅA³µÍu¼OvB»¤ÅÈ¯êÎA¾ß¶ðGXP[v·é±Æª
Å«È¢B)ÉGXP[v¶Ì5C(16)ðLqµAu¾ß¶vð¶ÆµÄ³µF¯
³¹éû@à éiáFPerlÌSjis\tgEFAjB é¢Í¶Ü½Í¶ñÆµÄ
µí¸ÎÛ¶¨æÑà\»`®ðlÌzñÆµÄÏ·ðs¢Aæèµ¤ÛÉ¶
ÉµÄµ¤û@à éiáFPerl ÌEncodeW[jB

á

u\íÈ¢vÆ¢¤¶ñª¢Â©Ìf¦Â\tgÅuúÈ¢vÆ¶»¯·éá
ªpÉÉ©çêéB

   \   í   È   ¢
  8d5c 82ed 82c8 82a2
  obNXbVÉ ½é5cª²¯éÆA
  8d   82ed 82c8 82a2
        ï¢¯  È   ¢

u¢vÆ¢¤¶ÌÆ±ëÅfR[hªÄ¯ú³êãÌ¶ñÍ³íÉßéBÜ½¯l
Éu|\Evªu|EvÉ»¯éáà éB 

   |    \   E
  8c7c 945c 8a45
  obNXbVÉ ½é5cª²¯éÆA
  8c7c 94   8a45
   |       E

  \ 2oCgÚÉ5C(16)ðÂ¶ê ¶ (16i) ÇÝEÓ¡ 

  \   815C _bV
  \   835C Ð¼¼Ìu»v
  \   845C L¶ÌEB
  \/? 875C WindowsÂ«ÅÍ[}Ì9
            MacÂ«ÅÍGB(MKoCg)
  \   895C ¤í³B
  \   8A5C C¢
  \   8B5C  ´ÞB¼\
  \   8C5C ¯¢Bl¼B
  \   8D5C ©Ü¦éB\¢
  \   8E5C JCRB{\
  \   8F5C ¿Ì10B
  \   905C à¤·AµñB\¿
  \   915C »AÐBu]vÌóüWÌi³ÌjB\·
  \   925C ½ñB\y
  \   935C ÍéB\t
  \   945C Ì¤B\Í
  \   955C  çí·AÐå¤B\»
  \   965C  ÎêéAÚ¤B\Í
  \   975C  ç©¶ßAæB\õ
  \   985C ëBî\
  \   995C ÆA¤³¬BuevÌÙÌ
  \   9A5C ©B\
  \   9B5C ±¤B\a(uaÌñ·¦)
  \   9C5C âBí¶ÌuívÌ³Ì
  \   9D5C ¾B\ß
  \   9E5C ÈÌÊÌ
  \   9F5C ··éA»¤Aµå¤B
  à\   E05C ³ç¤AµãñB
  á\   E15C Ó²AÙñB
  â\   E25C ÆéAÖ¢B
  ã\   E35C  âA³¢B
  ä\   E45C ÅñAµèBä\
  å\   E55C  ¢BaCå\X
  æ\   E65C GÌÌ
  ç\   E75C ÌÌÃ
  è\   E85C ÂÎBÌè\(Õ)B
  é\   E95C ÜñBé\ª
  ê\   EA5C oB¹Ì¼B
  úx   ED5C µãñB
  ûx   EE5C ¬åB
  ú\   FA5C í½A±¤B
  û\   FB5C ¬ñB

R[hóÔÉ¨¯é¶§À

Shift_JISÌ2oCgR[hÌóÔÍAæ1oCgª81(16)-9F(16)ÈçÑÉE0(16)-
FC(16)Aæ2oCgª40(16)-7E(16)ÈçÑÉ80(16)-FC(16)Å éBµ½ªÁÄA
60~188=11280¶A³çÉ1oCgR[hª158¶iXy[XðÜÝADELÍ¦¸j
Å é½ßAv11438¶ÆÈéB

È¨AShift_JIS-2004ÅÍA2oCg¶ª11233¶A1oCg¶ª158¶Ì½ßA
v11391¶ðgpµÄ¢éB

Shift_JISÉ¨¯éuVtgvÆÍ

Shift JISÌuVtgvÆÍA256~256Ì½ÊÌÅ¶ð¡GÉ"¸ç·"Æ¢¤Ó¡
ÌuVtgvÅ éB

ISO-2022-JPÍw¦V[PXÅ¿ÆAt@xbgðØèÖ¦é»û®Å éB
Ü½AEUC-JPÍâ¿Æ¼pJ^JiðVOVtgÅêIÉØèÖ¦Äg¤
»û®Å éB±êçÌ»û®ÅsíêÄ¢éAe¶WÌÊðVtgR[
hÉæÁÄØèÖ¦éìàuVtgvÆÄÎêéªAShift_JISÌuVtgvÍ±ê
çÆÍÙÈéÓ¡Å éBÜ½rbgð¸ç·ìirbgVtgjÆàÙÈéB

Shift_JISÆæ_Ô

Shift_JISª»ÌÎÛÉ·é¶WÍAJIS X 0208Å éB±Ì»¶W
ÉÍAæ_ÔÆ¢¤TOª¶Ý·éB±êÍA94~94Ì¶\ÌsÆñÌÔÌg
Å éB

Shift_JISÅÍA8140(16)-FCFC(16)Æ¢¤æ¤ÉAJIS X 0208ÆÍÜÁ½áÁ½R[
hÌnÅ éªAJIS X 0208ðvZÉæèÏ`µ½àÌÅ é½ßAæ_Ôðp¢Ä
¶ÌR[h|Cgðwµ¦·±Æª½¢BàeÉÂ¢ÄÍAJIS X 0208Ì1`94æ
Æ¯¶Å éB½¾µA@íË¶¶ÅÍAVtgJISÌóÔ©çt¬µA94æÌ
ºûÉ ½©à120æÜÅªg£µÄ¢é©Ìæ¤Éµ¤±Æª éB95æÈãÍA
ISO/IEC 2022É¥Á½JIS X 0208Ì\¢ÅÍ¶Ýµ¾È¢ÌÅA{Í¨©µ¢B
x_Æ©Ìñö®ÈTOÅ éBÈ¨AJIS X 0213ÌKiÌêÅ é
Shift_JISX0213»\»É¨¢ÄÍAæ1oCgF0(16)È~ð2ÊÌ¶ÉèÄÄ
¨èAS½æÆ¢¤æ¤È¶ÝµÈ¢æÔÍoêµÈ¢B

ux-sjisvÆuMS_Kanjiv

ux-sjisvÆuMS_KanjivÍÆàÉAHTMLhLgÌucharsetvÌwèÉ
uShift_JISvÌÊ¼ÆµÄg¤±ÆªoéB

ux-sjisvÍIANAÉuShift_JISvÆ¢¤¼Oðo^·éOÉANetscape Navigator
2.0É¨¢ÄgÁÄ¢½GR[fBOÌwèq¼Å éBêÌHTML¶¬\tgª
©®Å±ÌwèqðgÝñÅgÁÄ¢éB»Ì½ßF¯Â\ÈuEUª éªA
uShift_JISvÉ«·¦é±Æð§µÄ¢éB

uMS_KanjivÍIANAÉæèuShift_JISvÌÊ¼ÆµÄèÄçêÄ¢éB


=head1 ±Ì\tgEFAÅÌ "ShiftJIS"

±Ì\tgEFAÅ¢¤ "ShiftJIS" ÍãLÌuR[hóÔÉ¨¯é¶§ÀvÌ
11438¶·×Äðµ¦é±ÆðÚwµÄ¢Ü·B»Ì½ßÉASYÍ2Âgí
êÄ¢Ü·B

* ASY 1

    INebgÌÀÑ©ç¶ðæèo·Æ«A1INebgR[hÆ2INebgR[h
    ÌæÊÍæ1INebgR[hÌÝÅsíêÜ·Bæ2INebgÍl¶³êÜ¹ñB

    1INebgR[h:
      0x00-0x80, 0xA0-0xDF, 0xFD-0xFF

    2INebgR[h:
      æ1INebg  0x81-0x9F, 0xE0-0xEF, 0xF0-0xFC
      æ2INebg  0x00-0xFF (·×Ä)

    s³È1INebgR[h:
      0x81-0x9F, 0xE0-0xFC
      * ¶ñÌÅIINebgª2INebgR[hÌæ1INebgÆ¯¶ê

ÈºÉR[h\ðfÚµÜ·B

        1INebgR[h\

   0 1 2 3 4 5 6 7 8 9 A B C D E F 
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 0|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x00-0x80
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 1|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 2|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 3|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 4|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 5|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 6|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 7|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 8|*| | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 9| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 A|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0xA0-0xDF
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 B|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 C|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 D|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 E| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 F| | | | | | | | | | | | | |*|*|*| 0xFD-0xFF
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

                                 2INebgR[h\
            æ1INebg                                    æ2INebg


   0 1 2 3 4 5 6 7 8 9 A B C D E F                 0 1 2 3 4 5 6 7 8 9 A B C D E F 
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 0| | | | | | | | | | | | | | | | |              0|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x00-0xFF
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 1| | | | | | | | | | | | | | | | |              1|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 2| | | | | | | | | | | | | | | | |              2|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 3| | | | | | | | | | | | | | | | |              3|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 4| | | | | | | | | | | | | | | | |              4|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 5| | | | | | | | | | | | | | | | |              5|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 6| | | | | | | | | | | | | | | | |              6|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 7| | | | | | | | | | | | | | | | |              7|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 8| |*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x81-0x9F    8|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 9|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|              9|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 A| | | | | | | | | | | | | | | | |              A|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 B| | | | | | | | | | | | | | | | |              B|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 C| | | | | | | | | | | | | | | | |              C|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 D| | | | | | | | | | | | | | | | |              D|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 E|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0xE0-0xFC    E|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 F|*|*|*|*|*|*|*|*|*|*|*|*|*| | | |              F|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


¶ñÌÅIINebgª2INebgR[hÌæ1INebgÆ¯¶ê

s³Å ÁÄà³³ê½èA©®IÉí³êé±ÆÍ èÜ¹ñB
á¦ÎAEsjis::chop Í±ÌINebgðÔµÜ·B

    *s³È* 1INebgR[h

   0 1 2 3 4 5 6 7 8 9 A B C D E F 
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 0| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 1| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 2| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 3| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 4| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 5| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 6| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 7| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 8| |M|M|M|M|M|M|M|M|M|M|M|M|M|M|M| 0x81-0x9F
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 9|M|M|M|M|M|M|M|M|M|M|M|M|M|M|M|M|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 A| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 B| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 C| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 D| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 E|M|M|M|M|M|M|M|M|M|M|M|M|M|M|M|M|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 F|M|M|M|M|M|M|M|M|M|M|M|M|M| | | |  0xE0-0xFC
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


=head1 x_Ê SJIS R[hê

http://home.m05.itscom.net/numa/cde/sjis-euc/sjis.html

 DEC PC                         0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 DEC WS                         0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Fujitsu TrueType font (PC)     0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Fujitsu FontCity font (PC)     0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Hitachi PC                     0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Hitachi WS                     0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 IBM                            0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 NEC Windows (PC)               0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 NEC DOS (PC)                   0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 SONY NEWS-OS                   0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Sun Wabi                       0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Unisys PC                      0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 HP Japan Japanese HP-15        0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 AT&T Japan                     0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Mitsubishi Electric FONTRUNNER 0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Concurrent Japan               0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 Informix ASCII INFORMIX V6 ALS 0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC), (0xFD)(0xA1-0xFE)(0xA1-0xFE)
 Oracle Oracle7 (Release 7.1.3) 0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x00-0xFF)
 Sybase SQL Server, Open Server 0x00-0x7F, 0xA1-0xDF, (0x81-0x9F, 0xE0-0xFC)(0x40-0x7E, 0x80-0xFC)
 
 ú{êîñ(ISBN 4-89052-708-7)æè
 
 Hewlett-Packard HP-15          0x00-0x7F, 0xA1-0xDF, (0x80-0xA0, 0xE0-0xFE)(0x21-0x7E, 0x80-0xFF)


* ASY 2

    ASY 1 ÉàÖíç¸Atr/// Éæè¶ÌÍÍðwè³ê½êÍÈºÌ¶
    ÌÝªLøÆÈèÜ·B

    1INebgR[h:
      0x00-0x80, 0xA0-0xDF, 0xFD-0xFF

    2INebgR[h:
      æ1INebg  0x81-0x9F, 0xE0-0xEF, 0xF0-0xFC
      æ2INebg  0x40-0x7E, 0x80-0xFC

á¦ÎA[\x81\x00-\x82\xFF] Æ©ê½êÍ [\x81\x82][\x40-\x7E\x80-\xFC] ð
Ó¡µÜ·B

ÈºÉR[h\ðfÚµÜ·B

        1INebgR[h\

   0 1 2 3 4 5 6 7 8 9 A B C D E F 
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 0|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x00-0x80
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 1|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 2|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 3|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 4|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 5|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 6|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 7|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 8|*| | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 9| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 A|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0xA0-0xDF
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 B|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 C|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 D|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 E| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 F| | | | | | | | | | | | | |*|*|*| 0xFD-0xFF
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


                                 2INebgR[h\
            æ1INebg                                    æ2INebg

   0 1 2 3 4 5 6 7 8 9 A B C D E F                 0 1 2 3 4 5 6 7 8 9 A B C D E F 
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 0| | | | | | | | | | | | | | | | |              0| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 1| | | | | | | | | | | | | | | | |              1| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 2| | | | | | | | | | | | | | | | |              2| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 3| | | | | | | | | | | | | | | | |              3| | | | | | | | | | | | | | | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 4| | | | | | | | | | | | | | | | |              4|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x40-0x7E
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 5| | | | | | | | | | | | | | | | |              5|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 6| | | | | | | | | | | | | | | | |              6|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 7| | | | | | | | | | | | | | | | |              7|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 8| |*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x81-0x9F    8|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0x80-0xFC
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 9|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|              9|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 A| | | | | | | | | | | | | | | | |              A|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 B| | | | | | | | | | | | | | | | |              B|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 C| | | | | | | | | | | | | | | | |              C|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 D| | | | | | | | | | | | | | | | |              D|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 E|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*| 0xE0-0xFC    E|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 F|*|*|*|*|*|*|*|*|*|*|*|*|*| | | |              F|*|*|*|*|*|*|*|*|*|*|*|*|*| | | |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


=head1 ÚWÆµÄ¢éàÌ

vO~O Perl æ3Å VOLUME 1 (ISBN 4-87311-096-3)
15Í Unicode QÆ

Unicode T|[gª perl É±ü³êéÈOÍAeq ZqÍA2ÂÌXJ[ÏÉæÁ
Ä\³ê½oCgñð½¾ä×Ä¢Üµ½Bperl5.8 È~Aeq ÍA2ÂÌoCgñðä×é
Æ¯É UTF8 tOðl¶µÜ·B

/* ÈºÍ³Éðµæ¤ÆµÈÆà\íÈ¢B */

  perl5.8 È~Ìîñf
 
    +----------------------+---------------------+
    |     Text strings     |                     |
    +----------+-----------|    Binary strings   |
    |  UTF-8   |  Latin-1  |                     |
    +----------+-----------+---------------------+
    | UTF8     |            Not UTF8             |
    | Flagged  |            Flagged              |
    +--------------------------------------------+
    http://perl-users.jp/articles/advent-calendar/2010/casual/4

Perl Ì¶ñfÌ¬ÍuoCi¶ñ(Binary strings)vÆ¢¤½`êª´ö
¾ÆvíêÜ·B
uoCi¶ñ(Binary strings)vÌÓ¡
1. ñeLXgñ(Non-Text strings)
2. fW^INebgñ(Digital octet string)

±êçÌpêðgÁÄAãÌ}ð ç½ßÄ¢ÄÝÜµå¤B

    +----------------------+---------------------+
    |     Text strings     |                     |
    +----------+-----------|   Non-Text strings  |
    |  UTF-8   |  Latin-1  |                     |
    +----------+-----------+---------------------+
    | UTF8     |            Not UTF8             |
    | Flagged  |            Flagged              |
    +--------------------------------------------+
    |            Digital octet string            |
    +--------------------------------------------+

Perl5.8 ÅÀ{³ê½u¶ñvÆ¢¤¾tÌÓ¡ÌÏXA¶ñìÌC^tF[X
ÌÏXÉÂ¢ÄA¢ÜÈ¨RZTXª¾çêÄ¢éæ¤ÉÍv¦Ü¹ñBNÌÔu
ð¨¢Ä Perl ðp·éå½ÌvO}ÉÎµÄAÀÌsððµÄàç¤Ì
Í³ª éÆv¢Ü·B

»±ÅA³Ìû@Éß·±ÆÉæÁÄÇÌæ¤Éð³êéÌ©AÙ±èÉÜÝê½Ã¢
Programming Perl, 3rd ed. (Mó vO~OPerl æ3Å) Ì402y[Wðà¤êx
ÐàÆ¢ÄÝÜµå¤EEEB

  UNIX/C¾êIÈ perl3 È~A é¢Í±Ì\tgEFAÉæéîñf
 
    +--------------------------------------------+
    |    Text string as Digital octet string     |
    |    Digital octet string as Text string     |
    +--------------------------------------------+
    |       Not UTF8 Flagged, No Mojibake        |
    +--------------------------------------------+

zIÉÍAÈºÌ5ÂÌS[ðÀ»µæ¤Æl¦Ä¢Ü·B

=over 2

=item * S[1

    ù¶ÌoCgwüÌXNvgÍAÈOµÁÄ¢½ù¶ÌoCgwüÌf[^ÉÎµ
    ÄAÈOÆ¯lÉ®ì·×«Å éB

    ±ÌÚWÍ±Ì\tgEFAªAutf8 vO}Ìæ¤É perl ÉÎ·éÇÁ@\Å
     é±ÆÉæÁÄB¬³êÄ¢Ü·B½àt¯Á¦È¢ perl Í±êÜÅÊèÌ®ì
    ð·éÍ¸Å·B

=item * S[2

    ù¶ÌoCgwüÌXNvgÍA½àèðÁ¦¸ÉA(»¤·é±ÆªKØÅ êÎ)
    Vµ¢¶wüÌf[^ÉÎµÄà®ì·éæ¤ÉÈé×«Å éB

    gÝÖ length, substr, index, rindex, pos ÈÇÌ¶ñÌ·³âÊuðµ¤
    àÌÍ¡ÜÅÇ¨èÉ1INebgð 1 Æ¦Ü·B±ÌªÉÂ¢Ä½àèÍÁ
    íèÜ¹ñB2INebgR[h1¶Ì length Í 2 ÉÈèÜ·B

    êûAXNvgÌ³K\»ÍA}`oCg¶Ì½ßÌAJ[Oð
    Lq·éKvª èÜ·ªA»êð È½ÉãíÁÄ±Ì\tgEFAªs¢Ü·B

    S[1ÆS[2Ìàeð}¦µÜ·B

                                   GOAL#1  GOAL#2
                            (a)     (b)     (c)     (d)     (e)
          +--------------+-------+-------+-------+-------+-------+
          | data         |  Old  |  Old  |  New  |  Old  |  New  |
          +--------------+-------+-------+-------+-------+-------+
          | script       |  Old  |      Old      |      New      |
          +--------------+-------+---------------+---------------+
          | interpreter  |  Old  |              New              |
          +--------------+-------+-------------------------------+
          Old --- ù¶ÌoCgwü
          New --- Vµ¢¶wü

    f[^AXNvgAC^v^ÌVEÉÖµÄAãÌ (a) ©ç (e) ÜÅÌ
    g¹ª èÜ·B±Ì¶ª©ê½É¶ÝµÈ©Á½ Encode W[Æ
    ±Ì\tgEFAA¨æÑ¶ÝµÄ¢½ JPerl ð««µÄÝÜµå¤B

                            (a)     (b)     (c)     (d)     (e)
                                          JPerl,japerl    Encode,Sjis
          +--------------+-------+-------+-------+-------+-------+
          | data         |  Old  |  Old  |  New  |  Old  |  New  |
          +--------------+-------+-------+-------+-------+-------+
          | script       |  Old  |      Old      |      New      |
          +--------------+-------+---------------+---------------+
          | interpreter  |  Old  |              New              |
          +--------------+-------+-------------------------------+
          Old --- ù¶ÌoCgwü
          New --- Vµ¢¶wü

    JPerl ªÆÄàDêÄ¢éRÍ (c) ÌÊuÉ é©çÅ·B·Èí¿ú{ê
    ðs¤½ßÉXNvgÉÁÊÈLqðs¤Kvª èÜ¹ñB
    (japerl ª»ÌðÚðø«p°Ü·æ¤ÉI)

=item * S[3

    XNvgÍAVµ¢¶wü[hÅàAÈOÌoCgwü[hÆ¯¶Xs[
    hÅ®ì·×«Å éB

    »êÍ³B¾ÁÄAÈºÌÔªKv¾àÌB

    (1) XNvgðGXP[vµÄAoCgwü Perl Åµ¦éæ¤É·é½ßÌ
     ÔB½¾µA³ê½XNvgÍÛ¶Å«é½ßAñ©çÍ±ÌÔðÈ
     ·±ÆàÂ\Å·B

    (2) GXP[v³ê½XNvgª}`oCgAJ[Oðs¢ÈªçA
     ³K\»ðÀs·éÔB

    ·ÅÉ¶Ý·é ASCII f[^Í1¶ª1INebgÉpbN³êÄ¢Ü·B»Ì
    f[^ÆÝ·«ðÛ¿Èªç¶íðâ»¤Æ·éÆAISO-2022 Ìæ¤ÉGXP[
    vV[PXªKvÅ Á½èAShiftJIS â UTF-8 Ìæ¤É "GXP[vrbg"
    ªKvÉÈÁ½èµÜ·B±êçÌGXP[vªÁíé½ßAÈOÆ¯¶Xs[
    hÅ®ì·×«Å éÆ¢¤ÌÍ³ÈÚW¾Æv¢Ü·B

    ¢ÂÌú© Larry Wall ³ñÉ±ÌS[Ì±ÆðuËÄÝ½¢Å·(Gx[^[Ì
    Å)B

=item * S[4

    Perl ÍAoCgwüÌ Perl Æ¶wüÌ Perl É}ª©ê¹¸ÉA1ÂÌ¾êÅ
     è±¯é×«Å éB

    JPerl Í Perl ¾êðªò³¹È¢æ¤É·é½ßÉAC^v^ðªò³¹Üµ½B
    Åà Perl RA`[ÍC^v^Ìªòð]ñÅ¢È¢ÌÅµå¤BÊIÉS[
    4ÆÍ¤çÍçÉPerl¾êªªò·é±ÆÉÈèAPerlR~jeBÍk¬µÜµ½B

    oCgwüÌ perl Í·ÅÉoCif[^ðµ¤±ÆªÅ«é½ßA¶wüÌ
    perl ðÊ§ÄÅì¬·éKvÍ èÜ¹ñBÜ½±Ì\tgEFAÍAPÈéAv
    P[VvOÈÌÅAPerl RA`[©çáÉÜêé±ÆàÈ¢Åµå¤µA
    UíêéSzà èÜ¹ñB

    »êÉâèð Perl XNvgÅðµæ¤Æ·éÈçAPerl R~jeBÌT|[g
    ð¾çêéÅµå¤B

    Sjis\tgEFAÍA1ÂÌ¾êE1ÂÌC^v^ðÀ»µÜ·B

=item * S[5

    JPerl [Uª Perl Å JPerl ðÛçÅ«éæ¤ÉÈéB

    JPerl ª¢Âà È½Ì»ÎÉ èÜ·æ¤É ...

=back

Programming Perl, 3rd ed. ª©ê½ ÉÍAUTF8 tOÍ¶ÜêÄ¨ç¸APerl Í
ÈPÈdðÈPÉÅ«éæ¤ÉÝv³êÄ¢Üµ½B±Ì\tgEFAÍÌæ¤È
vO~OÂ«ðñµÜ·B

=head1 PerlÌå£

=head2 ßÄÌPerl xviiiæè

  Rs[^ÈwÒÌÉÍ(ÁÉÒ³å`Ò½¿Í)Ûè·éÒà¢éÌ¾ªA
 lÔÆ¢¤àÌÍÏíÁ½`ÌSðÁÄ¢éàÌÈÌ¾BSÌ`Í½RÅÍÈ¢
 ÌÅAÐÇcßé±ÆÈµÉÍ½çÈÊÉÊ·é±ÆÍÅ«È¢Bµ©µß
 20NÈãÉí½ÁÄARs[^Ò³å`Ò½¿Í¼ð«Ì_aÉæì«A¢Å
 §¿ãªéÆAÞçÌMò·éÖ~IÈ´õ³ðN©êÆÈà¢ÄñÁ½B

  ÞçÌMó¾ª©á¢Ìè]ÍAN½¿ÌSðÞçÌvll®É¤æ¤Éìè
 Ï¦ÄAN½¿Ìvlp^[ð éíÌ´z³Ì½´Éµßé±Æ¾Á½B
 ½ÊÉµÜêéÆ¢¤±ÆÍAÜÁ½ìÑÌÈ¢¶ÝÉÈÁÄµÜ¤±ÆÉ
 µ¢B

=head2 ßÄÌPerl æ6Åæè

  àµ±êðªÉÌí¾Æv¤ÈçA»ÌÊèÅ·BNà±Ìæ¤ÈóµðDñÅ
 ¢éí¯ÅÍ èÜ¹ñBÅàAPerlÍüÍÆGR[fBOÌµ¢ÉÖµÄA
 xXgðsµÄêÜ·BàµðjðZbgµÄâè¼¹éÌÈçA»ÌÉÍ
 ±ñÈÉ½ÌëèðÆ³È¢ÌÅ·ªB

=head2 ÀpPerlvO~O æ2Åæè

 ÆÍ¢¦PerlÅUnicodef[^ð·éÛÉo¦Ä¨©È¯êÎÈçÈ¢ÅàdvÈ
 ±ÆÍAUnicodef[^ðgpµÈ¢ê(ÇÌt@CàUTF-8ÆµÄ}[N³êÄ
 ¨ç¸A©ÂUTF-8P[ðgpµÄ¢È¢ê)AK¢Perl5.005_3hÉ¢
 éÓèðÅ«éÆ¢¤±ÆÅ·BUnicode@\ð¾¦IÉgpµÄ¢È¢ÀèA
 Unicode@\ª È½ÌR[hðW°é±ÆÍ èÜ¹ñBUnicodeðæèüêÈªç
 ®ÌoCgÎXNvgðWQµÈ¢Æ¢¤±Ì2ÂÌÚWªÃ¦ÄÆ¬ðà½
 ç·±Æà èÜ·ªA³µ¢±ÆðÙÁÄs¤A»êªPerlÌû®Å èAPerlÌû
 jÅà èÜ·B

=head1 Sjis\tgEFAa¶ÌÍÈµ

 Perl3 È~Ì Perl ÍoCif[^ð·éXNvgðLqÅ«Ü·B
 »êÍÈPÉ¾¦ÎAÇñÈf[^ÅàÅ«éÆ¢¤±ÆÅ·B
 
 f[^Æ¢¤Æú{àÅÍAàÆàÆ1981NÉCP/M-86ÌàpÆµÄlÄ
 ³ê½VtgJIS»û®ªAîñð·pA³çÉÍîñ~ÏpÆµÄLgí
 êÄ¢Ü·B¾©çA»Ìf[^ð·éXNvgðVtgJISÅì¬·éÌ
 Í²©RÈIðÅ·B
 
 ÅàAcOÈ±ÆÉ perl C^v^ÍVtgJISÌPerlXNvgð»ÌÜÜ
 ÅÍÀs·é±ÆªÅ«È¢ÌÅ·B
 
 µ©µÈªç( È½Ì¢½) Perl XNvgÍf[^Å é±ÆÍÔá¢È¢
 ÌÅA(ÊÉpÓµ½) Perl XNvgÅ»êðµAperl C^v^ÅÀs
 Å«éXNvgÉÏ··é±ÆÈçAÅ«éÌÅÍÈ¢Åµå¤©H
 
 ¾êAC^v^AXNvgA»ê¼êÌeLXgAoCiÌµ¢ÌÂÛð
 à¤êxÜÆßÄÝÜµå¤B±±ÅÍVtgJISðoCiÉªÞµÄ¢Ü·B
 
 ---------------------------------------------------
                   ÎÛ        eLXg  oCi
 ---------------------------------------------------
 Perl¾ê          XNvg  Â        Â
 perlC^v^  XNvg  Â        sÂ
 PerlXNvg    f[^      Â        Â
 ---------------------------------------------------
 
 perl C^v^ÍVtgJISÅLq³ê½XNvgðÀsÅ«È¢¯êÇA
 Perl ¾êÉÍ{A»Ìæ¤È§Àª éí¯ÅÍ èÜ¹ñB
 
 v_ÍSÂ èÜ·B
 
 PDXNvgÌ»û®
 
 ÐÆÂÌXNvgÉQÂÈãÌ»û®Åe¶ñðLq·éêA
 ÀÛÉg¤»û®ÍPÂÌÝÆµAcèÍ16iGXP[vðgÁÄLq·é
 Ææ¢Åµå¤B
 ·úIÈ^pEÛçðl¦½êA¡Ì»û®ª¬Ýµ½XNvgðÒ
 WÅ«éÂ«ðOñÉÍÅ«Ü¹ñB
 
 QDüoÍf[^Ì»û®
 
 R[h²ÆÉAtB[h²ÆÉ»û®ªÙÈéàÌª¬Ý·éA³çÉ
 Í»êçÌ»û®ªíÉ¾mÆÍÀç¸Af[^»ÌàÌ©çªµÈ¯ê
 ÎÈçÈ¢AÆ¢¤ÌÍ[hEChEEFbuÌªìÉÀçêÄ¢Ü·B
 ¢ÂÌ ©ç©PerlÍ±Ìêð "êÊ" ÆµÄµÁÄµÜÁÄ¢éÌÅA»À
 ¢EÅêÊIÈu½¾PÉ¶ñðoÍµ½¢vÆ¢¤æ¤È±ÆªïµÈè
 Üµ½B
 êÊIÈàÌðêÊIÉµ¢AáOðáOÆµÄµ¤Æ¢¤ Perl {Ì`Éß
 ¹ÎA"Easy jobs easy" ðæèß¹éÍ¸Å·B
 
 RDÏÌf[^^
 
 PerlÌÏÍAf[^^ðé¾µÄìèª¯½èÍµÜ¹ñBf[^^ðÓ¯µ
 ½¢êÊÅÍAZqðg¢ª¯Ü·B
 »Ìì@Éí¹éÈçÎAoCgñÆ¶ñÍìèª¯éÌÅÍÈAÖÌ
 g¢ª¯ð·éÙ¤ªê´ª èÜ·B
 
 SDencode/decode Æ convert Ìá¢
 
 encode/decode Í¾ênÌsÉí¹ÄAAvP[VvO}ª
 LqµÈ¯êÎÈèÜ¹ñBvO}Íc[ðg¤§ê©çc[Égíê
 é§êÉÈÁÄµÜ¢Ü·BÆÉuOÉoÍÅ«È¢óÔª³µ¢óÔvÆ
 ¢¤ÌÍfobOðïµµÜ·B\[XvOÌeðfR[hE
 GR[h·éÌÍA¾ênªs¤Ìª±êÜÅÌKíµÅÍÈ¢Åµå
 ¤©H
 êûÅAjcode.pl Ì convert ÍvO}ªKvÉ¶ÄLq·éàÌÅ·B
 convert ãÌf[^ªÇßéÌÅ êÎA»êÍu³µ¢vvOÅ·B
 
 ±Ì\tgEFAÍ»Ìæ¤ÈACfBAAOñðAÚWÉæÁÄìènßç
 êÜµ½B

=head1 Ql¶£AN

 PerlvO~O
 Larry Wall, Randal L.Schwartz, ß¡ Ãá ó
 1993N2 s
 ISBN 4-89052-384-7
 http://www.context.co.jp/~cond/books/old-books.html

 vO~OPerl üùÅ
 By Larry Wall, Tom Christiansen, Randal L. Schwartz, ß¡ Ãá ó
 1997N12 s
 759y[W
 ISBN 4-900900-48-6
 http://www.oreilly.co.jp/out/pperl/index.htm

 vO~OPerl æ3Å VOLUME 1
 By Larry Wall, Tom Christiansen, Jon Orwant, ß¡ Ãá ó
 2002N09 s
 756y[W
 ISBN 4-87311-096-3
 http://www.oreilly.co.jp/books/4873110963/

 vO~OPerl æ3Å VOLUME 2
 By Larry Wall, Tom Christiansen, Jon Orwant, ß¡ Ãá ó
 2002N09 s
 680y[W
 ISBN 4-87311-097-1
 http://www.oreilly.co.jp/books/4873110971/

 The Perl Language Reference Manual (for Perl version 5.12.1)
 by Larry Wall and others
 Paperback (6"x9"), 724 pages
 Retail Price: $39.95 (pound 29.95 in UK)
 ISBN 13: 978-1-906966-02-7
 http://www.network-theory.co.uk/perl/language/

 Perl Pocket Reference, 5th Edition
 By Johan Vromans
 Publisher: O'Reilly Media
 Released: July 2011
 Pages: 102
 http://shop.oreilly.com/product/0636920018476.do

 Programming Perl, 4th Edition
 By: Tom Christiansen, brian d foy, Larry Wall, Jon Orwant
 Publisher: O'Reilly Media
 Formats: Print, Ebook, Safari Books Online
 Released: March 2012
 Pages: 1130
 Print ISBN: 978-0-596-00492-7 | ISBN 10: 0-596-00492-3
 Ebook ISBN: 978-1-4493-9890-3 | ISBN 10: 1-4493-9890-1
 http://shop.oreilly.com/product/9780596004927.do

 PerlNbNubN æ2Å VOLUME 1
 By Tom Christiansen, Nathan Torkington, Shibuya Perl Mongers Äó, ®ïÐhLgVXe ó
 2004N09 s
 752y[W
 ISBN 4-87311-202-8
 http://www.oreilly.co.jp/books/4873112028/

 PerlNbNubN æ2Å VOLUME 2
 By Tom Christiansen, Nathan Torkington, Shibuya Perl Mongers Äó, ®ïÐhLgVXe ó
 2004N09 s
 464y[W
 ISBN 4-87311-203-6
 http://www.oreilly.co.jp/books/4873112036/

 PerlNCbNt@X
 By Stephen Spainhour, Ellen Siever, Nathan Patwardhan, ß¡ Ãá, äê \ê Äó
 2000N03 s
 784y[W
 ISBN 4-900900-72-9
 http://www.oreilly.co.jp/books/4900900729/

 ßÄÌPerl Win32VXe
 Randal L. Schwartz, Erik Olson, Tom Christiansen , Ln OY Äó, Î´ q_ ó
 1998N11 s
 348y[W
 ISBN 4-900900-79-6
 http://www.oreilly.co.jp/books/4900900796/

 ßÄÌPerl æ5Å
 Randal L. Schwartz, Tom Phoenix, brian d foy 
 2009N1024ú 
 424y[W
 ISBN 978-4-87311-427-9
 http://www.oreilly.co.jp/books/9784873114279/

 ßÄÌPerl æ6Å
 Randal L. Schwartz, brian d foy, Tom Phoenix , ß¡ Ãá ó
 2012N07 s
 488y[W
 ISBN 978-4-87311-567-2
 http://www.oreilly.co.jp/books/9784873115672/

 Àp PerlvO~O æ2Å
 Simon Cozens , ì Çñ ó
 2006N03 s
 320y[W
 ISBN 4-87311-280-X
 http://www.oreilly.co.jp/books/487311280X/

 Perl\[XLbg - UNIXÅ
 Futato, Irving, Jepson, Patwardhan, Siever ¤, CG[[x R{ _ ó
 ISBN 4-900900-65-6
 http://www.oreilly.co.jp/out/presuni/

 PerlÌÖæ¤±»
 OcO, ¬RTi, Ä¡õ, z{Ll ¤
 1993N41ú s
 280y[W
 ISBN 4-7819-0697-4
 http://www.saiensu.co.jp/?page=book_details&ISBN=ISBN4-7819-0697-4
 
 VPerlÌÖæ¤±» Perl5ÎÅ
 Ä¡õ, ¬RTi, OcO, z{Ll ¤
 1996N41ú s
 368y[W
 ISBN 4-7819-0795-4
 http://www.saiensu.co.jp/?page=book_details&ISBN=ISBN4-7819-0795-4
 
 Üé²ÆPerl! Vol.1
 ¬e, {ìBF, É¡¼ç, ìFT, ìM¾, Á¡ Ö, Î_ê, I´R÷, Ü©Ü©, rç³qm, ma.la, |ÇÍ, ³³¾±¤¢¿, ÂmL, HR²¹, vÛ³¡, êàV²j, Ìãa³ 
 2006N0825ú 
 232y[W
 ISBN 978-4-8443-2289-4
 http://www.impressjapan.jp/books/2289

 _Perlüå
 qåã
 2009N0209ú
 344y[W
 ISBN 10: 4798119172 | ISBN 13: 978-4798119175
 http://www.seshop.com/product/detail/10250/

 WEB+DB PRESS Vol.70
 2012N0824ú 
 200y[W
 ISBN 978-4-7741-5190-8
 http://gihyo.jp/magazine/wdpress

 ú{êîñ
 Understanding Japanese Information Processing
 By Ken Lunde, tÕ Ò, éØ ¶ ó
 1995N8 s
 496y[W
 ISBN 4-89052-708-7
 http://www.fukkan.com/vote.php3?no=4293

 CJKVúØzîñ
 Chinese, Japanese, Korean & Vietnamese Computing
 By Ken Lunde, ¬¼ Í, tä È ó
 2002N12 s
 1172y[W
 ISBN 4-87311-108-0
 http://www.oreilly.co.jp/books/4873111080/

 Úà ³K\» æ2Å
 By Jeffrey E. F. Friedl, ca  ó
 2003N05 s
 464y[W
 ISBN 4-87311-130-7
 http://www.oreilly.co.jp/books/4873111307/

 Úà ³K\» æ3Å
 By Jeffrey E. F. Friedl, ®ïÐOe[^·ö O ó
 2008N04 s
 528y[W
 ISBN 978-4-87311-359-3
 http://www.oreilly.co.jp/books/9784873113593/

 ³K\»NbNubN
 Jan Goyvaerts, Steven Levithan , ·ö O ó
 2010N04 s
 552y[W
 ISBN 978-4-87311-450-7
 http://www.oreilly.co.jp/books/9784873114507/

 JIS¿T
 Åì ki Ò
 1456 Å
 ISBN 4-542-20129-5
 http://www.webstore.jsa.or.jp/lib/lib.asp?fn=/manual/mnl01_12.htm

 C^[lbgãÌ¶R[h
 ¬Ñ ´¶, Àª Fê, Ëº N, Oã ìM Ò
 285 
 ISBN 4-320-12038-8
 http://www.kyoritsu-pub.co.jp/bookdetail/9784320120389

 ¶Ìðj\¢ÄÆú{Ò\
 Àª Fê, Àª fq 
 2006N210ú s
 288y[W
 ISBN 4-320-12102-7
 http://www.kyoritsu-pub.co.jp/bookdetail/9784320121027

 ¶Ìðj AWAÒ
 Oã ìM 
 2002N320ú s
 377y[W
 ISBN 4-320-12040-X
 http://www.amazon.co.jp/gp/product/432012040X

 UnicodeWüå
 gj[EOn , £ au, CVË O ó, Öû ³T ÄC
 2001N529ú s
 455y[W
 ISBN 4-7981-0030-7
 http://www.seshop.com/product/detail/2276/

 UnicodeÉæéJIS X 0213Àüå
 cÛ OY 
 2008N825ú s
 200y[W
 ISBN 978-4-89100-608-2
 http://ec.nikkeibp.co.jp/item/books/A04500.html

 Unicode IVS/IVDüå
 cÛ OY, ¬Ñ ´¶ 
 2013N0304ú s
 336y[W
 ISBN 978-4-82229-483-0
 http://store.nikkeibp.co.jp/item/books/P94830.html

 ÆAt@xbg Zp©ç©½ú{ê\LÌp
 ÆÓ¶ 
 376y[W
 ISBN978-4-588-79601-1
 http://www.h-up.com/bd/isbn978-4-588-79601-2.html

 UNIX MAGAZINE
 1993N8
 172y[W
 T1008901080816 G08901-8
 http://ascii.asciimw.jp/books/books/detail/978-4-7561-5008-0.shtml

 LINUXú{êÂ«
 R`_¶, Stephen J. Turnbull, Craig ¬c, Robert J. Bickel 
 2000N06 s
 376y[W
 ISBN 4-87311-016-5
 http://www.oreilly.co.jp/books/4873110165/

 MacPerlüå
 Vicki Brown, Chris Nandor , ()RXEvlbg ó
 1999N03 s
 399y[W
 ISBN 4-7561-3068-2

 Macintoshf[^pp
 Îc L 
 1995N2 s
 230y[W
 ISBN 4-89563-408-6

 MPWvO~OuÀ
 Handmade Intelligence 
 1992N8 s
 346y[W
 ISBN 4-7561-0963-2

 ZLAWebvO~OTipsW
 ²¼Ø qM 
 2008N3 s
 421y[W
 ISBN 10: 4883732568
 ISBN 13: 978-4883732562

 Windows NTVFXNvg
 Tim Hill , õcG ó
 1998N106ú s
 448y[W
 ISBN 4-7973-0658-0
 http://books-support.sbcr.jp/isbn/macmillan/ntwrkshp/index.htm

 }CN\tgö®ðà Microsoft Windows R}hCpKCh
 2004N1227ú s
 500y[W
 ISBN 4-89100-438-X
 http://ec.nikkeibp.co.jp/item/books/587500.html

 Oc O³ñ, PerlÌðj Perl 1,2,3,4
 http://www.slideshare.net/KaoruMaeda/perl-perl-1234

 ¬£³ñ, u¶ñvÉÂ¢Ä
 http://d.hatena.ne.jp/nurse/20141107#1415355181

 ¼ö ×a³ñ, u¶ñð¶ÌñÆÝÈ·P»vÁÄÇ¤¢¤±ÆHðàÒ
 http://d.hatena.ne.jp/nishiohirokazu/20141107/1415286729

 ¬£³ñ, ú{êEUCÌðj 22:00
 http://d.hatena.ne.jp/nurse/20090308/1236517235

 Mike Whitaker³ñ, Perl And Unicode
 http://www.slideshare.net/Penfold/perl-and-unicode

 Ricardo Signes³ñ, Perl 5.14 for Pragmatists
 http://www.slideshare.net/rjbs/perl-514-8809465

 Ricardo Signes³ñ, What's New in Perl? v5.10 - v5.16
 http://www.slideshare.net/rjbs/whats-new-in-perl-v510-v516

 ·Jì E³ñ, Û»³K\»CuÈÇ
 http://lc.linux.or.jp/lc2001/papers/dfa-i18n-paper.pdf
 http://lc.linux.or.jp/lc2002/papers/hasegawa0918h.pdf
 http://lc.linux.or.jp/lc2002/papers/hasegawa0918p.pdf
 http://www.j-tokkyo.com/2003/G06F/JP2003-242179.shtml

 Oc ×¬³ñ, }`oCg¶Zbgp³K\»RpC\¬û@yÑvO 
 http://patent.astamuse.com/ja/published/JP/No/2007102744

 YAMAGAKI Norio, }`oCgü¯¶ñÆpLÀI[g}g¶¬VXe
 http://www.wipo.int/pctdb/ja/wo.jsp?WO=2009116646&IA=JP2009055515

 Tokyo-pm Û¶É
 http://mail.pm.org/pipermail/tokyo-pm/
 http://mail.pm.org/pipermail/tokyo-pm/1999-September/001844.html
 http://mail.pm.org/pipermail/tokyo-pm/1999-September/001854.html

 ruby-list
 http://blade.nagaokaut.ac.jp/ruby/ruby-list/index.shtml
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/2440
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/2446
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/2569
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/9427
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/9431
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/10500
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/10501
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/10502
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/12385
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/12392
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/12393
 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/19156

 Object-oriented with Perl
 http://www.freeml.com/perl-oo/486
 http://www.freeml.com/perl-oo/487
 http://www.freeml.com/perl-oo/490
 http://www.freeml.com/perl-oo/491
 http://www.freeml.com/perl-oo/492
 http://www.freeml.com/perl-oo/494
 http://www.freeml.com/perl-oo/514

 CPAN Directory INABA Hitoshi
 http://search.cpan.org/~ina/

 BackPAN
 http://backpan.perl.org/authors/id/I/IN/INA/

 Recent Perl packages by "INABA Hitoshi"
 http://code.activestate.com/ppm/author:INABA-Hitoshi/

=head1 Ó«

cOÈªçA´Ó·é·×ÄÌlð±±É±ÆªÅ«Ü¹ñB»¤¾©çÆ¢ÁÄA»ê
ðRÉµÄÈºÌûXÖÌ´ÓÍÈª·éí¯ÉÍ¢©È¢Åµå¤B

 Rº Ç ³ñ, VtgJISÌfUCÌb
 ttp://furukawablog.spaces.live.com/Blog/cns!1pmWgsL289nm7Shn7cS0jHzA!2225.entry (NØê)
 ttp://shino.tumblr.com/post/116166805/1981-us-jis
 (æªÉ 'h' ðtÁµÄANZXµÄ¾³¢)
 http://www.wdic.org/w/WDIC/%E3%82%B7%E3%83%95%E3%83%88JIS
 
 ú{êîñðs¤ÛA¢ÜàÁÄVtgJISÙÇÀpIÈ»û®Í èÜ¹ñB
 »ÌRÍ3Â éÆv¢Ü·B
 
 1. ù¶Ì¼pJ^JiÌf[^Æ»ÌÜÜ¤¶Å«éBßÌYð»ÝÉp³Å«éÆ
   ¢¤±ÆÍA»ÝÌYð¢Öp³Å«é±Æð¦´µÄ¢Ü·B
 2. codepoint Æ grapheme ÌPÊªêv·éB±Ì¨©°ÅVXeðìéÐÆÆg¤ÐÆ
   ÌÔÅêêª¶µÜ¹ñB
 3. ãÌèLÆ\¦EóãÌèLªêv·éB±ÌHvªæÊÝvA [ÝvA
   »êÉJ[\ÌÚ®Éð§¿Ü·B
 
 1981NÌ_ÅA±±ÜÅl¦Ä¢½Rº³ñÍnbJ[ÆÄÔÉÓ³íµ¢Åµå¤B

 Larry Wall ³ñ, Perl
 http://www.perl.org/
 
 Perl ª³K\»ÉæÁÄoCif[^ðµ¦é±ÆÅA±Ì\tgEFAª¬§µÄ¢
 Ü·Bo[WÔÌÝ·«Ì³Éà¯çêÜµ½B³K\»Ì^¶âeíNH[
 gÌf~^ÍAð·×«ÎÛÅ éêûÅAð·éÛÌèiÆµÄàð§¿Ü·B
 àµ Perl ªÈ¯êÎAâèà¶Ý¹¸AÜ½»êðð·éìÑàÈ¢ÞüÈl¶ð
 éÆ±ëÅµ½B
 
 ¾©ç Larry Wall ³ñÉÍÆÁÄà´ÓµÄ¢Ü·I

 Ìã a³³ñ, jcode.pl
 ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
 http://log.utashiro.com/pub/2006/07/jkondo_a580.html
 
 ÅÉ Perl ÉoïÁ½ÌÍÌã³ñÌ©ê½ UNIX MAGAZINE ÌLÅµ½Bt@C
 eXgZq -TA-B Ì@\ðÀ»·éR[hÍLÉ©ê½àÌðÙÚ»ÌÜÜgÁÄ
 ¢Ü·BÜ½ú{êîñð·M³ê½ Ì Ken Lunde ³ñÌæ¶Åà éµAJeffrey
 E. F. Friedl ³ñÌÚà³K\»ÌÄóà³êÄ¢ÄA±Ì\tgEFAÌüÍÉÍíÉ
 Ìã³ñªoêµÜ·B
 
 Tokyo.pm Ì[OXgÅÍAVµ¢@\ðÀ»·é½ßÉV½ÉÀð·éêÅàA
 ßÉìçê½\tgEFAÆ¯êÌC^tF[XÉ·éÆ¢¤Aæ¢ACfBAð³í
 èÜµ½B
 
 æÙÇüÍÆ¾¢Üµ½ªAÀÍ»êÍRÌ±ÆÅA±Ì\tgEFAÍ jcode.pl Ì
 \[XðàÆÉµÄì¬³ê½©çÅ·B¾©ç½ðÇ¤l¦ÄàÌã³ñÈµÅA±Ì\
 tgEFAª¶Üêé±ÆÍÈ©Á½Æv¤ÌÅ·B

 Jeffrey E. F. Friedl ³ñ, Úà³K\»
 http://regex.info/
 
 Úà³K\»(æ2Å)ðÍ¶ßÄÇñ¾Æ«A½ª¢Ä éÌ©SðÅ«¸AÄÁ«è
 pêÅðÁÄµÜÁ½ÌÅÍÈ¢©Æ^Á½ÙÇÅµ½Bµ©µÈªç P.340 Matching
 Nested Constructs with Embedded Code ª©ªªKvÆµÄ¢éR[h¾ÆCÃ¢½Æ«Í
 ÆÄàðµ©Á½Ìðo¦Ä¢Ü·(æ©½çpêÅÅµ½)B
 
 »ñÈí¯ÅlXgµ½ÊðÅ«éÌÍA¶}(Fumie)³ñÌ¨©°Å·B
 (Ì´Óª`íèÜ·æ¤É...B)

 Ken Lunde ³ñ, ú{êîñACJKVúØzîñ
 http://www.fukkan.com/vote.php3?no=4293
 http://www.oreilly.co.jp/books/4873111080/
 
 uú{êîñvuCJKVúØzîñvðÇñÅ¶WKiÆ»û®ðwÑA
 ¶»¯Ì´öÉÂ¢Äðª[ÜèÜµ½B³çÉ JPerl Ìà¾ÌÓÉÄuæèæ¢
 ÂÀ«(optimal portability)vÆ¢¤¾t©çAAvP[VvOÆA¾ê
 nÌÓ½ÂÌÂÀ«ð¯Éð·×«¾Æ¢¤±ÆÉCÃ©¹Äàç¢Üµ½B
 
 Appendix W: Perl Code Examples ÌÌ CJKV Encoding TemplatesAMultiple-Byte
 AnchoringAMultiple-Byte Processing àÆÄàQlÉÈèÜµ½B
 
 Ì³³â©ÈnbNÆµÄA±±Å Jeffrey E. F. Friedl ³ñÉ´ÓµÜ·B

 åA ms³ñ, Shift-JISeLXgð³µµ¤
 http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
 
 uShift-JISeLXgð³µµ¤vÅAPerlÅShiftJISðµ¤Æ«ÌmEnEð³¦Ä
 ¸«A èªÆ¤²´¢Ü·B±ÌTCgÌàeðàÆÉAXNvgÌe¶ñ
 Ìu\vðu\\vÉÏ··étB^vOðìéÆ±ë©çnßAáOðµ¸Â
 «Á¦Ä¢±ÆÅ±Ì\tgEFAªìçêÄ¢«Üµ½B
 
 u·¢¶ñÉÎ·é³K\»õvÉÂ¢ÄàÀÉ©·±ÆªÅ«Üµ½B
 àµ±ÌTCgð©È©Á½ÌÈçASjis\tgEFAðìê½©Ç¤©è©ÅÍ èÜ¹
 ñB

 ÜÂàÆ ä«Ðë³ñ, Ruby on Perl(s)
 http://www.rubyist.net/~matz/slides/yapc2006/
 
 YAPC::Asia 2006 Tokyo "Ruby on Perl(s)" ÅuCSIÍsÂ\¶áÈ¢v±Æðª©èâ·
 ³¦Äàç¢Üµ½B¡x Ruby Åðìé±ÆÉÈÁ½çAæëµ¨è¢µÜ·B

 ¡ª av³ñ, jperl[U[Ì½ßÉ
 http://homepage1.nifty.com/kazuf/jperl.html
 
 ver.0.71 ðì¬·éÛAª¼ÚpÅ«È¢Â«ÅÌeXgÌ½ßÉ60ñàÌ[Ì
 âèæèðµAJÉfobOÉt«ÁÄ¸«Üµ½B èªÆ¤²´¢Üµ½B

 Bruce. ³ñ, Unicode in Perl
 http://www.rakunet.org/tsnet/TSabc/18/546.html

 aò G¾³ñ, WindowsÅPerl 5.8/5.10ðg¤¶áÈ¢
 http://dl.dropbox.com/u/23756062/perlwin.html
 https://sites.google.com/site/hiroa63iz/perlwin

 Ë{ q¶³ñ, Perl/WindowsÅÌt@CpX
 http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A1%E3%83%A2%2FWindows%E3%81%A7%E3%81%AE%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%83%91%E3%82%B9

 chaichanPaPa³ñ, VtgJIS¿Ìt@C¼É}b`µÄÝé
 http://d.hatena.ne.jp/chaichanPaPa/20080802/1217660826

 éØ Iv³ñ, Jperl
 http://homepage2.nifty.com/kipp/perl/jperl/

 nÓ ¶³ñ, Jperl
 http://www.cpan.org/src/5.0/jperl/
 http://search.cpan.org/~watanabe/
 ftp://ftp.oreilly.co.jp/pcjp98/watanabe/jperlconf.ppt
 
 The Perl Confernce Japan (1998)ÅJperlJÌoÜð·©¹Äàç¢Üµ½BJPerl ©ç
 ÍAú{êÎÅÌ Perl ÍÇÌæ¤ÈàÌªg¢â·¢Ì©ð³íèÜµ½Btr///b à
 ord à reverse àÝñÈ JPerl Ì®ìð^µÜµ½(¨©°ÅeXgvOÜÅ
 àç¤±ÆªÅ«Üµ½)B
 
 ànÓ³ñÌÆ«Æ¯¶N©ªñ¶áÈ¢©Æ(¡à)Ò¿±¯Ä¢éí¯Å·ªA
 ÒÁÄ¢éÔÉ Perl Åvg^CvðìÁÄ¨«Üµ½BÒÂÌÍyµ¢±ÆÅ·B

 Chuck Houpt ³ñ, ìÃ üqq³ñ, MacJPerl
 http://habilis.net/macjperl/index.j.html

 Î_ ê³ñ, Pod-PerldocJp, _PerlÌ¢EÖæ¤±»
 http://search.cpan.org/dist/Pod-PerldocJp/
 http://gihyo.jp/dev/serial/01/modern-perl/0031
 http://gihyo.jp/dev/serial/01/modern-perl/0032
 http://gihyo.jp/dev/serial/01/modern-perl/0033
 
 u_PerlÌ¢EÖæ¤±»vÌAÚªÆÄàQlÉÈèÜ·BÁÉæ31ñ©çæ33ñÍ
 JPerl ÉÖAµ½àeÅAZpIÉàðjIÉàÆÄàãk§ÈLÅ·B
 
 ±Ì\tgEFAª_PerlÖÌË¯´ÆµÄð§ÄÎK¢Å·B

 ¡ áY³ñ, Perl Hackers Hub æ16ñ Perlà\¢Ì[Éé(2)
 http://gihyo.jp/dev/serial/01/perl-hackers-hub/001602

 ¬ e³ñ, Encode W[
 http://search.cpan.org/dist/Encode/
 http://www.archive.org/details/YAPCAsia2006TokyoPerl58andUnicodeMythsFactsandChanges (®æ)
 http://yapc.g.hatena.ne.jp/jkondo/ (¹º)
 
 YAPC::Asia 2006 Tokyo "Perl5.8 and Unicode: Myths, Facts and Changes" Å Perl5.8
 ÅÌÏX_ðÚµ³¦Äàç¢Üµ½BCPAN Ì face icon Í±ÌXChÉoÄé
 Perl5.6 = a city without bridges Ìæ©çqgð¾Ä¢Ü·B±êÍ5.005VeB
 ©çGXP[v·é½ßÌubWð\íµÄ¢Ü·B

 ´ ³³ñ, JPerl Wiki
 http://ja.jperl.wikia.com/wiki/JPerl_Wiki

 Juerd ³ñ, Perl Unicode Advice
 http://juerd.nl/site.plp/perluniadvice

 daily dayflower ³ñ, 2008-06-25 perluniadvice
 http://d.hatena.ne.jp/dayflower/20080625/1214374293

 Jesse Vincent ³ñ, Compatibility is a virtue
 http://www.nntp.perl.org/group/perl.perl5.porters/2010/05/msg159825.html

=cut
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)