Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2014-12-19 23:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (94 votes), past polls