Help for this page

Select Code to Download


  1. or download this
    my $base_dir = "c:/data/";
my $new_dir  = "d:/new/";
...
|| die "Could not open data directory\n";
my ($top_file) = reverse sort readdir(DIR);
closedir (DIR);
  2. or download this
    my ($top_file) = reverse sort { ($a=~/\$(\d+)$/)<=>($b=~/\$(\d+)$/) } readdir(DIR);
  3. or download this
    use File::Copy;

move($base_dir.$top_file, $new_dir.$top_file);