Discussion :

[Bahan]

Bonjour à toutes et à tous.

Je me suis fait un ch'tit script pour :
1. lire le contenu d'un dossier
2. récupérer le nom de chacun des fichiers
2.1 contenus dans ce dossier
2.2 qui sont des fichiers zips.

J'utilise ActivePerl en version 5.10.0.1002.

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
#!/usr/bin/perl
 
my ($sFicListe, $sDossier)=@ARGV;
 
opendir (hDossierALire, $sDossier) || die("Impossible d'ouvrir ".$sDossier."...");
open (hFicListe, ">".$sFicListe)) || die ("Impossible d'ouvrir ".$sFicListe."...");
 
while ($ligne = readdir(hDossierALire))
{
    if($ligne =~ /\.zip/ )
    {
        print hFicListe $ligne."\n";
    }
}
 
close (hFicListe );
close (hDossierALire);

Le truc, c'est que ce script lit le dossier mais dans un ordre totalement aléatoire. Il ne le fait pas dans l'ordre des noms de fichier par exemple ou encore de date de création.

Je voudrais pouvoir faire une lecture de ce dossier en utilisant comme ordre le nom des fichiers, mais je ne sais pas trop comment faire sur ce coup ^_^.

Est-ce que l'un (ou l'une) d'entre vous aurait une idée là-dessus ?

Merci d'avance pour vos remarques.

Cdt.

Bahan

[djibril]

tu pourrais recuperer tous les noms de tes fichiers dans un repertoire qui tu trie par la suite.
Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my ($sFicListe, $sDossier)=@ARGV;
 
opendir (hDossierALire, $sDossier) || die("Impossible d'ouvrir ".$sDossier."...");
open (hFicListe, ">".$sFicListe)) || die ("Impossible d'ouvrir ".$sFicListe."...");
my @fichier_repertoire = grep { /\.zip/i } readdir(hDossierALire);
closedir (hDossierALire);
 
foreach (sort @fichier_repertoire) {
  print {hFicListe} "$_\n";
}
close((hFicListe);

[Bahan]

Merci pour votre méthode .
Cas résolu!

Bahan