Help for this page

Select Code to Download


  1. or download this
    sub get_directory{
    my @dirs = glob("C:\\Documents and Settings\\mydirectory\\Desktop\
+\KOMP\\*");
...
        }    
    }        
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
my @sub_dirs =  grep {!/^\./ && -d "$dir/$_"}readdir D;

print join("\n",@sub_dirs),"\n";
  3. or download this
    #
#example: 
...
                   grep {!/^\./ && -d "$dir/$_"}readdir D;
   return (@sub_dirs);
}