Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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 imbibing at the Monastery: (6)
As of 2014-09-20 02:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (151 votes), past polls