in reply to Re^9: incrementing already existing file
in thread incrementing already existing file
I am still getting values from B from MYFILE#!/usr/bin/env perl use strict; use warnings; my $file1 = "2hgs_d00_internal_nrg_e.dat"; my $file2 = "2HGS_bio_conv-min_p.pdb"; open( MYFILE, '<', $file1 ) or die "cannot open $file1: $!"; open( NEWF, '<', $file2 ) or die "cannot open $file2: $!"; my (@a_vals, @b_vals); while ( <MYFILE> ) { chomp; my( $label, $index, $value ) = ( split /\s+/ )[3, 5, -1]; $a_vals[ $index ] = $value; $b_vals[ $index ] = $value; } close MYFILE; while ( <NEWF> ) { chomp; my @fields = ( split /\s+/ ); my $index = $fields[4]; my $label = $fields[-1]; if ($label eq "A"){ $fields[-2] = $a_vals[ $index ] } if ($label eq "B"){ $fields[-2] = $b_vals[ $index ] } my $output = join "\t", @fields; print "$output\n"; } close NEWF;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^11: incrementing already existing file
by broomduster (Priest) on Mar 03, 2011 at 13:50 UTC | |
by wanttoprogram (Novice) on Mar 03, 2011 at 16:50 UTC | |
by broomduster (Priest) on Mar 03, 2011 at 17:16 UTC |
In Section
Seekers of Perl Wisdom