One way to unzip with Perl is this method:
use warnings;
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zipfile = 'zipped.zip';
my $zip = Archive::Zip->new();
die "Error reading $zipfile:$!" unless $zip->read($zipfile) == AZ_OK;
$zip->extractMember($zipfile) for $zip->members;
__END__
On Oct 21, 2018, at 10:56 AM, Asad <asad.hasan2...@gmail.com> wrote:
Hi All ,
I need to accomplish the following task . i was trying in
python using subprocess and adive how to proceed will be helpful
sftp u...@xyx.com 1212
pasword:xxx
cd /patch1
get patch1.zip
unzip patch1.zip
sqlplus / as sysdba ===> connect to oracle database
sql>startup
Thanks,
--
Asad Hasan
+91 9582111698
Jim Gibson
