Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^2: Renaming a Zip file with a user input variable

by mayank646 (Initiate)
on Aug 07, 2012 at 12:17 UTC ( #985957=note: print w/replies, xml ) Need Help??

in reply to Re: Renaming a Zip file with a user input variable
in thread Renaming a Zip file with a user input variable

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 = ''; 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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985957]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2016-12-03 11:52 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (55 votes). Check out past polls.