De Perl Archive :: Zip module kan worden gebruikt om een Zip-archief maken vanuit een Perl-script . Zip- archieven worden gebruikt voor het comprimeren en opslaan van meerdere bestanden in een enkel bestand . Deze module kan eveneens worden gebruikt voor het extraheren of lezen , bestaande Zip-bestand . Zodra een Zip-archief wordt aangemaakt , kunnen bestanden worden toegevoegd , verwijderd , vervangen of herschikt binnen het. Deze module maakt gebruik van het Unix- bestandsformaat , wat betekent directories worden gescheiden door een slash ( /) , ongeacht de naamgeving van het besturingssysteem . Instructies
1 Open een terminal venster in Linux of de command prompt in Windows
type 2 de volgende opdracht om de Perl Zip module te installeren : .
perl - MCPAN - e ' install Archive :: Zip'
3 Open een leeg tekstdocument in uw favoriete tekstverwerker .
Type 4 " ! # /bin /perl " zonder aanhalingstekens om te beginnen met uw Perl-script
5 Typ het volgende om de Zip module importeren : . gebruik Archive
:: Zip ;
< br type> 6 de volgende opties om een nieuwe instantie van de postcode object starten : $ object
= Archive :: Zip - > new ( ) ;
Type 7
@ files = ( ' fileA.txt ' , ' fileB.txt ' , ' fileC.txt ' ) op Deze maakt gebruik van de bestanden fileA.txt , fileB.txt en fileC.txt .
8 Typ de lijn " foreach $ file ( @ bestanden ) { $ object - > addFile ( $ file ) . ;} " zonder aanhalingstekens om de bestanden toe te voegen aan het archief
type 9 de volgende regels toe aan het archief aan te maken genaamd test.zip :
if ( $ obj - > writeToFileNamed ( ' test.zip ' ) ! = AZ_OK ) { print " Archive niet succesvol aangemaakt ! " } else {print " Gefeliciteerd het archief is gemaakt ! " }
10 Bewaar het bestand met de extensie. pl extensie .
Test 11 van het script door te typen " perl - w script.pl " zonder aanhalingstekens bij de opdrachtprompt .
< br >
|
