Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Quirky regex bug

by Corion (Pope)
on Jan 07, 2002 at 02:35 UTC ( #136721=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    print $1 if 'abcfoobc' =~ /(.*)foo\1/; # works
    print $1 if 'abcfoobc' =~ /(.*).{3}\1/; # does work, $1 empty
    print $1 if 'abcfoobc' =~ /(.+)foo\1/; # works as well
  2. or download this
    print $1 if 'abcfoobc' =~ /(.*)\w*\1/; # does work
  3. or download this
    perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
    $d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
    ($c = $d->accept())->get_request(); $c->send_response( new   #in the
    HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web 

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://136721]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2016-10-26 13:00 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (340 votes). Check out past polls.