Hello PilotinControl,
help us to help you giving runnable and correctly indented code :)
Your perLplexing issue can arise from wrong index 1 (instead of 2) in $field[1] ? Use Data::Dump here and there to verify data you are processing.
The following works as expected
use strict;
use warnings;
my @lines = <DATA>;
@lines = map {chomp $_; $_} @lines;
my $indtwn = <STDIN>;
# $indtwn = <STDIN> until defined $indtwn; ???
chomp $indtwn;
my $found = 0;
foreach my $townverify (@lines) {
my @field = split(':',$townverify);
next if $field[0] =~ m/^#/;
if ( $field[2] eq $indtwn ){ # <--- here
print "FOUND $indtwn\n";
$found++;
last;
}
}
print "[$indtwn] NOT FOUND" unless $found;
__DATA__
1:PGH:Pittsburgh
2:PGHW:Pittsburgh West End
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
-
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.
|