The Perl Archive :: Zip -modulen kan brukes til å lage en zip- arkiv innenfra et Perl-skript . Zip arkiver brukes til å komprimere og lagre flere filer i en enkelt fil . Denne modulen kan også brukes for å trekke ut eller på lest, en eksisterende ZIP-fil . Når en Zip-arkiv er opprettet, kan filene legges til, fjernes , erstattes eller omorganisert i den. Denne modulen bruker Unix filformat , noe som betyr at katalogene er atskilt med en skråstrek ( /) , uavhengig av operativsystemets navnekonvensjonen. Instruksjoner
en

Åpne et terminal vindu i Linux eller ledetekst i Windows
2

Skriv inn følgende kommando for å installere Perl Zip modul: .
< P > perl - MCPAN - e ' install Arkiv :: Zip'
3

Åpne et tomt tekstdokument i din foretrukne teksteditor.
4

Type " ! # /bin /perl "uten anførselstegn for å starte Perl script
5

Skriv inn følgende for å importere Zip modul: .

bruk Arkiv :: Zip ;

6

Skriv inn følgende for å starte en ny forekomst av Zip objekt : en

$ objekt = Arkiv :: Zip - > new ();
7

Type følgende for å opprette den matrise som inneholder navnene på filene til butikk:

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

Type linjen " foreach $ file ( @ filer ) {$ objekt - > AddFile ( $ file ) . ;} "uten anførselstegn for å legge filene til arkivet
9

Skriv inn følgende linjer for å skape arkivet heter test.zIP : en

if ( $ obj - > writeToFileNamed (' test.zIP ' ) ! = AZ_OK ) { print " Arkiv ikke opprettet ! "} else { print " Gratulerer arkivet er opprettet! "}
10

Lagre filen med . pl filtypen .
11

Test skriptet ved å skrive " perl -w script.pl " uten anførselstegn ved ledeteksten .