Re: Extracting records with unique ID

I really can't follow the logic of your program: it seems you are reading the file and, for each line read, parse all the lines read so far to check for ID equality. It is certainly not the fastest way to do it.

If I understand the problem, you want to group data from lines with the same ID and then print it in some format. What I'd do is to:

Define a empty hash
Read the file line by line
Parse each line when read and extract the ID and the single data fields
Add the data read to the hash using as key the ID field. Data should be further structured in a hash using keys like RECTYPE, ASSET, and EXTK?
When all the file has been read, print the contents of the hash, formatting as you need

Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."

Comment on Re: Extracting records with unique ID

Replies are listed 'Best First'.
Re^2: Extracting records with unique ID by mmittiga17 (Scribe) on Sep 23, 2008 at 18:32 UTC
Thanks all for your responses. My biggest how to structure a hash when he key is on multiple lines. Can some one point in the correct direction on that.	[reply]
Re^3: Extracting records with unique ID by massa (Hermit) on Sep 25, 2008 at 01:17 UTC
instead of using a hash where keys and values are strings, use a hash where the keys are strings and the values are references to arrays (so you can put more than one value for a key): `my %h; while( <> ) { my ($k, $v) = process $_; push @{$h{$k}}, $v } for my $k ( keys %h ) { #traverse all keys for my $v ( @{$h{$K}} ) { #traverse all values for that key do_your_stuff $k, $v; } }` [download] and read perllol, perlreftut, perlref, perldsc... I would prefer you read them in that order, but do as you please!!! []s, HTH, Massa (κς,πμ,πλ)	[reply] [d/l]