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.