Help for this page

Select Code to Download

Select or download this

  opendir(DIR, "$dirstr") || die ("[error] proc [...]");
  rewinddir (DIR);
...
  print "$index\n";
  print "$piclist[$index] equals $pic\n";

Select or download this

  my ($c);
  foreach $c (0 .. $#piclist) {
    print "$c - $piclist[$c] equals $pic\n" if ($piclist[$c] eq $pic);
  }