Thank you all who replied. I took some of these ideas and worked with a
knowledgeable Perl expert on campus. We used Data Dumper which found a
logic error that was easily correctable. The array referencing was
actually pretty good, but we found some problems in the conditionals
within the for loops in the second major block.
So I think I'm in good shape to debug the rest.
Tim McGeary '99, '06G
Senior Systems Specialist
Lehigh University
610-758-4998
[EMAIL PROTECTED]
Chris Charley wrote:
----- Original Message ----- From: ""Chris Charley"" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: <beginners@perl.org>
Sent: Thursday, September 13, 2007 11:55 PM
Subject: Re: working with 3-dimensional array
----- Original Message ----- From: "Tim McGeary" <[EMAIL PROTECTED]>
Hi all,
I'm trying to read in two file sets of library records, compare a
regex that I find in different lines of each set of records, and then
copy one whole line over to the other when a match is found.
?
To do this, I am trying to use a 3-dimensional array:
[fileset][record][line]
I think that I am reading and pushing the arrays onto the other
arrays correctly, but when I'm traversing the arrays to do the
conditionals, I am getting uninitialized value warnings, which seems
like I'm either not traversing correctly OR I'm not really pushing
the data onto the arrays properly.
This is my whole script below. Does anyone see what I'm doing wrong?
Thanks,
Tim
Hi Tim
It would be helpful if you could post about 15 lines from each file so
we could see what kind of data you're parsing.
Also, how many lines in the diss.flat file could have a field value of
.001. ? Are there more than 1?
Same thing for ludiss.flat. In addition, is there more than 1 line
with a field of ..856. ?
Reading your code, it seems you bail out after finding the (fisrt?)
match but if there are more lines with these values , what about them?
Perhaps if you tried to explain what you are trying to do again , then
a solution could be found.
I found a problem with your arrays, but even before you start thinking
about what kind of data structure you want to use here, a clearer idea
of whats in the file and how you want to process it could precede your
choice of arrays (or perhaps a hash).
Chris
Me again :-)
Don't know if my reply was critical - dicn't mean it to be. But,
following your code through the if blocks made me wonder and raise those
questions. I guess what I saw there was something like this:
Read the 2 files into 2 arrays.
Then, for each line of the one file, go through all the lines of the
second file until a match was found.
Then, exit the either the inner loop or outer loop and start again with
the next line from the first file looking for another match. For the
second file, you look for either a .001. or .856. field in the same line
and it can't be both. so I'm wondering what the code is supposed to do.
Anyhow, I guess I'm not sure what it is the plan to look for matches.
If you want to compare groups of lines in one file (delimited by the
lines: '*** DOCUMENT BOUNDARY ***' and 'FORM=MARC'). Is it important to
group these lines into a record delimited by those lines?
With some additional questions,
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
