Hi All.
I need to try and figure this out. I am searching an array for exact mathes in another array. If found it must tell me and also tell me if not found.
I wrote this script and it works, but the issue is it does a search for each seperate string, return with a match or not and follow through, so each I will end up with lines not matching, and matching.
The script.
@array =
(
"54321" ,
"54312" ,
"5999" ,
"54352" ,
"12345"
);
@original =
(
"12345" ,
"54321" ,
"12355"
);
foreach $string(@array) {
foreach $string2(@original) {
if ($string eq $string2) {
$found = 1;
}
else
{
$found = 0;
}
if ($found == 0) {
print "$string not found\n";
}
else
{
print "$string found\n";
}
}
}
The result.
54321 not found
54321 found
54321 not found
54312 not found
54312 not found
54312 not found
5999 not found
5999 not found
5999 not found
54352 not found
54352 not found
54352 not found
12345 found
12345 not found
12345 not found
Result I want though is non repeated search results.
like this.
12345 Found
54321 Found
12355 Not found
54312 Not found
5999 Not found
54352 Not found
I know it seems like I am wanting to do to much as I can atleast see what is found and what not, but this script is just a small variant of it's big brother, the original script needs to read thousands of lines and give me comparisons.
Much appreciated in advance!
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.