Excellent! flaviodesousa solution works for explicitly defined arrays
my @Array1 = qw{XXX FFF ZZZ AAA BBB QQQ LLL JKK III CCC DDD DCD};
my @Array2 = ("XXX BBB AAA CCC DDD EEE", "FFF NNN JKK III LLL QQQ");
XXX IS found in XXX BBB AAA CCC DDD EEE
XXX IS NOT found in FFF NNN JKK III LLL QQQ
FFF IS NOT found in XXX BBB AAA CCC DDD EEE
FFF IS found in FFF NNN JKK III LLL QQQ
However my arrays are being read in from a text file
my $file1 = '/tmp/file1.txt';
my @Array1;
open FILE, $file1 or die $!;
while(<FILE>)
{
@Array1 = <FILE>;
}
my $file2 = '/tmp/file2.txt';
my @Array2;
open FILE, $file2 or die$!;
while(<FILE>)
{
@Array2 = <FILE>;
}
print @Array1;
Print @Array2;
/tmp/file1.txt is as stated above
XXX
FFF
ZZZ
AAA
BBB
QQQ
LLL
JKK
III
CCC
DDD
DCD
/tmp/file2.txt is
XXX BBB AAA CCC DDD EEE
FFF NNN JKK III LLL QQQ
This outputs
FFF
ZZZ
AAA
BBB
QQQ
LLL
JKK
III
CCC
DDD
DCD
FFF NNN JKK III LLL QQQ
So it looks the method I am reading in the Arrays is not as thorough as I expect it to be.
-
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.