Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: New to perl and regex

by NetWallah (Abbot)
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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004469]
help
Chatterbox?
[Cow1337killr]: (Oops. HTML paragraph markup not needed.)
[stevieb]: Cow1337killr yeah, you're probably right. I have communicated to the author directly, and here on his threads. It's a tremenous setup. With Devel::Camelcadedb , you get full perl debug support too
[stevieb]: so now I can use CLion with the Perl plugin and have a single IDE for Perl/C/C++. It'll make writing C/XS dists much easier
[stevieb]: Python too, but I leave work at work

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (10)
As of 2017-02-20 21:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (302 votes). Check out past polls.