Slik pakker du ut zip-filer med Perl

En av kjerne Perl-moduler som følger med hver installasjon av skriptspråk er det Arkiv modulen, som inneholder en rekke verktøy for å arbeide med ZIP-filer og andre typer arkiver. Foruten den allestedsnærværende ZIP-format, Perl Archive biblioteket støtter også TGZ, TAR, GZ, TAR, og andre.

Bruksanvisning

1 Lag en ny tekstfil. Enhver ren tekst editor vil gjøre, forutsatt at den skriver vanlige tekstfiler og ikke spesialisert tekstbehandlingsdokumenter. Så for eksempel, er Windows Notepad akseptabelt, men Microsoft Word er det ikke. Gi navn til filen "extractor.pl."

2 Lim inn følgende som den første linjen i programmet. Det vil importere Arkivet :: Extract verktøyet inn i PERL programmet slik at du kan bruke det:

bruke Arkiv :: Extract;

3 Lim inn følgende for å laste ned ZIP-filen inn i avtrekks:

min $ vifte = Arkiv :: utvinnes> ny (arkiv => 'file.zip');

4 Lim inn følgende for å pakke ut filene til gjeldende arbeidskatalog (den skriptet kjører innenfor):

$ Extractor.extract;

Alternativt, hvis du ønsker å pakke ut filene i en katalog av ditt valg, lim inn følgende i stedet:

$ Extractor.extract (til => '/ extractionDirectory /');

Til slutt, hvis du ikke ønsker å pakke ut filene i arkivet til en katalog, men ønsker å lese dem direkte i PERL program, kan du lime inn følgende kode i stedet for å generere en rekke filer som finnes i:

mine $ files = $ extractor.files;