Sådan oprettes Zip-filer med Perl

October 25

Sådan oprettes Zip-filer med Perl


Den Perl Archive :: Zip modul kan bruges til at skabe en zip-arkiv fra inden for et Perl-script. Zip arkiver bruges til at komprimere og gemme flere filer i en enkelt fil. Dette modul kan også anvendes til at ekstrahere, eller læse et eksisterende Zip-fil. Når en zip-arkiv er oprettet, kan tilføjes filer, fjernes, erstattes eller omarrangeret i det. Dette modul bruger Unix-filformat, hvilket betyder biblioteker er adskilt af en skråstreg (/), uanset operativsystemets navngivningskonvention.

Instruktioner

1 Åbn et terminalvindue i Linux eller kommandoprompten i Windows.

2 Skriv følgende kommando for at installere Perl Zip-modulet:

perl -MCPAN -e 'installere Archive :: Zip'

3 Åbn et tomt tekstdokument i din foretrukne teksteditor.

4 Skriv "#! / Bin / perl" uden citationstegn for at begynde din Perl script.

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

bruge Archive :: Zip;

6 Skriv følgende for at starte en ny forekomst af Zip objekt:

$ Objekt = Arkiv :: zip-> ny ();

7 Skriv følgende linje for at oprette array, der holder navnene på de filer til butikken:

@files = ( 'fileA.txt', 'fileB.txt', 'fileC.txt')

Dette bruger filerne fileA.txt, fileB.txt og fileC.txt.

8 Skriv linjen "foreach $ fil (@files) {$ objekt-> AddFile ($ fil);}" uden citationstegn at tilføje filerne til arkivet.

9 Skriv følgende linjer til at skabe arkivet kaldet test.zip:

if ($ obj-> writeToFileNamed (test.zip ')! = AZ_OK) {print "Arkiv ikke oprettet!" } Else {print "Tillykke arkivet er blevet oprettet!" }

10 Gem filen med den .pl filtypen.

11 Test scriptet ved at skrive "perl -w script.pl" uden citationstegn ved kommandoprompten.


relaterede artikler