RE: regex puzzle

[bingfeng zhao]

 Oh， bug，it should be 
<CODE>
use warnings;
use strict;
 
my @address = ("http://test";, "http://";, "www", "", "ftp:/foo" );
 
for (@address)
{
    print "\"$_\" is valid. \n" if /^((http|ftp):\/\/)?.+$/; 
}
</CODE> 


|-----Original Message-----
|From: bingfeng zhao [mailto:[EMAIL PROTECTED] 
|Sent: Friday, July 29, 2005 1:48 PM
|To: Perl Beginners List
|Subject: regex puzzle
|
|See following sample code:
|
|<CODE>
|use warnings;
|use strict;
| 
|my @address = ("http://test";, "http://";, "www", "", "ftp:/foo" );
| 
|for (@address)
|{
|    print "\"$_\" passed! \n" if /^((http|ftp):\/\/)?.+$/; } </CODE> 
|
|the running result is:
|"http://test"; is valid.
|"http://"; is valid.
|"www" is valid.
|"ftp:/foo" is valid.
|
|why "http://"; and "ftp:/foo" can pass the check?
| 
|

smime.p7s
Description: S/MIME cryptographic signature