Help for this page

Select Code to Download


  1. or download this
    s/\Q$topdir/$recreate_to/
  2. or download this
        opendir (local *DIR,$dir)
    || die "unable top open dir $dir $!";
    my @files = grep(/\w+/,readdir(DIR));
    closedir (DIR);
  3. or download this
        opendir (my $dh,$dir)
    || die "unable top open dir $dir $!";
    my @files = grep(/\w+/,readdir($dh));
    closedir ($dh);