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 / ch4 / splice < prev    next >
Encoding:
Text File  |  1992-10-18  |  284 b   |  11 lines

  1. sub aeq {       # compare two array values
  2.     local(@a) = splice(@_, 0, shift);
  3.     local(@b) = splice(@_, 0, shift);
  4.     return 0 unless @a == @b;       # same len?
  5.     while (@a) {
  6.         return 0 if pop(@a) ne pop(@b);
  7.     }
  8.     return 1;
  9. }
  10. if (&aeq($len, @foo[1..$len], scalar(@bar), @bar)) { ... }
  11.