Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
fullpath = "C:\directory\file name2.nfo"
fullpath = "C:/directory/file name3.nfo"
fullpath = "C:\directory/file   name4.nfo"
  2. or download this
    my @files = $files;
opendir(OUTPUT, $files);
  @files = grep {$_ ne '.' and $_ ne '..'} readdir(OUTPUT);
closedir(OUTPUT);
  3. or download this
    opendir(OUTPUT, $files) or die "unable to opendir $!";
my @files = grep {-f $files/$_} readdir(OUTPUT);
closedir(OUTPUT);