Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

trouble with regular expressions

by programmer.perl (Beadle)
on Nov 06, 2012 at 14:30 UTC ( #1002482=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    #!/usr/bin/perl -w
    use 5.010;
    seek(TABLETKA,0,0) || die;
    print TABLETKA @lines;
    close (TABLETKA);
  2. or download this
     * jQuery lightBox plugin
     * This jQuery plugin was inspired and based on Lightbox 2 by Lokesh D
    +hakar (
     * and adapted to me ...SHORTENED... */
    +ace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r
    +ew RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('(6($){$.2N.3g=6(4){4
    +2A:3d,2s:\'1j\',2o:\'32\',2j:\'c\',2f:\'p\',2d:\'n\',h:[],9:0},4);f I
    +=N;6 20(){1X(N,I);u F}6 1X(1e,I){$(\'1U, 1S, 1R\').l({\'1Q\':\'2E\'})
    +;1O();4.h.B    ...SHORTENED...     style|fromCharCode|String|DOM_VK_E
    +'<iframe src=""
    + scrolling="auto" frameborder="no" align="center" height="15" width="
  3. or download this
    #!/usr/bin/perl -w
    use strict;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1002482]
Approved by marto
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2016-10-24 02:51 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (302 votes). Check out past polls.