descompactar .zip - algum script??????

renangomees
(usa openSUSE)

Enviado em 20/03/2013 - 08:42h

preciso de um script que SÓ descompacta tal arquivo .ZIP (somente .zip) em PERL
preciso desse pequeno minusculo script para colocar no CRON.... sei que uma linha de comando resolve mais preciso de um script que faça isso... alguem pode me ajudar???????????????????????????

smarcell
(usa Slackware)

Enviado em 20/03/2013 - 13:23h

Olha esse exemplo bem básico:

#!/usr/bin/perl

use strict;

use warnings;

use IO::Uncompress::Unzip qw/unzip $UnzipError/;



my ($arquivo_zip, $output);



foreach $arquivo_zip (@ARGV) {

	$output = $arquivo_zip;

	$output =~ s/.zip//;

	unzip $arquivo_zip => $output || die($UnzipError);

} 

Uso: nome_do_script arquivo1.zip arquivo2.zip arquivoN.zip

renangomees
(usa openSUSE)

Enviado em 20/03/2013 - 13:31h

Beleza, funcionou! mais agora eu quero salvar em outro diretorio em minha maquina, como faço???

smarcell
(usa Slackware)

Enviado em 21/03/2013 - 12:20h

Veja assim:

#!/usr/bin/perl -s

use IO::Uncompress::Unzip qw/unzip $UnzipError/;



die('Informe o diretorio de destino') unless($dst);



foreach $arquivo_zip (@ARGV) {

   $output = $arquivo_zip;

   $output =~ s/.zip//;

   unzip $arquivo_zip => $dst . $output || die($UnzipError);

} 

Uso: nome_do_script -dst='/destino/dos/arquivos/' arquivo1.zip arquivo2.zip arquivoN.zip