view release on metacpan or  search on metacpan

lib/File/SOPS/Metadata.pm  view on Meta::CPAN

#    value. Neither is a classification that can be reproduced quietly, so the
#    constructs RE2 rejects are refused here instead.

# The escapes RE2 accepts, meaning by them what Perl means once the pattern is
# compiled /a. Every OTHER alphanumeric escape is refused, because RE2 either
# rejects it -- \Z \K \G \R \h \H \V \N \X \C \c \e \o \g \k \u \l \U \L are
# all "invalid escape sequence", measured through a .sops.yaml path_regex,
# which is the one place sops reports a compile error -- or reads it as
# something else:
#
#   \v   the vertical TAB to Go, the vertical-whitespace CLASS to Perl.

lib/File/SOPS/Metadata.pm  view on Meta::CPAN

    #   'unsupported'  RE2 cannot compile it, so sops matches nothing. That is
    #                  reproducible, and $MATCHES_NOTHING reproduces it, so the
    #                  READ path is given a matcher and no refusal is raised.
    #   'different'    both dialects compile it and read it apart (\v, \Q, \E).
    #   'perl'         RE2 compiles it and we cannot ((?U) is the only measured
    #                  one; \C, \g and \k are rejected by BOTH).
    #
    # The last two have no answer to reproduce, so they are refused wherever
    # they are met. The write path refuses all three. See docs/adr/0051.
    sub _rule_verdict {
        my ($field, $pattern) = @_;

lib/File/SOPS/Metadata.pm  view on Meta::CPAN

=item * atomic groups C<< (?>...) >> and possessive quantifiers C<*+>, C<++>,
C<?+>, C<{n,m}+>

=item * the escapes RE2 has no rule for: C<\Z>, C<\K>, C<\G>, C<\R>, C<\h>,
C<\H>, C<\V>, C<\N>, C<\X>, C<\C>, C<\c>, C<\e>, C<\o>, C<\g>, C<\k>,
C<\u>, C<\l>, C<\U>, C<\L>, and C<\b> inside a character class

=item * inline comments C<< (?#...) >>, branch resets C<< (?|...) >>, embedded
code, subpattern calls and recursion, the C<< (?'name'...) >> spelling of a
named group, the C<< (?^...) >> flag reset

lib/File/SOPS/Metadata.pm  view on Meta::CPAN

F<docs/adr/0051>.

A pattern B<Perl> cannot compile is refused everywhere, read path included,
with the reason: the dialects disagree in that direction as well, and
C<(?U)fo+> is a pattern sops takes and this side cannot. It is the only such
pattern measured -- C<\C>, C<\g> and C<\k> read like company for it and are
not, because RE2 rejects all three (measured on 3.13.3 through the
C<path_regex> oracle; F<docs/adr/0048> says otherwise and is wrong there).

=head3 Limits

 view release on metacpan or  search on metacpan

data/mime-magic  view on Meta::CPAN

0	string		\\documentclass	LaTeX 2e document text
0	string		\\relax		LaTeX auxiliary file
0	string		\\contentsline	LaTeX  table of contents
0	string		\\indexentry	LaTeX raw index file
0	string		\\begin{theindex}	LaTeX sorted index
0	string		\\glossaryentry	LaTeX raw glossary
0	string		\\begin{theglossary}	LaTeX sorted glossary
0	string		This\ is\ makeindex	Makeindex log file
0               string          **TI82**        TI-82 Graphing Calculator
0               string          **TI83**        TI-83 Graphing Calculator
0               string          **TI85**        TI-85 Graphing Calculator

 view release on metacpan or  search on metacpan

readme.md  view on Meta::CPAN

```bash
FQ_LOAD_QUOTELET="-defaults Moex" gnucash
```
2. у GnuCash есть файл настройки среды (общий для всех пользователей)
  * для Linux `/etc/gnucash/enviroment`;
  * для Windows `C:\Program Files (x86)\gnucash\etc\gnucash`.  
  
  Достаточно в конец добавить: 

  ```
  FQ_LOAD_QUOTELET=-defaults Moex

readme.md  view on Meta::CPAN

```

Установка Finance::Quote 
------------------------

Для установки Finance::Quote на Windows нужно предпринять дополнительные шаги. Согласно [документации GnuCash (eng)](https://wiki.gnucash.org/wiki/Online_Quotes) достаточно...

 view release on metacpan or  search on metacpan

Examples/ttfenc.pl  view on Meta::CPAN

        my ($lsb, $adv) = ($font->{'hmtx'}{'lsb'}[$gid], $font->{'hmtx'}{'advance'}[$gid]);
        
        if (-$lsb <= $adv && $lsb != 0)
        { 
#            printf "\\catcode%d=\\active\\uccode1=%d \\uppercase{\\xdef^^A{\\noexpand\\basechar{%s}}}%%\n", $i, $i, chr($i);
#            printf "\\catcode%d=\\active\\uccode1=%d \\expandafter\\gdef\\uppercase{^^A}{\\basechar{%s}}%%\n", $i, $i, chr($i);
            printf "\\catcode%d=\\active\\uccode1=%d \\uppercase{\\edef^^A{\\noexpand\\basechar{%d}}}%%\n", $i, $i, $i;
            push (@list, $i);
        }
    }
    print "}\n";

 view release on metacpan or  search on metacpan

t/test.pdf  view on Meta::CPAN

9,ȍ]Azݯ²b„j„ÀmêCãùTÉ3€…_gÑ8·>ý<%Ž™–SØÏÜ\
DÙA)=*Pûú^{|%gÙâ­»*ûçl¯z©õ¢%
5Bµe{>~ŸW¤Ê`¤á”Ê©ß®�çÍ(!íñ–S£}
Ò®†åõ½D±¸ŸëÔR6N’²wƒ¦Õ~ÍœÛցÕ
<!mLžÝâzçßkÊáQv+Á ýò@@ªؼ%°¥:�,-ÆÍeщ!ˬªÆ%!´œ,¥ìô:ÈAÜedÚÁ¢²#ÂKoyð ‚[⥦Ç.›W}=*9â*ÉcTªóÆ=ÀÉÆœ]·P�>´‚¦–A|c›NU’ÄTÍ-,�Ü4X§IT(ºCšnvY­9rÉö¨wIkځ�°V¥»Ç²IlÊ´ö%+~“³rwk5˜Ê€‹&6Ƈ$’‡f;¾üN›áŠ^ÑÒõîé
ч:ß~ÿ­½z3YL–j¢XbIÃ6šÓ4ê½ÛRF¿...
ì]k—<„ÁˆaÐ_þ9…%Û 7°î”|0äW×Q‰$$]<ìŒge\ÔÈ^V÷'¶m¾¢HjÄðvx“ÝäÐVÛ³›Ö7w‹šˆT¬È/¯ÚÃiÖ¨†v{‰ªqÙ�ìæzgª2³o<¶¡åŸ§$À¶þEf—¬ö¢u¡g
bçÉU{×ÇØœS‘ŸØuõÌgÏ‘ä!	¬æä5jXÄoVçR$8‹UasR=<w-qg'Á*HÕ(V“*/ûâÌg«¡å€	Ú¸UæÓ[9àÔ™�Q/œSÝxNZls6Ä&£ãšKªõîe'...
H‰¬WmkÇýúÏ—€Í㝝Ýٝö“ä4àâÒâÆ¥” ^¹ŽKt¹Æÿ¾g^öÊ"ʇBBWçîË켜93ûнÖ.Û—c–¹—ÉÛ4¬H뉑R3pîZ„·g½õRnÓ×Ê>ˆ4@æQÍS»HÐwÑƱv¶ô½3V88¸¶ío¹–KÍ˦ôšk9ìҝd$T¥I`­ò<]E¥,Øž``Û•50S£.°ñ°¿–´jâ…ù¬J%ýR{×íïgÿ>ûâûçw÷_½?Ü¿¿=^Ý}Ú~è¼ì]çy¶=ÿæþîýñÝv~yyq8|¸y}{...
.ÿ”a’Y-£:!Ä6ТÜÏݾÖÝñvÄÚ¡CO«Ûe]ÌlóôP´o EºÌÌië˜uƹ$ÞOpZ‹Š.ÄIÞß_ùzðÝp¶PÏø‘ŸUI‰˜â©¤^¦¨#0Šíçaù:òv0³µ+À v”å& -Õ®Â;Qœ‚áñ¦ÜCÕ»!àYgØÊøè
ÇÖJ«P‘Èoá?U/’h¸Vض;®`[/@íê”�òÎyB‘¾î)¶âÀUîRVEýÕAIJ§:;-lNž#Nž°cQ0à©i®Ê¥èac{Š'gÿzº±•íùË...
°tïä¦3l:ŒVKȏ­¦	”R{€KÐ[Hȉ.XtÑÊø!c!*Ü­åေDªPx‰
¬êjAž™†ÝE§Fßô	ò©2>œ]¢ÞAð½Io˜Eö‡1y˜*'	k
Üd9¢>RŠ[é–;è ü”â&£R¬/e7õ¨4"ÄåSjÆN%5ãé‰Ö!–0†ŸÒGÜ<M°Ë¾ÿq•ÄžóœÎ7FùXò6¼ê¿¹T(É =òĬÖ,`€bí×O”ç_šWeñl{þÍýÝûã»íüòòâpøpóúöþÊÖ>*»Ø³å¶H5œ‡TüĐ	•ÎC²b<I
<õTEPz5ÒáIïU/6–\ÇŠÿ±_e«y^Wô	ôÿMÁ¹¨8ûÌçÒvz‘´$5
„PŒ¤Æ-’dôö]kG’儘þ%Á6ø÷öùΰ‡5èÛ+...
÷‡~Ì5ç`¢èÈppÑ\½íµC":½µ#¤G܈>*®1Jjt>&H¸ÌEÐ)¡'ÛDxz)<š6‚9ÐH§åÌG'zŸçóä€ÖI€Íƒ÷Ó”æѐéˆ
óK*lC¦;ü™Ü}oz¤ïĤ‰UUËÕά¦›12%;;Q*X,›Q$ø˜MEv
4”1¦ú–3¯tªÍ[5�¶(cçÑ÷t'•*òØJ`® òRÝ~¢}’Š)®]†\āå{Ò„#ÍÊ­BÍcn†£ ÆC%y7ÿÐzädúð9�:«Iu:™FvÐ@~‡§ì)…oíÙ°ìB8“wm¢höé²TÜq
ãíÛeêìÖ±UÔÍ“Jb{RêËUf@<Xûœ>¼sŽ=¨=O§{%:×qÅÚŒÚ&Ä!üå´Ø€
Ýs*ªmðò|xŸÄçlÂ~§l|

t/test.pdf  view on Meta::CPAN

ôš#1L£öŠ‰;6#2,+È.“˜àSŸ‰7L¸ä¥ÝX9Ÿp›Ñ¦x8l9•°{Y©
Ï]rî¤(<ÜŠ-ЏmAdæ_ÆX¼iÓ P�ìHîO¥&D÷ù;"DVx‘qØ¿#ѳÌl(7À׎q&1ÉCÀúœ™¬%l›L’êI¶ÞG™éA­@§Gƒ‰Ù泓Á/˜›2m¬˜’Û9¤‡^úë>Îœ¥D{ÌA­áÞÌëJÉ|…¢¼ˆã:î½ÕŠb•”;·ãºT›É)Ûo.Ñ\v1&#•j.E2LrÌ6
ƒf×äÒ¬˜Â#Þ—4Ü‹Nj...
ôv‘Y>d—Q¾ï.»=­bmxêüåioP"‡¾X¡[ý©ÏØñV¬Œ—n¾ð{_›Ý”MXÕµÜÙŸpa@“Ü$!5þ
¾é«TÙE}uOƒ“Å`¹¯€Rëµ="›¥€yk×·0ixg­Ñ÷áûü+®åoV®}C–&	g²/Ò*þäo¤RíÃ¥ˆCF£#Íãò# à–³ù=0.DôÓ†¼—ù<™$€Ñ‘ ÓI‡Î‚Ê«?%

¡ÙÞ<ÁãSñ*†?ê@/sä ß×Yâ×+Õ¹Û!TüVç°05CÍâû'sTs...
w´V}Ê#É‘%ð^ÃÿÓ¬ÊÖSÅœüŽnhaœÚÿéÑ`²�k0
‡ÿ–ü9T'<¦˜L5{ez^u|œCµÑûLø×
MMÁ%°2¢ÓxÄì¹ï§Q*pmJ%‰ˆU³Ã&¸á¥¢ZÞX°Ò}U5h›Œ†Ä0ÚL&î،Ȱ¬ »Lb`f€=—
Lxf…ˆM
øs$XK¿s°ÛË1ÑÌ7L|R<!RÕ‹9Bb<ü
ô\|²Ñ'¶T ò@ÿ­ÍaÛHϏ9¨mJ2>gS{h í´iÐ)"¶¹$†?ü›œŒT£üb”,àˆtÛiöJE±JÊ7ÐQcåRKdÜ7H­,ƒ¶?R©öáRÄ!£Â¢ëÒP1hfÔV†…G¼ÿ²_>ËiÃ`‚¾C.½%
išN'...

W4ý‘N«¿	ï‘úª/²8È?ÔS&`ã
Ÿixróæ|üst[þÓÒuVßԁëé~û=K½Œç‹Òpë¤te#�Èèõ²bA‚Á°•´Ø;®¸ø	ƒÆ¥ÅãI‹8‚wyñèó¢)1-û-ÆL—ïоk@&_Ù.(“ÉΧ¿è¡Ì?Wgˆ({ˆ¬ÙâeÞÓæmi†ï/1`\gri)LIž!ù7Á¤kMX­éË–J+M®4¹Òd¢p¥É•&Wš\izuiºÂ€q¥	°4H&%#qŸg]üø‚Gµ¹G)I"æc¼Š5	Ä*YÏ|
{×i½Æ‡...
H‰ìWkoYýþýe$HsߏOI«Fv–Õj…:v;îY§ÛÛnù÷S÷Vµc›8ÊÜdÙ²Ë÷QsNU~Î}ºœ×ͤ<Ϫù¤-ëÇÙ“ÑÓgÕ¸«šºh¯²¿6]×Vç«®\†eðÇrÕN‹qy6.æeÜùîÕ?^ÃJØöh^]̺ª¾87ó¦}œ==ƒÍõÅõiá£..ãÆGgUWîYô¡˜¯â*‘=}YwÛvW¼ú¸m‹ïÔ®ãÛa-åx5/Ú_>-šº¬»¡À8K#ªÏý¾9®Ó¦^vÅÄ•VX×n?¹mývÌÓò´¹\...
ÒG
Tb¶�
ê\
ø†°‚cu¿=”2 œ¸Ð-.¹#Tr÷ÃéÖ*µKˆ5B	†;J€áL­aiE„�äÐIÛ£Ý9æ7
ó!®…ŠJCE€ÄE€Q8KFã´&£æÂÒ©¶÷à&D+3\4
j�É‹F@‘‡ÅhàXÏ�šˆMÄ1‘žAàX\k3®Tùgª?@çŽÀ
€2x€Øb¶@œp´ß

