Help for this page

Select Code to Download


  1. or download this
        my @files = grep(/\w+/,readdir(DIR));
    close (DIR);

    foreach  my $subdir (@files){
        if(-d $dir.'/'.$subdir){
  2. or download this
        my @dirs = grep { /\w/ and -d "$dir/$_" } readdir(DIR);
    closedir (DIR);

    foreach  my $subdir (@dirs){