En av de viktigste Perl-moduler som følger med hvert installasjon av skriptspråk er Arkiv modulen , som inkluderer en rekke verktøy for å arbeide med ZIP-filer og andre typer arkiver . Foruten den allestedsnærværende ZIP -format, støtter Perl Archive biblioteket også TGZ , TAR , GZ, tjære og andre. Instruksjoner
en
Lag en ny tekstfil . Enhver ren tekst editor vil do, det skriver vanlige tekstfiler og ikke spesialiserte tekstbehandling dokumenter. Så for eksempel , er Windows Notepad akseptabelt , men Microsoft Word er det ikke. Gi filen navnet " extractor.pl . "
2
Lim inn følgende som den første linjen i programmet . Det vil importere Oppnå :: Extract verktøyet inn i PERL programmet slik at du kan bruke det : en
bruk Arkiv :: Extract ;
3
Lim inn følgende for å laste ZIP -filen til kjøkkenvifte : en
min $ kjøkkenvifte = Arkiv :: Extract - > new ( archive = > ' file.zip ');
4
lim inn følgende til pakke ut filene til gjeldende arbeidskatalog (den skriptet kjører innenfor) : en
$ extractor.extract ;
Alternativt, hvis du ønsker å pakke ut filene til en katalog av ditt valg , lim inn følgende i stedet : en
$ extractor.extract ( til = > '/extractionDirectory /');
slutt, hvis du ikke ønsker å pakke ut filene i arkivet til en katalog, men ønsker å lese dem direkte i PERL programmet , kan du lime inn følgende kode i stedet for å generere en rekke av de filene som finnes : en
mine $ filer = $ extractor.files ;