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.#! 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!"; }
In reply to Re^2: Renaming a Zip file with a user input variable
by mayank646
in thread Renaming a Zip file with a user input variable
by mayank646
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |