Help for this page

Select Code to Download


  1. or download this
    # Removing directory references '.' and '..' from the listing
my $rmdir = shift (@file_list);
my $rmdir2 = shift (@file_list);
  2. or download this
    use File::Spec::Functions qw/no_upwards/;
...
my @file_list = no_upwards readdir($dirhandle);
  3. or download this
    use Path::Class qw/dir file/;
my @file_list = dir($dirname)->children;