Discussion :

[legomaniac071]

Tout d'abord un petit bonjour à tous

J'ai un (petit) problème dans un script perl. Je dois traiter des données, mais certaines sont zippées. Bien évidemment, si c'est le cas, le programme ne peut les traiter. J'aimerais donc effectuer un test sur le type de fichier, et si celui-ci est un zip, afficher un message et arrêter le programme, afin d'éviter des messages d'erreurs incompréhensible pour l'utilisateur. Je signale que s'il y a un fichier zip, il n'y en a qu'un et un seul dans le répertoire concerné. J'ai bien ma petite idée avec la fonction substr, mais ce que je ne sais pas c'est :
Comment récupérer le nom du fichier dans un répertoire donné?
NB : le nom du répertoire est reçu en paramètre (saisie)


Je débute en PERL et je ne suis pas développeur d'origine (admin réseaux).
Merci d'avance.

[pospos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if ($nom_de_fichier =~ /\.zip$/i) {
   die "j'ai peur des zip\n";
}

[legomaniac071]

Merci beaucoup j'essaie ça tout de suite

[legomaniac071]

Et comment je le récupère le nom du fichier ? Je reçois en paramètre le répertoire : c:\ZIP par exemple, pas le nom du fichier. Il est inconnu. Il me faut le récupérer dans une variable, c'est ça que je ne sais pas.

[MarneusCalgarXP]

Pour récupérer la liste des fichiers, tu peux utiliser le module File::Glob (installé automatiquement avec Perl depuis la version 5.6.0)

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict;
use warnings;
use File::Glob ':globally';
 
my $directory = "C:\\Zip"; # soit doubler l'antislash, soit utiliser un slash
my @files = <$directory/*>;
 
foreach my $file (@files)
{
    if ($file =~ /\.zip$/i) {
        die "j'ai peur des zip\n";
    }
}
print("wé, y'avait po de zip\n");

[legomaniac071]

Ca fonctionne. Merci beaucoup

[legomaniac071]

Heu, désolé mais en fait, bien que cela fonctionne, ça n'arrête que le programme PERL donc ça ne solutionne pas complètement mon problème . Je m'explique :
J'ai donc ce programme PERL, qui s'arrête bien s'il trouve un fichier .ZIP dans le répertoire. Mais comme ce prog est appelé depuis un script BATCH, la suite du script BATCH elle s'effectue, provoquant des erreurs (la suite du BATCH a besoin des données traitées par mon prog PERL). J'aimerais donc savoir si c'est possible d'arrêter l'éxecution du BATCH depuis PERL. Merci d'avance. Merci.

[MarneusCalgarXP]

Alors, ce qu'il faut savoir:

• un die en perl renvoie un code d'erreur 255
• une sortie normale du programme renvoie un code d'erreur 0

Il te suffit donc de faire appel au script perl depuis un script batch pour faire ce que tu veux:

Code du fichier batch :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# désactivation de l'affichage des commandes autres que echo
@echo off
# execution du programme en lui passant le nom de dossier en paramètre
perl monscript.pl %1
# en fonction du résultat, on va atteindre un label
goto error%errorlevel%
 
# erreur255 : un die ! on va à la fin
:error255
echo "aie je suis mort"
goto end
 
# erreur 0  :pas de die, on peut traiter
:error0
echo "on peut continuer"
# traitement
goto end
 
:end
echo fini!

Et un p'tit lien en prime pour écrire des fichiers Batch:
Microsoft Windows XP - Batch Files

Voilà

[legomaniac071]

Merci J'étais sur la bonne voie, mais je ne connaissais pas les codes d'erreurs. Et comme je l'ai dis, je ne suis pas développeur d'origine....Je fais ça en complément, à l'occasion.

[MarneusCalgarXP]

De rien, n'oublie pas,

[GnuVince]

La solution quitte après avoir vu le premier zip et ne traitera pas les autres fichiers qui ne sont pas zippés. De mon point de vue, ça semble incorrect. Quand tu dis qu'il n'y aura qu'un seul fichier Zip, veux-tu dire que le fichier Zip sera la seul fichier du répertoire ou qu'il n'y aura aucun autre fichier Zip?

[legomaniac071]

Voilà c'est fait !!
Je suis certain qu'il n'y aura qu'un seul fichier ZIP dans un répertoire donné. Ca c'est certain. Donc le code est correct. En fait, il s'agit du traitement des mises à jour du cadastre des communes, donc elles sont rangées dans des répertoires contenant leurs numéro INSEE. Un répertoire=une commune. S'il les fichiers de MAJ sont zippés, il n'y a donc qu'un seul .ZIP contenant les fichiers de MAJ dans le répertoire. Voilà !!

Merci beaucoup à tous. C'est super ici

[legomaniac071]

J'ai trouvé un dézippeur DOS (PKZIP) qui me permet maintant, en plus, de dézipper à la volée en cas de présence d'un fichier ZIP (j'appelle PKZIP en lui passant le nom de fichier en récupérant le résultat de la commande DIR dans une variable). Tout est parfait grâce à votre code . Il me reste plus qu'à croiser des doigts pour que les communes n'utilisent pas d'autres format de compression (RAR, ACE....) sinon aie.
Encore merci

[djibril]

sinon il est possible de recuperer les fichier zippés ou taré (compressés) en Perl tu sais !! Tant qu'à faire, autant utiliser la même technologie

[MarneusCalgarXP]

sinon il est possible de recuperer les fichier zippés ou taré (compressés) en Perl tu sais !! Tant qu'à faire, autant utiliser la même technologie

Boarf, si ça l'oblige à rajouter 50 lignes de code, à installer un module dédié et à se plonger dans le code alors qu'il n'est pas développeur à l'origine, je ne vois pas l'intêret...

[legomaniac071]

Effectivement je me vois mal faire ça . Et puis en général, je ne cherche pas à réinventer la roue : si un utilitaire Free ou une fonction prédéfinie dans un langage existe et fait exactement ce que je veux, je ne vais pas chercher à le "re"-développer pour arriver à la même chose. PKZIP fonctionne très bien, je l'appelle depuis mon BATCH, parfait. Mais il est vrai que je me retrouve bloqué en cas de fichier .ace ou .rar. Mais je doute que les communes utilisent ce genre de logiciel de compression somme toute peu connus des non-initiés.

[legomaniac071]

Je me suis quand même intéressé à ce qu'a écrit djibril. Je suis tombé là dessus :
http://www.example-code.com/perl/perl-unzip.asp

Peut-on donc traiter les .zip dans le code perl ? Je ne comprends pas bien dans ce code là l'utilisation de la libraire Chilkat : n'est-ce pas pour les applis WEB ?

[djibril]

pour ta culture générale, sache qu'il y a des modules perl pour l'extraction de fichiers dans les repertoires compressé, tu peux toujours t'amuser :
- Archive::Extract
- archive::zip
- archive::tar

bref, y en a des tonnes, tu cherchers sur CPAN et tu trouveras

bon courage

[legomaniac071]

Merci je vais étudier ça de près. J'ai 1 mois pour faire le projet et vu que tout fonctionne (ou presque ) je vais donc chercher à optimiser et éliminer les bugs (traitement des cas d'archive .tar ou .ace, traitement des zip dans le code PERL, etc....)

[legomaniac071]

Je ne comprends pas comment on installe les packages pour PERL. Je suis sous Windows 2000 et j'ai MINGW (afin d'essayer de travailler dans de "bonnes" conditions). Quelqu'un peut-il m'éclairer ?