#!/usr/bin/perl #A short script to add the elements of two arrays together. #I highly doubt it is the best way to do this. #I don't know if a perl command exists for this. #This is in the Public Domain #Arrays are declared my $toolong = "seperated by a space "; print "Enter the value of the first array $toolong"; $tdin = <STDIN>; print "Enter the value of the second array $toolong"; $din = <STDIN>; $tdin = chomp($tdin); $din = chomp($din); #Creates arrays and calculates their length. @rray1 = split(/ /, $tdin); @rray2 = split(/ /, $din); $l1 = @rray1; $l2 = @rray2; unless($l1 == $l2) { die(print "ERROR: Arrays are different lengths"); #Error check } #Does the adding for(0..$l1){ push($sums) = $rray1[$_] + $rray2[$_]; } for(0..$l1){ print $sums[$_];}
In reply to Help with code for adding two arrays. by fatalserpent
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |