Maak een nieuw tekstbestand met de naam " zip.perl " met behulp van Kladblok of een andere editor naar keuze . Zorg ervoor dat de extensie is " perl . " En niet

Import 2 de Zip- bibliotheek door het volgende commando te plakken " txt . '. :

Gebruik IO
:: Compress :: Zip qw ( zip $ ZipError ) ;
3

Geef de te zippen bestanden en de naam van het zip-bestand met de volgende code plakken :

$ input = ' . < * > ' ;

$ uitgang
= ' file.zip ' ;

Dit zal alle bestanden zippen in de huidige directory . Er zijn een aantal opties die u kunt gebruiken bij deze stap . Bijvoorbeeld :

$ input
= ' < * txt . > '

Dit zal alle bestanden zippen in de huidige directory die eindigen met het txt -bestand extensie
4 .

Voer het zip- operatie door de volgende opdracht te plakken :

zip $ input
= uitgang > $

of sterven "zip mislukt" ;

Als je wilt, kunt u een paar optionele parameters toe te voegen aan deze stap . Bijvoorbeeld , als u de gegevens aan het einde van het zip-bestand in plaats van creëren een geheel nieuw , gebruikt u de volgende :

zip $ input
= > $ output, Append = > 1 < br

of sterven > "zip mislukt" ;