Help for this page

Select Code to Download

Select or download this

foreach (@data) {
  next if $_ eq "." || $_ eq "..";
  push @dir, $_ if -d "./desktop/$_";
}

Select or download this

@dir = grep { $_ ne "." && $_ ne ".." && -d "./desktop/$_" }
    readdir(TEXTFILES);