24 replies to this topic

[jgcl]

Fala pessoal, beleza?

Alguém ai conheçe algum módulo que zipa uma pasta inteira ou somente alguns arquivos no servidor?

Um abraço,
João Gabriel

[Hospedar-se .Com]

TAR:
tar -cvzf nome.tar.gz pastas arquivos etc


ZIP:
zip -r nome.zip arquivos pastas etc


O tar compacta melhor e é mais rápido

[jgcl]

1. Ae Whitesnake, tem como você me passar um código prátido do funcionamento desses códigos?


2. AÊ Mid, se eu usar esse comando o servidor precisa ter qual módulo?
Ou precisa só ter o win zip instalado?
E como eu "deszipo" o arquivo no servidor?

Valeu pelas explicações pessoal!
T+
Gabriel

Edição feita por: jgcl, 18/10/2004, 15:27.

[jgcl]

TAR:
tar -cvzf nome.tar.gz pastas arquivos etc


ZIP:
zip -r nome.zip arquivos pastas etc


O tar compacta melhor e é mais rápido

Ai, usei os códigos que você passou e não funcionaram....

Exemplo de como eu usei:
system("zip -r teste.zip forum");

Sabe o motivo pelo qual o script não zipou a pasta desejada?

Flw...

[stvkoch]

Blz a todos....

Postei isso no Monks, e por isso acho que pode ser uma contribuição util aqui no wmonline.


Blz... ate aqui nos encontramos...
Bom este modulo eh bem interessante...
Fiz um pequeno script para demostra-lo, assim fica mais facil visualizar
como ele funciona....

Com este modulo vc pode criar diretorios somente no arq. ZIP e abri-los e colocar arquivos dentro, ou seja organizar o arquivo ZIP da maneira que vc quizer, diferente da organização da estrutura de arquivos que vc quer compactar.

Este script so comprime dois arquivos: teste.cgi e google.pl que estão no
diretorio onde ta gravado o script zipando.pl
#---------------------------------------------------------------
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new();

$zip->addFile( 'teste.cgi' );
$zip->addFile( 'google.pl');
die 'write error' unless $zip->writeToFileNamed( 'MeuArquivoZipado.zip' )
== AZ_OK;
#----------------------------------------------------------------

O modulo eh bem facil de usar e em pouco tempo eh possivel fazer bons
scripts de backup com ele.


Espero ter contribuido!
Um abraço a todos. Steven Koch



#--- outra mensagem-----------------

Segue mais uns exemplos enquanto não vou embora...heheh

#Adiciona o conteudo do diretorio
my $member = $zip->addTree("C:\\eday");

#Adiciona ou melhor cria um arquivo de txt com o texto abaixo
$member = $zip->addString( 'Ola Mundo!', 'textooo.txt' );

$member->desiredCompressionMethod( COMPRESSION_DEFLATED );
$member = $zip->addFile( 'teste.cgi', 'google.pl' );
die 'write error' unless $zip->writeToFileNamed( 'Meuarquivo.zip' ) ==
AZ_OK;

Ate mais....

[Hospedar-se .Com]

isso q eu passei é pra UNIX

[jgcl]

Blz a todos....

Postei isso no Monks, e por isso acho que pode ser uma contribuição util aqui no wmonline.


Blz... ate aqui nos encontramos...
Bom este modulo eh bem interessante...
Fiz um pequeno script para demostra-lo, assim fica mais facil visualizar
como ele funciona....

Com este modulo vc pode criar diretorios somente no arq. ZIP e abri-los e colocar arquivos dentro, ou seja organizar o arquivo ZIP da maneira que vc quizer, diferente da organização da estrutura de arquivos que vc quer compactar.

Este script so comprime dois arquivos: teste.cgi e google.pl que estão no
diretorio onde ta gravado o script zipando.pl
#---------------------------------------------------------------
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new();

$zip->addFile( 'teste.cgi' );
$zip->addFile( 'google.pl');
die 'write error' unless $zip->writeToFileNamed( 'MeuArquivoZipado.zip' )
== AZ_OK;
#----------------------------------------------------------------

O modulo eh bem facil de usar e em pouco tempo eh possivel fazer bons
scripts de backup com ele.


Espero ter contribuido!
Um abraço a todos. Steven Koch



#--- outra mensagem-----------------

Segue mais uns exemplos enquanto não vou embora...heheh

#Adiciona o conteudo do diretorio
my $member = $zip->addTree("C:\\eday");

#Adiciona ou melhor cria um arquivo de txt com o texto abaixo
$member = $zip->addString( 'Ola Mundo!', 'textooo.txt' );

$member->desiredCompressionMethod( COMPRESSION_DEFLATED );
$member = $zip->addFile( 'teste.cgi', 'google.pl' );
die 'write error' unless $zip->writeToFileNamed( 'Meuarquivo.zip' ) ==
AZ_OK;

Ate mais....

Ai, não tem como zipar uma pasta inteira não?

E pra deszipar os arquivos, como eu faço?

Flw...

[jgcl]

Opa!!! Vacilo meu!! No código que o "stvkoch" passou já mostra como zipar a pasta inteira...

Só não vi a parte pra "deszipar".

Flw..

[Gabriel]

eu uso outro code
tenho em casa
vo pegar e depois posto aqui o code
funfa em serevr linux e deve funfa em windows tbm
flw's

[jgcl]

Opa! Manda ai!!

Ai stvkoch, tens algum código ai pra "deszipar" o arquivo zip?

Um detalhe sobre esse módulo/código: ele só ira criar o arquivo caso o seu diretório tenha chmod 777 e caso ainda assim ele não crie o arquivo, crie você mesmo o arquivo em branco no notepad e salve-o com o mesmo nome do arquivo que o script vai criar. É batata!!

Flw...

[jgcl]

O Archive::Zip não descompacta não né?

Flw..