Discussion :

[snipper]

J'ai un fichier qui suit le format suivant:
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/fichier,12132132123

comment puis-je réaliser un algo en perl pour regrouper les fichiers appartenant a un meme repertoire sachant qu'il peut y avoir un changement dans l'arborescence cad

./dir1/dir2 différe bien sur ./dir1

Merci pour votre aide.

[GLDavid]

Salut

Vive les regexps !

@++

[Antoun]

J'ai un fichier qui suit le format suivant:
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/dir2/fichier,8.86479711532593
./dir1/fichier,12132132123

voici un petit exemple d'extraction du nom de dossier (à tester et adapter) :

Code perl :

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

1
2
3
4
5
 
while <FICHIER> {
  m!^([^,]+)/[^/,]+,! ;
  my $dossier = $1 ;
}