http://www.perlmonks.org?node_id=623525

raghubilhana has asked for the wisdom of the Perl Monks concerning the following question:

Hi

I am having a problem untarring a tar file. I am very new to perl. Can you please help me . I am attaching the code here.

#!/usr/bin/perl use warnings; use FindBin; $distrib_dir = $FindBin::Bin; print "$distrib_dir"; sub RemoveWhiteSpaces; my ( ${birt_dir}, ${distrib_dir}, ${hostname} ); $birt_dir = "/usr/local/web/acc/WAS/install/61x/lib/app/birt"; $tar_dir="${distrib_dir}/../jclass/cfi_mss_srvcs/was6x-config"; print "$tar_dir"; $hostname=`uname -n`; $hostname = RemoveWhiteSpaces( ${hostname} ); if (! -d ${birt_dir} ) { die "The target directory /usr/local/web/acc/WAS/install/61x/li +b/app/birt does not exist, please create the directory as webspher an +d try again"; } if ( (${hostname} eq "agaisg66") || (${hostname} eq "svag0035") || (${ +hostname} eq "svag1103") ) { chdir "${birt_dir}"; print `pwd`; `cp -R "${distrib_dir}"/../jclass/cfi_mss_srvcs/BIRT/* .`; `tar xvf ${distrib_dir}/../jclass/cfi_mss_srvcs/was6x-config/lib- +app-CFI_Reporting.tar`; } else { print "You are trying to deploy the code in the wrong box"; ###################################################
I cant run this script and is giving the following messages:
Scalar value @_[0] better written as $_[0] at cfi_mss_srvcs_deploy.pl line 69.
Use of uninitialized value in concatenation (.) or string at cfi_mss_srvcs_deploy.pl line 39.

Can you please help me to untar the files. Your help will be really apprecited.