Hi I am using the following code
#! usr/bin/perl
use Archive::Zip;
# Getting Details
print "Enter the Folder Name \n";
$rn = <>;
print "The details are as follows: \n";
print "Release Name is *** $rn *** \n";
print "Business Unit is *** ABC *** \n";
print "Environment is *** ABC *** \n";
# Taking Backup
my $zip_file = 'file.zip';
my $zip = Archive::Zip-> new ();
$zip ->addTree( 'c:/zip');
$zip ->writeToFileNamed($zip_file);
if (-e $zip_file) {
print "Archive created successfully!";
} else{
print "Error in archive creation!";
}
here i am taking the input from the user and storing it in a variable $rn now i want to make the zip file with the name stored in the variable $rn. |