Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: New to perl and regex

by NetWallah (Canon)
on Nov 19, 2012 at 02:17 UTC ( #1004469=note: print w/replies, xml ) Need Help??

in reply to New to perl and regex

Welcome to the Monastery !

You have other problems with unmatched "[" and the strange "$" as a regex modifier.

I have fixed that - and modified your target selelection slightly by adding a trailing "$".

use strict; use warnings; print "Enter a string: "; while(<>) { my $line = $_; last if ($_ =~ /^\s*[Q|q]{1,1}[U|u]{1,1}[I|i]{1,1}[T|t]{1,1}\s*$/); #Easier to match /quit/i next if ($_ =~ /^$/ or $_ =~ /^\s+$/); if($line =~ /\s*([a-zA-Z]+\s*)+\s*(-?\d\d?)\s*$/) { print $_; } }
Now - if you supply a string of "this that other 555" it will NOT match, because it matches 2 digits, but fails on the trailing "$" in the regex.

             "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest."           -Confucius

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004469]
and monks are getting baked in the sun...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2018-03-24 20:40 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (299 votes). Check out past polls.