view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - created by INABA Hitoshi

0.26  2008-08-27 00:00:00
  - fix errata
  - created by INABA Hitoshi

0.25  2008-08-25 00:00:00
  - add Big5Plus, GBK, and UHC support
  - created by INABA Hitoshi

0.24  2008-08-18 00:00:00
  - cancel \x{HHHH} syntax support in qq, m, s, and qr
  - escape second octet | of double octet in qq and "" for open() and system()
  - support \1,\2,\3 syntax of s///, and s'''
  - add Japanese document
  - created by INABA Hitoshi

0.23  2008-08-11 00:00:00
  - escape second octet ^ of double octet code in m, s, and qr
  - remove brace of \x{HHHH} in qq, m, s, and qr
  - created at cafe mocca in Nagareyama-Otakanomori S.C

lib/Arabic.pm  view on Meta::CPAN

 Second Edition  August 2003
 Pages: 964
 ISBN 10: 0-596-00313-7 | ISBN 13: 9780596003135
 http://shop.oreilly.com/product/9780596003135.do

 Perl in a Nutshell, Second Edition
 By Stephen Spainhour, Ellen Siever, Nathan Patwardhan
 Second Edition  June 2002
 Pages: 760
 Series: In a Nutshell
 ISBN 10: 0-596-00241-6 | ISBN 13: 9780596002411
 http://shop.oreilly.com/product/9780596002411.do

 Learning Perl on Win32 Systems
 By Randal L. Schwartz, Erik Olson, Tom Christiansen
 August 1997
 Pages: 306
 ISBN 10: 1-56592-324-3 | ISBN 13: 9781565923249
 http://shop.oreilly.com/product/9781565923249.do

 Learning Perl, Fifth Edition
 By Randal L. Schwartz, Tom Phoenix, brian d foy

lib/Earabic.pm  view on Meta::CPAN

            }
            die __FILE__, ": Search pattern not terminated\n";
        }
    }

# s///

    # about [cegimosxpradlunbB]* (/cg modifier)
    #
    # P.67 Pattern-Matching Operators
    # of ISBN 0-596-00241-6 Perl in a Nutshell, Second Edition.

    elsif (/\G \b (s) \b /oxgc) {
        my $ope = $1;

        #        $1   $2               $3   $4               $5   $6
        if (/\G (\#) ((?:$qq_char)*?) (\#) ((?:$qq_char)*?) (\#) ([cegimosxpradlunbB]*) /oxgc) { # s# # #
            return e_sub($sub_variable,$1,$2,$3,$3,$4,$5,$6);
        }
        else {
            my $e = '';