The Perl Archive :: Zip modul kan användas för att skapa en zip -arkiv inifrån ett Perl-skript . Zip-arkiv som används för att komprimera och lagra flera filer i en enda fil . Denna modul kan också användas för att extrahera , eller läsa , en befintlig Zip-fil . När ett zip-arkiv skapas , kan filer läggas till, tas bort , bytas eller ordnas inom det . Denna modul använder Unix filformat , vilket innebär att kataloger är åtskilda av ett snedstreck ( /) , oberoende av operativsystemets namngivning . Instruktioner
1
Öppna ett terminalfönster i Linux eller kommandoprompten i Windows
2
Skriv följande kommando för att installera Perl Zip modulen : .
perl - MCPAN - e ' install Archive :: Zip ' Addera 3
Öppna ett tomt textdokument i en textredigerare .
4
Type " ! # /bin /perl " utan citationstecken för att börja din perl script
5
Skriv följande för att importera Zip modulen : .
använda Arkiv :: Zip ;
6
Skriv följande för att starta en ny instans av Zip objektet :
$ object = Arkiv :: Zip - > ny ( ) ;
7
Type följande rad för att skapa arrayen som innehåller namnen på filer för att lagra :
@ files = ( ' fileA.txt ' , ' fileB.txt ' , ' fileC.txt ' ) katalog
Detta använder filer fileA.txt , fileB.txt och fileC.txt .
8
Type raden " foreach $ file ( @ filer ) { $ object - > addFile ( $ file ) . ; } " utan citationstecken för att lägga till filer till arkivet
9
Skriv följande rader för att skapa arkivet heter test.zip :
if ( $ obj - > writeToFileNamed ( ' test.zip ' ) ! = AZ_OK ) { print " arkiv inte skapats ! " } else {print " Grattis arkivet har skapats ! " }
10
Spara filen med . pl filändelsen .
11
Testa skriptet genom att skriva " perl - w script.pl " utan citationstecken i kommandotolken .
