develooper Front page | perl.beginners | Postings from April 2002

searching arrays with foreign element

Thread Next
From:
Johnson, Shaunn
Date:
April 30, 2002 16:08
Subject:
searching arrays with foreign element
Message ID:
73309C2FDD95D11192E60008C7B1D5BB0452E35E@snt452.corp.bcbsm.com
Howdy:

I'm looking for examples of how to use element 0
in one array as a search pattern and looking in
other arrays for that pattern.  Here's what I have
so far ...

[snip code]
#!/usr/bin/perl -w
use diagnostics;

# test to read two files into two arrays
# do a search for each *FIRST* element in the array per line
# and print the matching line in the second file into a
# new file


$file="command.txt";
$file2="command2.txt";

@array=<file>;
@array2=<file2>;

open (INFILE, ">/tmp/infile.txt") or die "Unable to open: $!";
while (<file2>) {
if (m!$array[0]!) {
        print INFILE $_;
        }
}
close INFILE;

[/snip code]

What I'm trying to do is use the first element in the first
file (which *should* be an array) and look for it's match
in the second array.  If I find the match, I print that
line.

I'm getting errors about:

* Name "main::array2" used only once: possible typo at 
../h_test.pl line 14 (#1)

* readline() on closed filehandle main::file at 
../h_test.pl line 13 (#2)

* Your perl code sux ... go back to bash shell ...
line 22 (#2) - (*grin*)

The errors go on to say that the filehandle i'm
trying to read got closed before the real fun
began.  But how?  I don't understand why the files
are closed.

Anyhow ... anyone happen to have examples of
something like this around?

-X 

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About