in reply to Re^4: Output Repeats in the elsif statement
in thread Output Repeats in the elsif statement
Hello PilotinControl,
The output “Car Record Not Found” appears multiple times because it is within a loop. You need to change the logic to something like this (untested):
my $found = 0; foreach my $carroadnameverify2 (@lines) { if ($carroadnameverify2 =~ /$carroadnameverify/) { printf " %-13s %-15s %-12s %0s", split(/:/, $car +roadnameverify2); $found = 1; last; } } print "CAR RECORD NOT FOUND" unless $found;
(This assumes that each car record appears no more than once in the input file. If this is not the case, remove the last; statement from within the if clause.)
Hope that helps,
Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
|
---|
In Section
Seekers of Perl Wisdom