[tutorial] modulo Archive::Zip

Postagem de conteúdo sobre programação perl
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 723
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[tutorial] modulo Archive::Zip

Post by Kodo no Kami » Mon Sep 12, 2016 8:17 pm

entao galera como ultimamente to agarradão quase sem muito tempo para escrever tutoriais vou tentar escrever alguns tutoriais pequenos que envolve programação ou apresentar algumas ferramentas em alto, nesse caso esse tutorial vamos aprender a compactar e descompactar zip em perl com o modulo Archive::Zip

Code: Select all

#!/usr/bin/perl

use Archive::Zip;
agora a gente instancia o objeto

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
vamos começar adicionando um arquivo para isso usamos o metodo addFile seguido do arquivo

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->addFile("kami.txt");
agora usamos o metodo writeToFileNamed seguido do nome do arquivo de saida para gerar o zip

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->addFile("kami.txt");
$kodo->writeToFileNamed("arquivos.zip");
Image

podemos adicionar varios arquivos bastando usar addFile para cada arquivo

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->addFile("kami.txt");
$kodo->addFile("yami.bmp");
$kodo->addFile("lain.fla");
$kodo->writeToFileNamed("arquivos.zip");
Image

a gente pode compactar um diretorio completo com o metodo addTree

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->addTree("eof collection");
$kodo->writeToFileNamed("ebooks.zip");
Image

para a leitura usamos o metodo read para ler o zip

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->read("ebooks.zip");
depois usamos o metodo extractMember seguido do nome do arquivo que queremos extrair do zip

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->read("ebooks.zip");
$kodo->extractMember("EOFbookPerl.pdf");
como o memberNames retornamos os nomes dentro do zip

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->read("ebooks.zip");
my @nomes = $kodo->memberNames;

foreach my $no(@nomes){
   print $no . "\n"; 
}
Image

podemos extrair tudo com o metodo extractTree

Code: Select all

#!/usr/bin/perl

use Archive::Zip;

my $kodo = new Archive::Zip;
$kodo->read("ebooks.zip");
$kodo->extractTree();
Image

bom galera existem outros metodos alem dos citados mesmo esses sendo o basico ja seria possivel criar varias coisas com ele ^^

by kodo no kami
Image

que desagradavel ~ mirai kuriyama

User avatar
51M0N
Admin
Admin
Posts: 872
Joined: Fri Jan 02, 2015 2:06 pm

Re: [tutorial] modulo Archive::Zip

Post by 51M0N » Mon Sep 12, 2016 10:41 pm

muito bom kodo esse modulo do perl de compactar e descompactar é bom pra mim q estou estudando aos poucos essa linguagem.
Image
"Você, eu, nem ninguém vai bater tão duro como a vida. Mas não se trata de bater duro. Se trata de quanto você aguenta apanhar e seguir em frente (...). É assim que se consegue vencer." by Rocky Balboa

Post Reply

Return to “Perl”