use File::Copy;
# Function Name : renameFile
# Input : Name of the Source file and destination file name
# Output : None
# Description : Renames source file to destination file name
# See my other blogs for FileExists function
sub renameFile()
{
my ($source, $destination) = @_;
FileExists($source);
rename($source,$destination);
}
No comments:
Post a Comment