Re: Bit of maths between two files

Oh-- ok. So you need the sum of all x's, sum of all y's, sum of all z's. Seems like you could read them into 3 arrays while you're splitting them, and the add up the elements of each array. Would that work or am I still missing something?

Comment on Re: Bit of maths between two files

Replies are listed 'Best First'.
Re^2: Bit of maths between two files by Anonymous Monk on Aug 05, 2004 at 15:34 UTC
i will have a go at this suggestion, thanks	[reply]
Re^3: Bit of maths between two files by mawe (Hermit) on Aug 05, 2004 at 16:04 UTC
Hi! Try this: `my @file = @ARGV; my @coords; foreach $f (@file) { open (FILE, "<$f"); while (<FILE>) { my @line = split(/\s+/,$_); for my $i (0..$#line) { $coords[$i] += $line[$i]; } } close FILE; } print "@coords\n";` [download] mawe	[reply] [d/l]
Re^4: Bit of maths between two files by Anonymous Monk on Aug 05, 2004 at 16:22 UTC
thanks for that, in addition how could i adjust this so that it sumsthe first x in file1 with first x in file2?	[reply]
Re^3: Bit of maths between two files by Anonymous Monk on Aug 05, 2004 at 15:55 UTC
have tried the following but no success! `$file = shift@ARGV; $file2=shift@ARGV; open (FILE, "<$file"); while (<FILE>) { @array = ( ); chomp; ( $x, $y, $z) = split (/\s+/, $_); push @array, $x; $size = @array; } open (FILE2, "<$file2"); while (<FILE2>) { ($x1, $y1, $z1) = split (/\s+/, $_); for ($i=0; $i<$size;$i++) { $sum = $x1+$array[$i]; print $sum; } #print $sum; }` [download]	[reply] [d/l]


more useful options
	PerlMonks