PERL er et tolket skriptspråk populært med mange systemadministratorer for å automatisere jobben sin . Det er kjernen bibliotekene inneholder funksjoner for lett å oppnå mange vanlige databruk , herunder oppretting zip arkivfiler . Instruksjoner
en
Lag en ny tekstfil kalt " zip.perl " ved hjelp av enten Notepad eller en annen redaktør av ditt valg. Sikre at utvidelsen er " perl . " Og ikke
2
Import Zip biblioteket ved å lime inn følgende kommando " txt . ". : En
bruk IO :: Komprimer :: Zip qw ( zip $ ZipError ) ;
3
Angi filene som skal zippet og navnet på zip-filen ved å lime inn følgende kode :
$ innspill = ' . < * > ';
$ output = ' file.zip ';
p Dette vil zip alle filer i gjeldende katalog . Det finnes en rekke alternativer du kan bruke på dette trinnet . For eksempel : en
$ innspill = ' < * txt . > '
P Dette vil zip alle filer i gjeldende katalog som ender med txt filtypen
fire .
Utfør zip drift ved å lime inn følgende kommando : en
zip $ innspill = > $ utgang
eller dø "zip mislyktes" ;
p Hvis du liker , du kan legge til et par valgfrie parametere til dette trinnet . For eksempel, hvis du ønsker å tilføye dataene til slutten av zip -filen i stedet for å lage en helt ny en , bruker du følgende : en
zip $ innspill = > $ utgang, Append = > 1
eller dø "zip mislyktes" ;