|
Les Archives Perl :: module Zip peut être utilisé pour créer une archive Zip à partir d'un script Perl . Archives Zip sont utilisés pour compresser et de stocker plusieurs fichiers dans un seul fichier . Ce module peut également être utilisé pour extraire ou lire un fichier Zip existant . Une fois une archive ZIP est créé, les fichiers peuvent être ajoutés, supprimés , remplacés ou réorganisés en son sein. Ce module utilise le format de fichier Unix, ce qui signifie que les répertoires sont séparés par une barre oblique ( /) , indépendamment de la convention de nommage du système d'exploitation. Instructions
1 Ouvrez une fenêtre de terminal sous Linux ou la commande suivante pour installer le module Perl Zip invite de commande de Windows
2 Type:
< p. > perl- MCPAN -e 'install Archive :: Zip
3 Ouvrez un document texte vide dans votre éditeur de texte préféré .
4 Type de " ! # /bin /perl "sans les guillemets pour commencer votre script Perl
5 Tapez la suivante pour importer le module postal: .
utilisation Archive :: Zip ;
6 Tapez la commande suivante pour démarrer une nouvelle instance de l'objet postal:
$ objet = Archive :: Zip- > new ( ) ;
7 Type de la ligne suivante pour créer le tableau qui contient les noms des fichiers à stocker:
@ files = (' fichierA.txt ', ' fileB.txt ', ' fileC.txt ')
Celui-ci utilise le fichier fichierA.txt , fileB.txt et fileC.txt .
8 tapez la ligne " foreach $ file ( @ fichiers) { $ object -> addFile ($ file ) . ;} "sans les guillemets pour ajouter les fichiers de l'archive
9 Type de les lignes suivantes pour créer l'archive appelés test.zip :
if ($ obj- > writeToFileNamed (' test.zip ') ! = AZ_OK ) {print " Archive pas créé avec succès ! " } else {print " Félicitations les archives a été créé! "}
10 Enregistrer le fichier avec l'extension de fichier . pl.
11 tester le script en tapant " perl -w script.pl " sans les guillemets à l'invite de commande .
|
