Ett av Perl -moduler som levereras med varje installation av skriptspråk är Arkiv -modulen , som innehåller ett antal verktyg för att arbeta med ZIP-filer och andra typer av arkiv . Förutom den allestädes närvarande ZIP -formatet , stöder Perl Archive biblioteket också TGZ , TAR, GZ , tjära och andra . Instruktioner
1
Skapa en ny textfil . Varje textredigerare kommer att göra, förutsatt att det skriver vanliga textfiler och inte specialiserade ordbehandling dokument . Så till exempel är Windows Anteckningar acceptabelt, men Microsoft Word är inte . Döp filen " extractor.pl . "
2
Klistra in följande som första raden i programmet . Det kommer att importera Uppnå :: Extract verktyget i perl-program så att du kan använda den :
använda Arkiv :: Extract ,
3
Klistra in följande för att ladda ZIP -filen till extractor :
min $ extractor = arkiv :: Extract - > ny ( archive = > ' file.zip ');
4
klistra in följande till extrahera filerna till aktuell katalog ( den ena skriptet körs inom ) :
$ extractor.extract ,
Alternativt , om du vill extrahera filerna till en katalog som du väljer , klistra in följande i stället :
$ extractor.extract ( till = > ' /extractionDirectory /' ) ;
Slutligen , om du inte vill extrahera filerna i arkivet till en katalog , men vill läsa dem direkt i ditt perl -program , kan du klistra in följande kod i stället för att generera en samling av de filer som finns inom :
mina $ filer = $ extractor.files ;
Addera
