[regex-coach] Re: perl regex

18 Mar 2005

      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: ##

[regex-coach] Re: perl regex

Edi Weitz