Parsing d'un fichier en perl

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.

Salut

Vive les regexps ! ;)

@++

Citation:

---

Envoyé par 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

---

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

Code:

---

1 2 3 4 5

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

---