Quiz of the Week :: Perl

Robbie Burke

An easy one to start off with...

Say I inserted this into a Perl file:

$phone = "(123) 456-7899";

if ($phone =~ /^(\(\d\d\d\))? ?\d\d\d-\d\d\d\d$/) {
	print "$phone";
} else {
	print "Please enter your phone number again.";
}

What would it do/output *or* whats wrong with it? No cheating by executing the script on the web or anything.

[This message has been edited by Robbie Burke (edited 07-05-2001).]

K!LL!@N

I don't know anything about Perl.
But from the look of it, i'd say it checks that the phone number entered conforms to the correct structure. If it does then it prints out the number. If not it prints out the message " Please enter your phone number again.".

Robbie Burke

Told ya'll it was easy, solved in less than an hour and by someone with no knowledge of perl...well doen K!LL!@N

[This message has been edited by Robbie Burke (edited 07-05-2001).]

K!LL!@N