perl et taille de fichier

Bonjour,

Je voudrai savoir s'il n'existerait pas une fonction perl me permettant de vérifier si un fichier est déjà utilisé par un autre processus.

La situation est la suivante : un fichier audio est créé en .wav par une autre application. Je fais un démon perl qui va scrupter toutes les 10s le répertoire ou sont stockés les sons wav et les converti en mp3.

Le probleme, c'est que je voudrait avoir l'etat du fichier pour voir si le son est complet ou non. Si oui, alors il convertit et supprime le .wav, si non, il le laisse et passe au suivant.

J'avais pensé à vérifier la taille du fichier, mettre le nom et la taille dans une table de hash et re-vérifier sur la deuxième passe la taille du fichier, mais ca me semble bien compliqué pour pas grand chose.

Je fonctionne sous linux.

J'espère que vous pourrez m'aider.

Bonne journée.

Si tu es sous Linux, utilise lsof avec un appel système depuis perl. Par exemple lsof -c mencoder te donnera la liste de tous les fichiers ouverts par mencoder (jette un oeil aux pages man pour plus de détails).

Voilà toujours un exemple pour récupérer la liste de tous les processus qui ont tel fichier d'ouvert

Code:

---

@process = qx {lsof -f -- $filename}

---