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
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|