home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch3 / arrayadd < prev    next >
Encoding:
Text File  |  1992-10-18  |  257 b   |  16 lines
  1. #!/usr/bin/perl
  2.  
  3. sub arrayadd {
  4.     local(*a, *b) = @_;
  5.     local($max) = $#a > $#b ? $#a : $#b;
  6.     local(@sum);
  7.     for (local($i) = 0; $i <= $max; $i++) {
  8.         $sum[$i] = $a[$i] + $b[$i];
  9.     }
  10.     @sum;
  11. }
  12.  
  13. @foo = (1,2,3);
  14. @bar = (10,20,30);
  15. @totals = &arrayadd(*foo, *bar);
  16.