PERL_Tri et concaténantion Fermé

Question

Bonjour, 

J'aimerai concaténer plusieurs fichiers ( dans l'ordre) en utilisant le langage PERL ? 

Exemple des fichiers à concaténer : 

A_1980_AB11_1001.txt 
A_1980_AB11_1003.txt 
A_1980_AB11_1002.txt 
A_1980_2AB12_1001.txt 
A_1980_AB13_1001.txt 
A_1980_2AB12_1002.txt 


Dans le fichier final, je dois avoir le contenu des fichiers ci-dessous ( et dans l'ordre) : 

A_1980_AB11_1001.txt 
A_1980_AB11_1002.txt 
A_1980_AB11_1003.txt 
A_1980_2AB12_1001.txt 
A_1980_2AB12_1002.txt 
A_1980_AB13_1001.txt 

Par avance, je vous remercie pour votre aide. 

Amine.

Amine7592 · Answer

Personne pour m'aider :(((

valentin2703 · Answer

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
"; 
 my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh); 
 closedir ($rep_fh); 
 foreach my $nom (@file_rep) { 
  if (-f "$repertoire/$nom") { push (@fichiers, $nom); } 
 } 
 return @fichiers; 
}

Amine7592 · Answer

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
"; 
  my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);                                    
 closedir ($rep_fh);                                                                         
 foreach my $nom (@file_rep) {                                                               
  if (-f "$repertoire/$nom") { push (@fichiers, $nom); }                                     
 }                                                                                           
 return @fichiers;                                                                           
}

valentin2703 · Answer

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.

heyquem · Answer

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.

Amine7592 · Answer

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.

Amine7592 · Answer

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.