Re: subset extraction from master file


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: subset extraction from master file

by ptkdb (Monk)

on Nov 18, 2003 at 16:11 UTC ( [id://308017]=note: print w/replies, xml )

Need Help??

in reply to subset extraction from master file

So your desired threshold of someone doing your thinking/experimenting/debugging has not yet been crossed to your satisfaction?
mentioned in response to the remark of "previous suggestions didn't work"

Just tossing some pseudo code out there:

use strict ;
use warnings ;

my(%h, %h2, $f, $master, $newmaster, %db) ;
while( <$f> ) {
   @h{@KEYS} = split ;
   $db{$h{KEYFIELD} = { %h } ;

}

while( <$master> ) {
   @h2{@KEYS} = split ;
   @h2{@OTHERKEYS} = @$db{$h2{KEYFIELD}}{@OTHERKEYS} if exists $db{$h2
+{KEYFIELD}} ;
   print $newmaster join ":", @h2{@ALLKEYS} ;
}
# move new master ontop of oldmaster
[download]