Comment faire pour extraire des fichiers ZIP Avec Perl

May 26

L'un des modules PERL de base qui vient avec chaque installation de langage de script est le module Archive, qui comprend un certain nombre d'outils pour travailler avec des 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 d'autres.

Instructions

1 Créer un nouveau fichier texte. Tout éditeur de texte fera, pour autant qu'il écrit des fichiers texte ordinaires et non pas de mots spécialisés des documents de traitement. Ainsi, par exemple, Windows Notepad est acceptable, mais Microsoft Word est pas. Nommez le fichier "extractor.pl."

2 Collez le suivant comme première ligne de votre programme. Il importera l'outil ACHIVE :: Extrait dans le programme PERL afin que vous puissiez l'utiliser:

utiliser Archive :: Extrait;

3 Collez le suivant pour charger le fichier ZIP dans l'extracteur:

my $ extracteur = Archive :: y décompresser> new (archive => 'file.zip');

4 Collez le suivant pour extraire les fichiers dans le répertoire de travail courant (celui du 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 (à => '/ extractionDirectory /');

Enfin, si vous ne souhaitez pas extraire les fichiers de l'archive dans un répertoire, mais que vous voulez les lire directement dans votre programme de PERL, vous pouvez coller le code suivant au lieu de générer un tableau des fichiers contenus dans:

mes $ fichiers = $ extractor.files;


          

Post a comment: