Big5HKSCS
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
## Copyright (c) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2018, 2019 INABA Hitoshi <ina@cpan.org>######################################################################use5.00503;# Galapagos Consensus 1998 for primetools# use 5.008001; # Lancaster Consensus 2013 for toolchains# 12.3. Delaying use Until Runtime# in Chapter 12. Packages, Libraries, and Modules# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.# (and so on)# Version numbers should be boring# For the impatient, the disinterested or those who just want to follow# a recipe, my advice for all modules is this:# our $VERSION = "0.001"; # or "0.001_001" for a dev release# $VERSION = CORE::eval $VERSION; # No!! because '1.10' makes '1.1'
lib/Big5HKSCS.pm view on Meta::CPAN
subLOCK_SH() {1}subLOCK_EX() {2}subLOCK_UN() {8}subLOCK_NB() {4}subunimport {}subBig5HKSCS::escape_script;# 6.18. Matching Multiple-Byte Characters# in Chapter 6. Pattern Matching# of ISBN 978-1-56592-243-3 Perl Perl Cookbook.# (and so on)# regexp of charactermy$qq_char=qr/(?> \\c[\x40-\x5F] | \\? (?:[\x81-\xFE][\x00-\xFF] | [\x00-\xFF]) )/oxms;my$q_char=qr/(?> [\x81-\xFE][\x00-\xFF] | [\x00-\xFF] )/oxms;# when this script is main programif($0 eq __FILE__) {# show usage
lib/Big5HKSCS.pm view on Meta::CPAN
}}}if(not Ebig5hkscs::e("$filename.e")) {my$fh= gensym();Ebig5hkscs::_open_a($fh,"$filename.e") ordie__FILE__,": Can't write open file: $filename.e\n";# 7.19. Flushing Output# in Chapter 7. File Access# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.select((select($fh), $|=1)[0]);if(0) {}elsif(exists$ENV{'CHAR_NONBLOCK'}) {# P.419 File Locking# in Chapter 16: Interprocess Communication# of ISBN 0-596-00027-8 Programming Perl Third Edition.
lib/Big5HKSCS.pm view on Meta::CPAN
Programming Perl, 4th EditionBy: Tom Christiansen, brian d foy, Larry Wall, Jon OrwantPublisher: O'Reilly MediaFormats: Print, Ebook, Safari Books OnlineReleased: March 2012Pages: 1130Print ISBN: 978-0-596-00492-7 | ISBN 10: 0-596-00492-3Ebook ISBN: 978-1-4493-9890-3 | ISBN 10: 1-4493-9890-1Perl CookbookBy Tom Christiansen, Nathan TorkingtonAugust 1998Pages: 800ISBN 10: 1-56592-243-3 | ISBN 13: 978-1-56592-243-3Perl Cookbook, Second EditionBy Tom Christiansen, Nathan TorkingtonSecond Edition August 2003Pages: 964ISBN 10: 0-596-00313-7 | ISBN 13: 9780596003135Perl in a Nutshell, Second EditionBy Stephen Spainhour, Ellen Siever, Nathan PatwardhanSecond Edition June 2002Pages: 760
lib/Big5HKSCS.pm view on Meta::CPAN
ISBN 10: 0-596-00289-0 | ISBN 13: 9780596002893Mastering Regular Expressions, Third EditionBy Jeffrey E. F. FriedlThird Edition August 2006Pages: 542ISBN 10: 0-596-52812-4 | ISBN 13:9780596528126Regular Expressions CookbookBy Jan Goyvaerts, Steven LevithanMay 2009Pages: 512ISBN 10:0-596-52068-9 | ISBN 13: 978-0-596-52068-7Regular Expressions Cookbook, 2nd EditionBy Jan Goyvaerts, Steven LevithanFinal Release Date: August 2012Pages: 612ISBN: 978-1-4493-1943-4 | ISBN 10:1-4493-1943-2JIS KANJI JITENBy Kouji ShibanoPages: 1456ISBN 4-542-20129-5
lib/Ebig5hkscs.pm view on Meta::CPAN
## Copyright (c) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2018, 2019 INABA Hitoshi <ina@cpan.org>######################################################################use5.00503;# Galapagos Consensus 1998 for primetools# use 5.008001; # Lancaster Consensus 2013 for toolchains# 12.3. Delaying use Until Runtime# in Chapter 12. Packages, Libraries, and Modules# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.# (and so on)# Version numbers should be boring# For the impatient, the disinterested or those who just want to follow# a recipe, my advice for all modules is this:# our $VERSION = "0.001"; # or "0.001_001" for a dev release# $VERSION = eval $VERSION; # No!! because '1.10' makes '1.1'
lib/Ebig5hkscs.pm view on Meta::CPAN
subLOCK_NB() {4}# instead of Carp.pmsubcarp;subcroak;subcluck;subconfess;# 6.18. Matching Multiple-Byte Characters# in Chapter 6. Pattern Matching# of ISBN 978-1-56592-243-3 Perl Perl Cookbook.# (and so on)# regexp of charactermy$your_char=q{[\x81-\xFE][\x00-\xFF]|[\x00-\xFF]};## Big5-HKSCS character range per length#
lib/Ebig5hkscs.pm view on Meta::CPAN
my$s=$_;returnjoin'',map{defined($fc{$_}) ?$fc{$_} :$_} ($s=~ /\G ($q_char) /oxmsg);}## Big5-HKSCS regexp capture#{# 10.3. Creating Persistent Private Variables# in Chapter 10. Subroutines# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.my$last_s_matched= 0;subEbig5hkscs::capture {if($last_s_matchedand ($_[0] =~ /\A (?>[1-9][0-9]*) \z/oxms)) {return$_[0] + 1;}return$_[0];}
lib/Ebig5hkscs.pm view on Meta::CPAN
if(_open_r($fh,$_)) {my$r= -r$fh;close($fh) ordie"Can't close file: $_: $!";return$r? 1 :'';}}}# 10.10. Returning Failure# in Chapter 10. Subroutines# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.# (and so on)# 2010-01-26 The difference of "return;" and "return undef;"## "Perl Best Practices" recommends to use "return;"*1 to return nothing, but# it might be wrong in some cases. If you use this idiom for those functions# which are expected to return a scalar value, e.g. searching functions, the# user of those functions will be surprised at what they return in list# context, an empty list - note that many functions and all the methods
lib/Ebig5hkscs.pm view on Meta::CPAN
# context (keyed by second cxix argument provided by core)my($expr,$cxix) =@_;# glob without args defaults to $_$expr=$_ifnotdefined$expr;# represents the current user's home directory## 7.3. Expanding Tildes in Filenames# in Chapter 7. File Access# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.## and File::HomeDir, File::HomeDir::Windows module# DOS-like systemif($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {$expr=~ s{ \A ~ (?= [^/\\] ) }{ my_home_MSWin32() }oxmse;}# UNIX-like system
lib/Ebig5hkscs.pm view on Meta::CPAN
if($headne''and ($head=~ / \G ($q_char) /oxmsg)[-1] ne$pathsep) {$head.=$pathsep;}my$pattern='';while($expr=~ / \G ($q_char) /oxgc) {my$char= $1;# 6.9. Matching Shell Globs as Regular Expressions# in Chapter 6. Pattern Matching# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.# (and so on)if($chareq'*') {$pattern.="(?:$your_char)*",}elsif($chareq'?') {$pattern.="(?:$your_char)?",# DOS style# $pattern .= "(?:$your_char)", # UNIX style}elsif((my$fc= Ebig5hkscs::fc($char)) ne$char) {
lib/Ebig5hkscs.pm view on Meta::CPAN
# P.359 The Study Function# in Chapter 7: Perl# of ISBN 0-596-00289-0 Mastering Regular Expressions, Second editionstudy$_;# Yes, I studied study yesterday.# while all script# 6.14. Matching from Where the Last Pattern Left Off# in Chapter 6. Pattern Matching# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.# (and so on)# one member of Tag-team## P.128 Start of match (or end of previous match): \G# P.130 Advanced Use of \G with Perl# in Chapter 3: Overview of Regular Expression Features and Flavors# P.255 Use leading anchors# P.256 Expose ^ and \G at the front expressions# in Chapter 6: Crafting an Efficient Expression
( run in 0.292 second using v1.01-cache-2.11-cpan-bf8d7bb2d05 )