|
Un des modules de base de Perl qui vient avec chaque installation du langage de script est le module d'archivage, qui comprend un certain nombre d'outils pour travailler avec les fichiers ZIP et d'autres types d' archives. Outre le format ZIP omniprésente , la bibliothèque Perl Archive prend également en charge TGZ , TAR, GZ , TAR, et autres. Instructions
1 Créer un nouveau fichier texte . N'importe quel éditeur de texte simple fera l'affaire, pourvu qu'il écrit des fichiers texte ordinaires et non des documents de traitement de texte spécialisé. Ainsi, par exemple , Windows Notepad est acceptable, mais Microsoft Word est pas. Nommez le fichier " extractor.pl . "
2 Collez le suivant sur la première ligne de votre programme. Il importera l'outil Extract ACHIVE :: dans le programme Perl afin que vous puissiez l'utiliser :
utilisation Archive :: Extrait ;
3 Collez le texte suivant pour charger le fichier ZIP dans l'extracteur :
my $ extracteur = Archive :: Extract- > new ( archive = > ' file.zip ');
4 collez le texte suivant à extraire les fichiers dans le répertoire de travail courant ( celui que le script est exécuté à l'intérieur ) :
$ extractor.extract ;
Alternativement, si vous souhaitez extraire les fichiers dans un répertoire de votre choix , collez le texte suivant à la place :
$ extractor.extract ( to = > ' /extractionDirectory /');
Enfin, si vous ne voulez pas extraire les fichiers dans l'archive dans un répertoire, mais qui veulent les lire directement depuis votre programme Perl , vous pouvez coller le code suivant au lieu de générer un tableau des fichiers contenus dans :
mes $ files = $ extractor.files ;
< br >
|
