Help for this page

Select Code to Download


  1. or download this
    my @unsfiles = readdir(DIR);
  2. or download this
    my $filename = __FILE__;
my @unsfiles = grep(!/^(\.|$filename)/, readdir(DIR));
  3. or download this
    my @files = grep(/\./, @unsfiles);
my @dirs = grep(!/\./, @unsfiles);