Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

zakb's scratchpad

by zakb (Pilgrim)
on Jun 13, 2004 at 10:16 UTC ( #363781=scratchpad: print w/replies, xml ) Need Help??

Patch for perl.vim to support ! as quote-like operator delimiters:

*** d:\source\vim\vim61\runtime\syntax\perl.vim Thu Mar 27 12:28:19 + 2003 --- c:\progra~1\vim\vim61\syntax\perl.vim Thu Mar 27 12:30:12 2003 *************** *** 292,312 **** --- 292,316 ---- syn region perlQQ matchgroup=perlStringStartEnd start=+\<q(+ +end=+)+ contains=@perlInterpSQ,perlBrackets syn region perlQQ matchgroup=perlStringStartEnd start=+\<q{+ +end=+}+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<q/+ +end=+/+ contains=@perlInterpSQ + syn region perlQQ matchgroup=perlStringStartEnd start=+\<q!+ +end=+!+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +]#+ end=+#+ contains=@perlInterpDQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +]|+ end=+|+ contains=@perlInterpDQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +](+ end=+)+ contains=@perlInterpDQ,perlBrackets syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +]{+ end=+}+ contains=@perlInterpDQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +]/+ end=+/+ contains=@perlInterpDQ + syn region perlQQ matchgroup=perlStringStartEnd start=+\<q[qx +]!+ end=+!+ contains=@perlInterpDQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw#+ + end=+#+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw|+ + end=+|+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw(+ + end=+)+ contains=@perlInterpSQ,perlBrackets syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw{+ + end=+}+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw/+ + end=+/+ contains=@perlInterpSQ + syn region perlQQ matchgroup=perlStringStartEnd start=+\<qw!+ + end=+!+ contains=@perlInterpSQ syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr#+ + end=+#[imosx]*+ contains=@perlInterpMatch syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr|+ + end=+|[imosx]*+ contains=@perlInterpMatch syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr(+ + end=+)[imosx]*+ contains=@perlInterpMatch syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr{+ + end=+}[imosx]*+ contains=@perlInterpMatch syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr/+ + end=+/[imosx]*+ contains=@perlInterpSlash + syn region perlQQ matchgroup=perlStringStartEnd start=+\<qr!+ + end=+![imosx]*+ contains=@perlInterpSlash " Constructs such as print <<EOF [...] EOF, 'here' documents "
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2020-10-30 02:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (277 votes). Check out past polls.

    Notices?