Perl regular expressions...

DrRo183 · #1 (**permalink**) 04-26-2006

I am writing script that will act like the 'comm' utility. My
problem is when trying to read whether the user has entered -123 or -1
or -1...etc.

I currently have:

Code:

                if(m/[\-][0-3][0-3]?[0-3]?[^a-z]/g){
                        print "Good.\n";
                }

So, this should check for all -123, -1, -12, -32, etc. But I would like
to output an error message if the user enters something like:
-123333

or

-123abc

Something is wrong with the [^a-z] part. Could someone help me clean
this up? Thanks.

cbkihong · #2 (**permalink**) 04-26-2006

Code:

if ( /^-[0-3]{1,3}$/ ) {
    print "Good.\n";
}

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Regular Expressions HELP - PERL	maxmave	Shell Programming and Scripting	3	06-05-2008 03:45 AM
Regular Expressions HELP - PERL	maxmave	UNIX for Dummies Questions & Answers	1	06-04-2008 12:15 PM
regular expressions	jack1981	Shell Programming and Scripting	4	07-12-2006 03:10 PM
Regular Expressions	sandeep_hi	Shell Programming and Scripting	6	06-12-2006 02:12 AM
Regular expressions in sed	mfreemantle	UNIX for Dummies Questions & Answers	3	02-11-2002 09:34 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by