t/test.pdf  view on Meta::CPAN

Á¥9>¦¨zú"<©ž=‹qY€È6Å}Ú¶3[† ³<7+Pd8ÙººÇÇÒ軥Àª{†gÝV­þñ9w»'{N =LÜ
’JQË1–ÊY­ åe¤|0‡Ñô0–+©>FÙ@m&ýÁ%x^PÂ}æÇ,—g߳Ĩ¹ù“îó÷5%JhDZ>$…É„b£jC{‡€™±¿ì…_eóq	�j¸éþÆmè¹c°±bÕ8oA³©´d÷”0ð»‡=ÅŒ,_ÀVmf
½ß<AʼnÒÈêjQL%©Ä I½_ºÛQIæé
5ÙíªXB^Çö&¬bZm-pÔÝnAðF	fF5¸pYQsµâÀ5Úqnœ<x|Wp›…z–#œh`zÕJ�å–›‘_Êc;%àÔÕóú�†æÅ6Û–ˆ»rn…qÑVv+ªàJ
²'[@H\fUÊqÃå6q�¦üZHÄ„TÌÓC⚨2T¾ÜÈ“æüá`饸ÔР¯“ÿz©žéœ¬«˜ŠÂ5
¬®T 
Yt0e'1îÚJœ�°¤jÀ’OG<m™‚£.cׯcnÎQÙÔwè×>Á‘žð„.t$ƒ ªÛÁö$wF{”…)Ä¡¼;]è^úWMÁû^¦j­gâNNqœ}WRv÷ t7µlvYWZtÙÌDQ£¥\Á�üó–IÄ€ÁMè´ï0Tán=1rw!ß8’ü‡XCæ,¨wéÒ@éÛ¢d¬Ù{´ŸíN¨ùHIÏ�ÅÞu¯ë“âÆ™5ñ¯·ÐôH‡‚þA!jkA¿#ŽìvƒÀȍRß[å7%àë‡ïÄ¥ùœ£.»«R;ý¸¾ëbƒ(í©...
ªë­ò:%«a¨F®<ƒ>‡M÷RäQ	DvYÐ5xª`ZL¢Ñš¸ï¥4(59­xƍGnRÝçi”ªÂ|”2õžL»zê*1zŠ×]´åFšÏÙÔž®�÷¥VZ%Ô
g<¯Ð†ØqùTˆ	S)ÍžþÅÂkŒ’Uùl›1}’æF.9K«9;ı8€ä¼çJ¡!Í©ËÊ·œ¹\g4ÛÿEµC‘ӏý¿B{oZ8
ÃNä"p[6RÂVÆæöíB�H`ö¾@Ø¥c€¥º~@,>)	UŒïé{WtSBÕÏBmŒUZsÆ™Ð退õsy_m8­...
7öÞ
™ÞKU†6"È“s¾P2vkáÜý0:Aú™Z¹äTÓµSEù¢-`#3÷ÔÜ^§ìÌ–ØîÛ·°eAo…hEåÊÙÁÁ­|‡ºoMªös~çqËtú“ÏÓoUüþAoŸÜ^þ€Ož~ÝÿË~õ5‘žq“œ‚V¨ÔZç^œ	f.Ë&›Íîzê	DNP	†£Fa–“0!Ô㫵3[lœAùSTN^ÑŠí\;×Öv¦ßüp×ûÚ~¼~qú¡ýp©í]Ÿ÷}óg!YH‚w3¼ÉÂæÙß>Ïïù»ïr½'Cý£ƒ}á`ìw£ÇëÅ$...
6)°Q²ªm©dqZDmBL61ðì§jUbÏä/i
çY²÷¸$­„²¸	ñFí°JE22I[jYŒVSúØž²ÁiÅyô2x;
Oœ(3NT…ÐÛìzŽÐSRNe8ê‰0PI€y‡éŠå–¾Î<êA0„ð¶¹|ë!°ˆ¢è_	ñ�Äh+|8Æh$íJT9‚l²,3®–=_jX'TK>¿ëÄ:ë•Ø2™	l

-
MC;‡ÂÑØæ°ÍáëË¡@´Ó((
-4¶€@f[C`›ƒ[Iï«@csòKc›Ã¦­ç‹Ã6-6—#BP-
í4
J@#-à™FÖ_-‡¼GisAÈ/Íahl”ó&úä°Vy^lŽÆ	
5_h	+ÛNä/›&ðuá …FÖÛµ(×Îv£îgFn:˜¯²R¸œj! q½ry¤‘¼Ðȝ@Ž4òE`Ó4òK`£4
a]#™|éß¡Z:X;4-¡ˆaŠZÐú¢r£$Ë‹ôÙ¡¯W5ù®]ó5.1d#PTÕù“ß|úéoz±¶$‹f]éÑëÏ_|þù‹¿Ì^¨*ÊÌY_~zá³ÿ|ñÅÿùñŽ–fÁV´/¿øÄðågNïËLbCXàð÷—_jâ�¾ýø“½ü·ß f]óýÇß>Ò³ú6òÑÇ‹a{ö\ìØñځó~9ÌWhÈ1DÂ1;ßóÆ.MµSÞz{)PS¬«+=6ödìX–xÅ°Å5xMOWƲ7è¼{¯«zYûJwepœ»ûôj·£
¯³§„oep...
ûø‡÷Þ»t±žÑ^K³ç*W&Cå¹™¥êâÝÕÞå?ÿúþ•·÷êIûίuŽ¨˜
P
×V–oGFÚÍ“©Š
`›PÓ¡¶Á~‡x�wLÞ±ß="õ ‚2¦ÀâÂ%#ԍ~ÏwêWÒŽ‚É{aòém\g‰¼˜ºžÉÇc´lô»vï2èé5\ê·pýVc‘No(®0õÜZžpŽ•£ÊÒBË·'k*ËŠw—UÖØ“ËÝi<ßzúèfÐy¼æPͱs㋏'ºëÒxžüýŸVÞöÆf—ž,Œ¹j×{@Ó_{åÏ–ç—ž,ÍŽ]j¬Z...
b©heE^æ©XE‘Šm2Ë›Í yÖj–å˜ÔÆZÆ·‰"âÆŒ†€c5E…áX‹$ñ”•$²6‰1+•%c•óÀДªÀñV,4³²Ù†e²™sRä&®‚+@.'°’…·¤*T	cÆéíI±ÄZx«©uš9–l©Æã27“BSU9”Ô¹Öy7Óñ‚Àfž3'2g%’‰­63‘,Å3gc%Ù‚ÍÈà°hµX°ÐÂ
'¥
E‘µÊœ…ðT‹9ª+…\ŠÀNlœÉ‰Àó¯RG-,N~*LðfÑšªU%T1P‹±/Rj•DRL2+q4z e”8ìJ¨	*ÌØ[߉Úýî¨?R"£èˆ8Tߊ¢Ú†3‡ÜáÁ¡ðH¨
û”!÷{êЛ€zŽÔî0³¼Í‚ÍB¢­<o‹Õ!¹´Ê*1.íNFFµuÈu>í™±wŽu:Ž\HÓsDž®ëÈ…4}Gåi:ÏØ‹#CºGÃAþ®ê@Å{JÓ…«/l´irèDª ‡^ŒÇ:‡n4öö‘ø‘`&z2žÝ5]I/äÒ—XCŽI...
sëOco¢Ci`Óô(u6M—Rðªí…”AO?åX§â’'d?cKÓÈFÌ
?m;FûÂÁÄ÷·-jøCQÈk2Qq£Çë©/0mCøŠD¯´G௣oÀãŽ2µ
ýá>jŒŒûÐY%¤x=äˆô{"u™¯!z±I	ýÞˆ2äó»cÈwÃá`=âÑP9q ë3@됉©%xÆ7•(Ê„'PH`ßS‚j(Q•o‰ã³ë¶€%ª(ùìw\œyÚáV¢°#"(¢*m„†tÆ£\J‡ÃœJ¿_zìˆ*Ž¨Z>52¨„P³Ç“Ö|Õ...
´Ýrûƒ™1DU“O‰¸ÃJhóH¿'‚¨ªGvhp ™Y×;JPyot]L²D;Ü‘p0ˆ]AßU"~¥ByÆòF}ñ›ÛIŒBiŒ@«šh]…MpŽìÊ°Ú¿#	<Ùow(TQ•ÙŽ†<ÃP@Ùµ6•áa?QåNF|}|‡2½uˆ¥ãI&yJë´ŸäÀ?ðBFf|yŽº½ÈDus–“³„˜‘YDV
±ÁB™%c)6‘¨Ë²‚§=

 view release on metacpan or  search on metacpan

lib/Egbk.pm  view on Meta::CPAN

    # split regexp
    my @char = $string =~ /\G((?>
        [^\x81-\xFE\\\$\@\[\(]|[\x81-\xFE][\x00-\xFF] |
        \\                               (?>[1-9][0-9]*)            |
        \\g (?>\s*)                      (?>[1-9][0-9]*)            |
        \\g (?>\s*) \{ (?>\s*)           (?>[1-9][0-9]*) (?>\s*) \} |
        \\g (?>\s*) \{ (?>\s*) - (?>\s*) (?>[1-9][0-9]*) (?>\s*) \} |
        \\x                              (?>[0-9A-Fa-f]{1,2})       |
        \\                               (?>[0-7]{2,3})             |
        \\c                              [\x40-\x5F]                |
        \\x\{                            (?>[0-9A-Fa-f]+)        \} |
        \\o\{                            (?>[0-7]+)              \} |

lib/Egbk.pm  view on Meta::CPAN

        # \0 --> \0
        elsif ($char[$i] =~ /\A \\ (?>\s*) 0 \z/oxms) {
        }

        # \g{N}, \g{-N}

        # P.108 Using Simple Patterns
        # in Chapter 7: In the World of Regular Expressions
        # of ISBN 978-0-596-52010-6 Learning Perl, Fifth Edition

        # P.221 Capturing
        # in Chapter 5: Pattern Matching
        # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

        # \g{-1}, \g{-2}, \g{-3} --> \g{-1}, \g{-2}, \g{-3}
        elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) - (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
        }

        # \g{1}, \g{2}, \g{3} --> \g{2}, \g{3}, \g{4} (only when multibyte anchoring is enable)
        elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/oxms) {
            if ($1 <= $parens) {
                $char[$i] = '\\g{' . ($1 + 1) . '}';
            }
        }

        # \g1, \g2, \g3 --> \g2, \g3, \g4 (only when multibyte anchoring is enable)
        elsif ($char[$i] =~ /\A \\g (?>\s*) ((?>[1-9][0-9]*)) \z/oxms) {
            if ($1 <= $parens) {
                $char[$i] = '\\g' . ($1 + 1);
            }
        }

        # \1, \2, \3 --> \2, \3, \4 (only when multibyte anchoring is enable)
        elsif ($char[$i] =~ /\A \\ (?>\s*) ((?>[1-9][0-9]*)) \z/oxms) {

 view release on metacpan or  search on metacpan

contrib/clean_pending-Win32_ODBC.pl  view on Meta::CPAN

use Win32::ODBC;

my $DriverType = "Microsoft Access Driver (*.mdb)";
my $DSN = "Win32 ODBC --MAOmaoMAOmaoMAO--";
my $Dir = "c:\\program files\\devnz\\gbpvr";
my $DBase = "gbpvr.mdb";


Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType,("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase", "DEFAULTDIR=$Dir", "UID=", "PWD=")) or die "ConfigDSN(): Could not add temporary DSN" . Win32::ODBC::Error();