Re: Merging two list with simple operation

Try this:

#!/usr/bin/perl
use strict;
use warnings;

my %HASH;
open(F1,"file1");
while (<F1>) {
    chomp;
    my ($k,$v) = split /\s+/,$_,2;
    $HASH{$k} = $v;
}
close(F1);

open(F2,"file2");
while (<F2>) {
    chomp;
    my ($k,$v) = split /\s+/,$_,2;
    if (exists $HASH{$k} ) {
        $HASH{$k} *= $v;
    }else{
        $HASH{$k} = $v;
    }    
}
close(F2);

# write output to file
open(OUT,">newfile");
while (my ($k,$v) = each %HASH) {
    print OUT "$k $v\n";
}
close(OUT);
[download]

Comment on Re: Merging two list with simple operation Download Code

Replies are listed 'Best First'.
Re^2: Merging two list with simple operation by fanticla (Scribe) on Jul 31, 2010 at 19:08 UTC
@ahmad: THANK YOU VERY MUCH. It works great!!! 1000 better as my original script!	[reply]
Re^2: Merging two list with simple operation by rir (Vicar) on Aug 04, 2010 at 21:01 UTC
I'll endorse ahmad's solution. I'd just point out that the magical quality of `@ARGV` can be handy for this kind of data munging and that `chomp %hash` chomps the hash's values. Be well, rir `#!/usr/bin/perl use strict; use warnings; @ARGV = qw/ file1 file2/; my %h; while ( <> ) { /(\S+)\s+(\S+)/; $h{$1} = $h{$1} ? $h{$1}*$2 : $2; } print "$_ $h{$_}\n" for sort { $h{$a} <=> $h{$b} } keys %h;` [download]	[reply] [d/l] [select]