Een van de belangrijkste PERL modules die wordt geleverd bij elke installatie van de scripting taal is het archief module , waarin een aantal hulpmiddelen voor het werken met zip-bestanden en andere soorten archieven omvat . Naast de alomtegenwoordige ZIP-indeling , de Perl Archive bibliotheek ondersteunt ook TGZ , TAR , GZ , TAR , en anderen . Instructies
1 Maak een nieuw tekstbestand . Elke platte tekst editor zal doen , op voorwaarde dat het schrijft gewone tekstbestanden en niet gespecialiseerde tekstverwerkingsdocumenten . Dus bijvoorbeeld Windows Notepad is aanvaardbaar , maar Microsoft Word is niet . Noem het bestand " extractor.pl . " Kopen van 2 Plak volgende als de eerste regel van uw programma . Het zal de Behaal :: Extract gereedschap importeren in de PERL programma, zodat u het kunt gebruiken : gebruik Archive
:: Extract ;
3 Plak volgende aan het laden ZIP -bestand in de extractor :
mijn $ afzuigkap = archief :: Extract - > new ( archive = > ' file.zip ' ) ;
Plak 4 het volgende aan pak de bestanden naar de huidige werkdirectory ( de ene het script wordt uitgevoerd binnen ) :
$ extractor.extract ;
alternatief, als u wenst om de bestanden uit te pakken naar een map van uw keuze , plak de volgende plaats :
$ extractor.extract ( tot = > ' /extractionDirectory /' ) ;
Tenslotte, als je niet wilt de bestanden uit te pakken in het archief naar een directory , maar wil ze direct lezen in uw Perl -programma , kunt u de volgende code in plaats plakken om een array van bestanden daarin genereren :
mijn $ files = $ extractor.files ;
< br >
|
