[regex-coach] Re: perl regex

Please send questions to the mailing list.

On Fri, 18 Mar 2005 19:42:53 -0000, "Henry O'Keeffe" hok2005@lazydba.com wrote:

test.pl

#!/home/perl/bin/perl

$string="im not seeing any yellow"; if ($string =~ /l*/) { print "Should be seeing yellow\n"; } else { print "Shouldn't be seeing yellow\n"; }

$ perl test.pl

Should be seeing yellow

Look closely at the screenshot you sent and you'll see the line

"Match from 0 to 0"

Then try this:

edi@miles:/tmp$ perl -le 'print "Match" if "xxx" =~ /l*/' Match edi@miles:/tmp$ perl -le 'print "Match: #$1#" if "xxx" =~ /(l*)/' Match: ##