in reply to Re: Re: comparing two arrays
in thread comparing two arrays

I've never seen the syntax  @file = ; (and I'm not doubting you, just curious) but are you checking to see what the contents of @file are before you enter the while loop? Also you should be sure to put  chomp @file; before the loop since you might have newlines in the file at the end of each record ("\n").

Keep us posted.

--Jim

Afterthought: It is usually helpful when I'm debugging to use snippets similar to the following for testing arrays: 

my $i = 0;
foreach (@file) {
   print "\@file[", $i++, "] = '$_'\n";
}

[download]
It helps spot newlines, incorrect subscripting and such.

Update: In case it is not clear from the previous posts, we're assuming that the file  'd:\mms_tableload.txt' looks like this: 

sarak_mike\n
mike\n
some\n
other\n
data\n

[download]
The hash lookup must be an exact match (including newlines and case sensitivity). If there is other extraneous information like HTML tags embedded in @file, then you may need to use a different method that searches strings (like grep, or m/$_/), and this can be tricky since you'd have to insure that your search for "mike" doesn't match positve to "sarak_mike". </code>

Replies are listed 'Best First'.
Re: Re: Re: Re: comparing two arrays
by jdelmedi (Initiate) on Nov 26, 2001 at 18:03 UTC
    Sorry for not providing all the info, but the file looks like this,

    Insp_data table loaded successfully 2001-11-26 00:34:58.61 with 284734 records.
    Inventory_trans_temp table loaded sucessfully 2001-11-26 01:31:08.88 with 498 records.
    Invoice_extension table loaded successfully 2001-11-26 01:37:07.85 with 165287 records.
    Invoice_header table loaded successfully 2001-11-26 01:45:04.79 with 165321 records.

    My objective is to locate and compare the table names in the file with an array which may possibly conatin these same names.

[reply]
      This should work. Don't forget to substitute your filename for the one I used. 
      use strict;
my @file;
my @report = qw(sqltable mike_test sarak_mike);
open INFILE, "<mms_tableload.txt";  

## The following statement stuffs the lowercased first "word" of each 
+record into @file.
push @file, lc((split)[0]) foreach (<INFILE>);

my $i = 0;
foreach (@file) {
   print "\@file[", $i++, "] = '$_'\n";
}
print "\n\n";

my %in_file = map{$_ =>1} @file;
my $all_match = 1;
foreach (@report) {
   if (! exists $in_file{$_}) {
      $all_match = 0;
      print "\@report value: '$_' is not in \@file.\n";
   }
}

      [download]
      Where the data file for @file looks like this: 
      Mike table loaded successfully 2001-11-26 00:34:58.61 with 284734 reco
+rds.
MiKe_Test table loaded sucessfully 2001-11-26 01:31:08.88 with 498 rec
+ords.
sarak_Mike table loaded successfully 2001-11-26 01:37:07.85 with 165 r
+ecords.
Inv_hdr table loaded successfully 2001-11-26 01:45:04.79 with 165321 r
+ecords.

      [download]
      The output: 
      @file[0] = 'mike'
@file[1] = 'mike_test'
@file[2] = 'sarak_mike'
@file[3] = 'inv_hdr'


@report value: 'sqltable' is not in @file.

      [download]

      --Jim

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom