Help for this page

Select Code to Download


  1. or download this
      opendir(DIR, "$dirstr") || die ("[error] proc [...]");
      rewinddir (DIR);
    ...
      print "$index\n";
      print "$piclist[$index] equals $pic\n";
    
  2. or download this
      my ($c);
      foreach $c (0 .. $#piclist) {
        print "$c - $piclist[$c] equals $pic\n" if ($piclist[$c] eq $pic);
      }