Discussion :

[sequoia]

Bonjour,

Je voudrais recuperer les noms de fichiers d'un repertoire "monrep" qui contient 2 fichiers texte : test1.txt et test2.txt pour ensuite les concatener.
Mais quand je liste les fichiers, ils apparaissent 2 fois et je ne comprends pas ce qui se passe :

Voici mon code :

Code :

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

1
2
3
4
5
6
7
my @files;
my $rep = "/home/monrep";
opendir (REP,$rep) or die "probleme :",$!,"\n";
@files = readdir(REP);
foreach my $file (@files)
    {print $file,"\n";}
closedir(REP);

Et j'obtiens ça :

.
test2.txt~
test1.txt
..
test2.txt
test1.txt~

Merci d'avance pour vos explications et conseils

[Philou67430]

Ils n'apparaissent pas deux fois, ce sont à chaque fois deux fichiers différents. A priori, je dirais que tu utilises Emacs pour éditer ces fichiers textes : l'extension ~ à la fin des fichiers correspond à un backup du fichier après édition sous Emacs. Il peut également s'agir de l'extension d'un autre outil d'édition.

[sequoia]

Merci Philou 67430,

J'utilise Gedit et au debut je pensais que c'etait lie a ce que les fichiers etaient ouverts (style fichiers temporaires) . Mais même fermes ils apparaissent comme ça et de même pour le point et le 2 points.
ça m'ennuie parce que quand je concatene les fichiers ça me cree des doublons (quoique pas tout à fait identiques : l'un des "doublons" a une ligne de moins que l'autre.)
par exemple, si j'ai mon fichier 1 qui comporte ligne1/ligne2/ligne3... et mon fichier 2 qui comporte ligne a/ligneb/lignec.... je me retrouve dans mon fichier resultat avec un truc comme ça complement inexploitable :

fichier .

fichier 1
ligne1
ligne2

fichier 2
ligne a
ligne b
ligne c

fichier ..

fichier 1
ligne 1
ligne 2
ligne 3

fichier 2
ligne a
ligne b

[Lolo78]

Ce problème n'a rien à voir avec Perl mais tout avec ton éditeur de texte qui crée ces fichiers supplémentaires par mesure de sauvegarde.

Efface simplement les fichiers de sauvegarde (ceux qui se terminent par ~), ou alors filtre-les dans ton programme Perl pour ne pas les prendre en compte.

[Philou67430]

ou alors filtre-les dans ton programme Perl pour ne pas les prendre en compte.

Je préfère nettement cette méthode :
dans ta boucle, tu introduis la ligne suivante :

Code :

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

next if $file =~ /~$/;

(avant le print bien sûr)

[sequoia]

Merci à vous deux Lolo78 et Philou67430,

j'ai fait un filtrage comme conseillé dans la boucle en ajoutant le /\.$/ pour les points qui apparaissaient aussi et maintenant tout est ok

Bonne soirée à vous

[Philou67430]

Tu peux réaliser le filtrage avec une seule regexp :

Code :

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

next if /[\.~]$/;

[sequoia]

Merci Philou 67430, c'est vrai que c'est encore mieux comme ça

Bonne journée à toi