if ($trig_np =~ m/\d,{1}\d|\d\s{1}\d/)
this what I did.
-----Original Message-----
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Monday, October 13, 2008 6:49 PM
To: Perl Beginners
Cc: Sayed, Irfan (Cognizant)
Subject: Re: Regarding reg. exp.
[EMAIL PROTECTED] wrote:
>
> I have a string and I need to parse that string to check whether it is
> in required format or not. I have a Perl script which ask for user
> input. I have mentioned in the Perl script that input should be in the
> following format.
>
> For example:- 1,2,3 OR 1 2 3
>
> Which means that delimiter between these figures should be comma OR
> space. No any other character. I need all users to adhere that and if
> they not then they should exit.
>
> Can somebody please give me reg. exp. which can be used to parse the
> string and check whether comma OR space is there or not as a delimiter
> and it should contain only numeric not alphabets.
It is very draconian to require exactly one space or comma as
separators.
However this will do what you ask.
Rob
use strict;
use warnings;
my $re = qr/^
\d+
(?:
(?:,\d+)* | (?: \d+)*
)
$/x;
chomp (my $input = <>);
if ($input =~ $re) {
print "ok\n";
}
else {
print "invalid\n";
}
This e-mail and any files transmitted with it are for the sole use of the
intended recipient(s) and may contain confidential and privileged information.
If you are not the intended recipient, please contact the sender by reply
e-mail and destroy all copies of the original message.
Any unauthorised review, use, disclosure, dissemination, forwarding, printing
or copying of this email or any action taken in reliance on this e-mail is
strictly
prohibited and may be unlawful.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
