PERL_Tri et concaténantion

Personne pour m'aider :(((

Bonjour,

Si tu veut trier tes fichiers, je pense que la meilleur façons de faire est de lister le contenu de ton dossier avec une fonction et ensuite de les trier toi même.
Une fois que tu les a trié, il ne te reste plus qu'à les ouvrir un par un pour tout entrer dans un seul fichier.

Une fonction pour lister tous les fichiers d'un dossier :

sub listDirectory { 
 my ($repertoire) = @_; 
 my @fichiers = (); 
 opendir (my $rep_fh, $repertoire) or die "impossible d'ouvrir le repertoire $repertoire\n"; 
 my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh); 
 closedir ($rep_fh); 
 foreach my $nom (@file_rep) { 
  if (-f "$repertoire/$nom") { push (@fichiers, $nom); } 
 } 
 return @fichiers; 
}

Merci beaucoup pour cette réponse. malheureusement, je ne suis pas un spécialiste du PERL et ne comprends pas l'ensemble de votre programme.

Pour exécuter votre programme, je dois :
- Définir une variable "repertoire" : \\Home\TEST
- Définir la variable "fichiers" ( le répertoire final)

Est-ce que c'est bien ça ?

Encore, je vous remercie beaucoup.

sub listDirectory {
my ($repertoire) = @_;
my @fichiers = ();
opendir (my $rep_fh, $repertoire) or die "impossible d'ouvrir le repertoire $repertoire\n";
my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);
closedir ($rep_fh);
foreach my $nom (@file_rep) {
if (-f "$repertoire/$nom") { push (@fichiers, $nom); }
}
return @fichiers;
}

Il suffit de lancer la fonction avec comme ceci :
my $repertoire = "TON DOSSIER";
my @fichiers = &listDirectory($repertoire);

Sachant que la variable $repertoire contient le chemin vers le dossier que tu veut lister.
Ensuite, la fonction va te retourner un tableau (@fichiers) qui contient tous les fichiers du dossier.

Salut,

J'ai écrit le code en Python.

J'ai d'abord créé 6 fichiers avec les contenus suivants:

- nom du fichier: AB11_1001
- contenu du fichier:
blablabli
blablabla
contenu du fichier AB11_1001
balablabalablalblabli

- nom du fichier: AB11_1003
- contenu du fichier:
karakako
contenu du fichier AB11_1003
kakakukiko

- nom du fichier: AB11_1002
- contenu du fichier:
dudurududu
contenu du fichier AB11_1002
dododudud

- nom du fichier: 2AB12_1001
- contenu du fichier:
mumumumimimim
contenu du fichier 2AB12_1001
mamamamimummmumim

- nom du fichier: AB13_1001
- contenu du fichier:
xixixixixixixixixi
contenu du fichier AB13_1001
xuxuxuxuuxxuxexexexexe

- nom du fichier: 2AB12_1002
- contenu du fichier:
taratatattat
ttatrotototerottotot
contenu du fichier 2AB12_1002
tttttttaaaaaaratatatatta

Et le code qui crée un fichier cumulatif des contenus de ces fichiers dans un ordre dépendant de leur nom:

from os import listdir 
import re 

regx = re.compile('[_\d]+(?=\.)') 

li = listdir('I:\\Prov Python') 
li.sort(key=lambda x: regx.search(x).group()) 

with open('I:\\Prov Python\\cumul.txt','w') as cumul: 
    for filename in li: 
        with open('I:\\Prov Python\\' + filename,'r') as f: 
            cumul.write(f.read())

Bien sûr, la regex est fonction de ce que j'ai pensé plausible comme critère de tri des noms de fichiers sur la base de seulement 6 noms. Pour d'autres règles, il faudra une regex différente.

Après exécution, j'obtiens le fichier cumul.txt avec le contenu suivant:

blablabli
blablabla
contenu du fichier AB11_1001
balablabalablalblabli

dudurududu
contenu du fichier AB11_1002
dododudud

karakako
contenu du fichier AB11_1003
kakakukiko

mumumumimimim
contenu du fichier 2AB12_1001
mamamamimummmumim

taratatattat
ttatrotototerottotot
contenu du fichier 2AB12_1002
tttttttaaaaaaratatatatta

xixixixixixixixixi
contenu du fichier AB13_1001
xuxuxuxuuxxuxexexexexe

Je sais que tu as parlé de Perl, mais comme tu dis ne pas le connaître, ce n'est peut être que l'objectif qui t'intéresse, sans être attaché à un langage en particulier.

Je pense que je n'ai pas très bien décris le besoin :
le but est de concatener le contenu des fichiers et à voir un "fichier_concat_final" qui contient le contenu de l'ensemble des fichiers.

Merci encore pour votre aide.

J'ai encore une question :)

Le programme ci-dessus, lit tous les fichiers se trouvant dans "le répertoire". or moi, j'aurai besoin de lire seulement les fichier començant par une chaine de caractères, par exemple : A_2012_*

Merci pour votre retour.