Comment faire pour extraire des fichiers zip avec perl

Instructions

1. Créez un nouveau fichier texte. Tout éditeur de texte va faire, à condition qu'il écrit des fichiers texte ordinaires et non des mots spécialisée documents de traitement. Ainsi, par exemple, le Bloc-notes de Windows 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 ACHIVE :: Extrait dans le programme Perl de sorte que vous pouvez l'utiliser:

   utiliser Archive :: Extrait;

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

   mon extracteur $ = Archive :: Extract-gt; nouvelle (archive = gt; 'file.zip');

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

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

   mes fichiers $ = $ extractor.files;