Help for this page

Select Code to Download


  1. or download this
    opendir D, "somedir" or die;
my $count = () = readdir D;
$count -= 2; # :-)
closedir D;
  2. or download this
    opendir D, "somedir" or die;
my $count = -2;
$count++ while readdir D;
closedir D;