Récupération extension fichier dans un répertoire

**legomaniac071** · 21/11/2006, 10h03

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** · 21/11/2006, 10h13

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** · 21/11/2006, 10h15

Merci beaucoup j'essaie ça tout de suite

**legomaniac071** · 21/11/2006, 10h29

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** · 21/11/2006, 10h40

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** · 21/11/2006, 13h19

Ca fonctionne. Merci beaucoup

**legomaniac071** · 22/11/2006, 16h19

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** · 22/11/2006, 17h18

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** · 22/11/2006, 20h10

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** · 23/11/2006, 08h58

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 ?

**djibril** · 23/11/2006, 09h11

Envoyé par 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 ?

Lit la FAQ écrite par nos soins

**legomaniac071** · 23/11/2006, 11h20

Apparement il n'y aura jamais de .TAR ou .ACE et le .ZIP était une exception (mais ne doit-on pas gérer en programmation les exceptions, même les plus improbables ???). Mais bon, j'oublie ça quelque temps car j'ai un nouveau problème :
J'ai maintenant besoin de récupérer une partie du nom d'un fichier afin de la copier dans le bon répertoire. Exemple :
Dans le répertoire c:\TxTx on a :
N_TOTO_DGI_253.bat qui doit être copié dans le répertoire TOTO
N_TITI_DGI_458.txt qui doit être copié dans le répertoire TITI
N_TITI_DGI_NNN.sh qui doit aussi être copié dans TITI
N_TATATATA_DGI_jjj.lo qui doit être copié dans le répertoire TATATATA

La partie à récupérer, ici TOTO ou TITI etc...., n'est pas de longueur fixe mais se trouvera toujours entre N_ et _DGI (normalisation). J'en ai besoin pour effectuer ensuite une comparaison et le copier dans le bon répertoire en fontion du résultat. Je compte faire ça en PERL car je suis à peu près sûr que c'est impossible en BATCH. Je dois donc dans un premier temps récupérer le nom de chaque fichier du répertoire (ça je pense m'en sortir : parcours du répertoire et récupération du nom du fichier) et extraire la partie du nom du fichier que je veux (là ça coince). Ensuite le test "if" je m'en sortirai sans problème je pense. J'ai cherché sur votre forum mais je n'ai pas trouvé de topic traitant de cela j'espère que c'est bien le cas

**djibril** · 23/11/2006, 13h18

une petite regex t'aurais fait l'affaire (une fois de plus confere FAQ

)

Code :

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
22
23
24
25
 
#!/usr/bin/perl -w
use strict;
use Carp;
use File::Glob ':globally';
 
my $directory = "C:\\Zip"; # soit doubler l'antislash, soit utiliser un slash
my @files = <$directory/*>;
my %mes_repertoires=("toto"=>"chemin_rep_toto","titi"=>"chemin_rep_titi", "tutu"=>"chemin_rep_tutu");
 
 
foreach my $file (@files)
{
    if ($file =~ /\.zip$/i) {
        die "j'ai peur des zip\n";
    }
    foreach my $type_rep (keys %mes_repertoires ) {
        $type_rep = "N_".$type_rep."_DIG";
        if ($file =~ /$type_rep/i) {
            print "$file doit etre envoyé vers le repertoire $mes_repertoires{$type_rep};
            #rename($file,$mes_repertoires{$type_rep}); #envoyer le fichier dans le nouveau repertoire
        }
    }
}
print("wé, y'avait po de zip\n");