Een van de core PERL modules die wordt geleverd met elke installatie van de scripttaal is de archief-module, die een aantal hulpmiddelen bevat voor het werken met ZIP-bestanden en andere soorten archieven. Naast het alomtegenwoordige ZIP-formaat ondersteunt de Perl archief-bibliotheek ook TGZ, TAR, GZ, TAR en anderen.
Maak een nieuw tekstbestand. Elke teksteditor zal doen, mits het schrijft gewone tekstbestanden en niet gespecialiseerde word processing documenten. Dus bijvoorbeeld, Windows Kladblok is aanvaardbaar, maar Microsoft Word is niet. Naam van het bestand "extractor.pl."
Plak het volgende als de eerste regel van uw programma. Het zal de Achive::Extract tool in het PERL programma importeren zodat u het kunt gebruiken:
gebruik van Archive::Extract;
Plak het volgende om de ZIP-bestand in de extractor laadt:
mijn $extractor = Archive::Extract-> nieuwe (Archief => 'file.zip');
Plak de volgende handelingen uit om de bestanden naar de huidige werkmap (de een het script wordt uitgevoerd binnen):
$extractor.extract;
Als alternatief, als u uitpakken naar een map van uw keuze wilt, stijfsel naar de volgend in plaats daarvan:
$extractor.extract (naar => '/ extractionDirectory /');
Tot slot, als u niet willen uitpakken van de bestanden in het archief naar een map, maar wilt lezen ze rechtstreeks in uw PERL programma, u kunt plak de volgende code in plaats daarvan voor het genereren van een array van bestanden in:
mijn $files = $extractor.files;