Moving files based on file name

**Geraldo** · Jul 19 '05, 04:38 AM

Re: Moving files based on file name

Here is one way to do it.
Tested only on Active State perl v5.8.0 on Windows XP.
Will not work if the file order from a glob is not alphabetic.
Geraldo
---

#!/perl/bin/perl

use strict;
use Carp;

# path to zip files
my $zipDir = "C:/tmp/zips";
die ("$!") unless -d $zipDir;
# path to archive
my $archDir = "C:/tmp/arch";
die ("$!") unless -d $archDir;
# get the directory listing
#default order is by file name on NTFS
#may not be the case on other platforms
my @zips = glob $zipDir.'/*';
die ("$!") unless @zips;
# reverse it
#puts latest file name for each type first
@zips = reverse @zips;
my %types;
for ( @zips )
{
my $fn = $_;
# strip everything up to the filename
$fn =~ s/.*\///;
# put the file type into $1
$fn =~ s/(.*?)\d//;
if( $types{$1} )
{
# for loop has already hit the latest of this type
#archive the rest
$fn = $_;
$fn =~ s/.*\///;
rename $zipDir.'/'.$fn, $archDir.'/'.$fn || die;
}
# for loop has not hit this type yet
# set the type key to 1
$types{$1} = 1;
}

Moving files based on file name

Moving files based on file name

Comment