Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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?
[marioroy]: LA if the find worked from Unix command line, or does it not. Likely a quoting issue inside Perl qx.
[Lady_Aleena]: marioroy, the find worked fine at the command line.
[marioroy]: LA, yeah. than there's no reason why it cannot work inside qx. But chatting is hard in PM. I cannot see the code now.
[shmem]: Lady_Aleena: sometimes a quick glance isn't enough.
[Lady_Aleena]: What?! Can't stat ~/Music: No such file or directory? The ~/ doesn't expand?

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2017-04-23 21:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.