Unable to Rename a file in perl

[codemaster]

Hi,

I am a total novice to perl. I am moving files from one directory to another and trying to rename a file appending the timestamp. But for some reason, my code is not able to rename.

Attached is the code :

# directory structure for input and archive files
$inputDir = "\\interac\\Dat a\\imntran\\".$ ARGV[0];
$archDir = "\\interac\\Dat a\\imntran\\Arc hive\\".$ARGV[0];
$archSQLLogDir = $archDir."\\SQL log";

die "Can not open archive directory"
unless (opendir ARCDIR, $archDir);

mkdir($archSQLL ogDir, 0777)
unless (opendir ARCLOGDIR, $archSQLLogDir) ;

# moving the files from input directory to the archive directory
$mvString = "move ".$inputDir."\\ *.dat ".$archDir."\\" ;

# looping to
while ($fn = readdir ARCDIR)
{
if (substr($fn,0,1 ) ne "." and substr($fn,0,3) ne "SQL")
{
$fn =~ /.dat/ ? $fn =~ /:|MemberTranArc hive/ ? ($dummy = $fn) : &mvFile($archDi r,$fn) : ($dummy = $fn);
}
}

closedir ARCDIR;

# subroutine

sub mvFile
{
my $dir = $_[0];
my $file = $_[1];
my $infile = $file;
my $string = "";

$file =~ s/.dat//g;
if($infile =~ /dat/)
{
$string = "move ".$dir."\\".$in file." ".$dir."\\".$fi le."_".&UnixDat e("today","%d%b %H-%M").".dat";
}

Can anyone please figure out why the code is not doing what is intended to be done?

Thanks for your help.

[KevinADC]

are you trying to use a shell command "move"? You need to use the qx// operator or backtiks or probably system() since you're not returing any output from the shell, but not double-quotes.

You can also use the rename() function or the File::Copy module to move files with perl.

http://perldoc.perl.org/functions/rename.html
http://perldoc.perl.org/File/Copy.html