Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
} else {
    print "Arrays are different\n";
}
  2. or download this
    Use of uninitialized value $caller in string eq at /usr/lib/perl5/site
+_perl/5.8/Array/Compare.pm line 328.
Arrays are the same
Use of uninitialized value $caller in string eq at /usr/lib/perl5/site
+_perl/5.8/Array/Compare.pm line 328.
Arrays are the same
  3. or download this
    my ($pkg, $caller) = (caller(1))[0, 3];