Help for this page

Select Code to Download


  1. or download this
    opendir(DIR, $directory) || die print "Couldn't open directory";
my @unscont = sort grep !/^\.\.?$/ && !/\.gif$/, readdir(DIR);
closedir(DIR);
...
for my $file (@files) {
    print qq[  <a style="{font-size: 13px; color: #000000;"} href="./$
+this?func=read&file=$file&dire=$dire">$file</a><br>\n];
}
  2. or download this
    (/\./ ? push @files, $_ : push @dirs, $_) for @unscont;
  3. or download this
    my @dirs = grep -d "$directory/$_", @unscont;
my @files = grep ! -d "$directory/$_", @unscont;