The Perl Archive :: Zip modul kan bruges til at skabe en zip-arkiv fra et Perl script. Zip arkiver bruges til at komprimere og gemme flere filer i en enkelt fil . Dette modul kan også bruges til at udtrække , eller læse et eksisterende Zip-fil . Når en zip-arkiv er oprettet, kan filerne blive tilføjet , fjernet udskiftes eller omplaceres inden for det. Dette modul bruger Unix filformat , hvilket betyder biblioteker er adskilt af en skråstreg (/), uanset operativsystemets navnekonvention . Instruktioner
1

Åbn en terminal vindue i Linux eller kommandoprompten i Windows
2

Skriv følgende kommando for at installere Perl Zip -modulet: .
< P > perl - MCPAN - e ' install Archive :: Zip '
3

Åbn et tomt tekstdokument i din foretrukne teksteditor.
4

Type " ! # /bin /perl "uden citationstegn for at begynde din Perl script
5

Skriv følgende for at importere Zip -modulet: .

brug Archive :: Zip ;
< br > 6

Skriv følgende for at starte en ny instans af Zip objektet : Hej

$ objekt = Archive :: Zip -> nyt ();
7

Type følgende linje for at skabe array , der holder navnene på de filer til at gemme : Hej

@ filer = (' fileA.txt ', ' fileB.txt ', ' fileC.txt ' )
< p > Dette bruger filerne fileA.txt , fileB.txt og fileC.txt .
8

Type linjen " foreach $ file ( @ filer ) { $ objekt- > addFile ( $ file ) . ;} "uden citationstegn at tilføje filerne til arkivet
9

skrive følgende linjer til at skabe arkivet kaldes test.zip : Hej

if ($ obj -> writeToFileNamed ( test.zip ") ! = AZ_OK ) { print" Archive ikke oprettet korrekt! "} else { print" Tillykke arkivet er blevet oprettet ! "}
10

Gem filen med . pl filtypen .
11

Test scriptet ved at skrive " perl -w script.pl " uden citationstegn ved kommandoprompten.
< br >