copy and rename files?

Luke,

You need to use two modules (coming with standard Perl installation) to do this.


use File::Copy;
use File::Basename;

my $d1 = 'c:\infilesA';
my $d2 = 'c:\bkup_dir';
opendir DIR "$d1" or die "Could not open dir: $!\n";
my @fn = grep /\.dat/, readdir DIR;
closedir DIR;

for my $i (0..$#fn) {
    copy "$d1/$fn[$i]", "$d2/$fn[$i].bkp";
}

my $d3 = 'c:\infilesB";
opendir DIR, "$d3" or die "Could not open dir - $d3: $!\n";
@fn = grep /\.dat/, readdir DIR;
closedir DIR;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                             localtime(time);
my $yr = 1999+$year;
my $mm = $mon + 1;
my $ct = "$yr$mm$mday.$hour$min";

for my $i (0..$#fn) {
    my ($name,$path,$suffix) = fileparse("$fn[$i]","\.dat");
    copy ("$d3/$fn[$i]", "$d2/$name$ct.dat");
}

Hope it works for you.

GT

#Here's a fully tested solution for you.
#Sorry for this to be this long but the main body is short, it's just that I use standard subroutines to do file listing and time formatting.
#Just copy the code, and execute the application.
#No Additional modules are required for this to run on XP.
################# VARIABLE DEFINITIONS ################
$InfilesA_Path = "c:/InfilesA/";
$InfilesB_Path = "c:/InfilesB/";
$BackupPath = "c:/bkup_dir/";
my(@ListA) = main::ListFiles($InfilesA_Path,1,"*.*");
print "\nListed in $InfilesA_Path : @ListA";
my(@ListB) = main::ListFiles($InfilesB_Path,1,"*.*");
print "\nListed in $InfilesB_Path : @ListB";
my($temp) = undef;
my(@tmp) = undef;
############### START OF MAIN BODY ####################
      foreach my $file (@ListA)
      {
            if (-f $file)
            {
            print "\nProcessing: $file";
            @tmp = split("/",$file);
            $temp = $tmp[$#tmp];
            $temp = $BackupPath . $temp . ".bkp";
            print "\nCopy $file to $temp";
            Win32::CopyFile($file,$temp,1);
            };
      };
my($CurrentDate) = main::lib_time_gettime(8);
my($CurrentTime) = main::lib_time_gettime(12);
      foreach my $file (@ListB)
      {
            if (-f $file)
            {
            print "\nCopy $file to $temp";
            @tmp = split("/",$file);
            $temp = $tmp[$#tmp];
            my($Subst) = "$CurrentDate" . "."."$CurrentTime" . ".dat";
            $temp =~ s!\.dat!$Subst!i;
            $temp = $BackupPath . $temp ;
            print "\nCopy $file to $temp";
            Win32::CopyFile($file,$temp,1);
            };
      };

exit;
############### END OF MAIN BODY ####################

################# SUBROUTINES ################################################
##############################################################################
sub main::ListFiles
{
my(@FILENAME) = undef;
my($dirname) = $_[0];
my($fullnameswitch) = $_[1];
my($pattern) = $_[2];
my($count) = 0;
my($file) = undef;
if($pattern) {$pattern =~ s/\*/\.\*/g; $pattern = "^"."$pattern"."\$"};
if ($dirname =~ m!/!)
{
      unless ($dirname =~ m!/$!)
      {
      $dirname = "$dirname"."/";
      };

} else {
            unless ($dirname =~ m!\$!)
            {
            $dirname = "$dirname"."\\";
            };
      };
opendir(DIR, $dirname) or warn "can't opendir $dirname: $!";
      while (defined($file = readdir(DIR)))
      {
      next if $file =~ /^\.\.?$/;
      next if (-d "$dirname$file");
            if (($file =~ /$pattern/g) && (-f "$dirname$file"))
            {
            # print "FILE: $file\n<br>";
                  if ($fullnameswitch)
                  {
                  $FILENAME[$count] = "$dirname"."$file";
                  $FILENAME[$count] =~ s/\\\\/\\/;
                  $FILENAME[$count] =~ s/\\/\//;
                  $count++;
                  } else {
                        $FILENAME[$count] = $file;
                        $count++;
                        };
            } else {
                  
                  };
      }
closedir(DIR);
return @FILENAME;
};
##############################################################################
# Time Manipulation Library
sub main::lib_time_gettime
{
my($TimeFormat) = $_[0];
my($Time) = $_[1];
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = undef;
my($month,$weekday,$ampm, $ampmhour) = undef;
unless ($Time)
{
$Time = time;
};
      ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Time);
      $mon++;
      $month = $main::ConfigEnv{Month}{$mon};
      $weekday = $main::ConfigEnv{Weekday}{$wday};
      ($sec < 10) ? $sec = "0"."$sec" : $sec = $sec;
      ($min < 10) ? $min = "0"."$min" : $min = $min;
      ($hour < 12) ? {$ampm = "AM"} : {$ampm = "PM"};
      ($hour < 12) ? {$ampmhour = "$hour"} : {$ampmhour = $hour - 12};
      ($hour < 10) ? $hour = "0"."$hour" : $hour = $hour;
      # ($hour < 1) ? $hour = "0"."$hour" : {};
      ($mday < 10) ? $mday = "0"."$mday" : $mday = $mday;
      ($mon < 10) ? $mon = "0"."$mon" : $mon = $mon;
      ($ampmhour < 10) ? $ampmhour = "0"."$ampmhour" : $ampmhour = $ampmhour;
      ($ampmhour < 1) ? $ampmhour = "0"."$ampmhour" : {};
      
my($ReturnTime) = undef;
$year = $year + 1900;
# 2003-Feb-12
($TimeFormat == 1) ? {$ReturnTime = "$year" . "-" . "$month" . "-". "$mday"} :
# 2003/Feb/12
($TimeFormat == 2) ? {$ReturnTime = "$year" . "/" . "$month" . "/". "$mday"} :
# 2003/02/12
($TimeFormat == 3) ? {$ReturnTime = "$year" . "/" . "$mon" . "/". "$mday"} :
# 12/02/2003
($TimeFormat == 4) ? {$ReturnTime = "$mday" . "/" . "$month" . "/". "$year"} :
# 02/12/2003
($TimeFormat == 5) ? {$ReturnTime = "$month" . "/" . "$mday" . "/". "$year"} :
# 02/12/2003 18:22
($TimeFormat == 6) ? {$ReturnTime = "$month" . "/" . "$mday" . "/". "$year" . " " . "$hour" . ":" . "$min"} :
# 02/12/2003 06:22PM
($TimeFormat == 7) ? {$ReturnTime = "$month" . "/" . "$mday" . "/". "$year" . " " . "$ampmhour" . ":" . "$min". "$ampm"} :
# 2002Feb12
($TimeFormat == 8) ? {$ReturnTime = "$year"  . "$month" . "$mday"} :
# 2003-02-12
($TimeFormat == 9) ? {$ReturnTime = "$year"  . "-" . "$mon" ."-". "$mday"} :
# 2003-02-12-01
($TimeFormat == 10) ? {$ReturnTime = "$year"  . "-" . "$mon" ."-". "$mday"."-"."$hour"} :
# 20030212010101
($TimeFormat == 11) ? {$ReturnTime = "$year"."$mon" ."$mday"."$hour"."$min"."$sec"} :
# 161211
($TimeFormat == 12) ? {$ReturnTime = "$hour"."$min"} :
{$ReturnTime = scalar localtime($Time)};
return $ReturnTime;
};

sstouk picked about the hardest possible way to format a date. :)

as if you didn't already have enough source code, here is some more. (I like using forward slashes instead of backslashes). Here is anohter related question that has some useful stuff as well: http:Q_20823491.html

#---settings---
$sourcepath = '//cdr01/sprintrw/TRAF/';
$localPath = 'C:/Prod/DexTraffic/';
print "sourcepath: $sourcepath\n";
print "localPath:  $localPath\n\n";

####################################################
#Part I: get remote files
####################################################
#---find files---
print "#############Part I: get remote files###########################################";
@inFiles = grep { -f} glob "$sourcepath*";#don't forget the star (the -f switch gets just files, not directories)
@fileNamesOnly = map{m!.*[/\\]([^/\\]*)$!} @inFiles;#get just the filename, not the path. (the maps is areally useful function for performing operations on each element of an array)

#---copy files locally to working directory, and move files on server to done folder---
use File::Copy;
foreach (@inFiles){
      unless(copy($_,"$localPath/working/")){die "ERROR copying file'$_', reason: $!\n"};#copy to local working directory.
}

I guess you can do everything in one line, Perl is flexible. The Idea is to be able to easily read and understand what is written for newbie to PERL because that's how the question was started.