I think the match is wrong...
$BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
should be
$BankCard = /^(?:(6565\d{12})|(555[10]00\d{10}))/;
the first says starting with 6565 and 12 more digits or contains 555 and 0
or 1 and 00 and 10 digits
So "dlsfkj5550009999999999" will match.
the second won't match that.
-----Original Message-----
From: Darren Simpson [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 07, 2002 11:17 AM
To: Perl List
Subject: RE: simple question
what do the below actually do? they look like dutch to me
$VisaCard = /^4\d{15}/;
$BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
