Re: help perl avec la cde system ou autre solution

Le Mardi 23 Décembre 2003 04:46, anne aublanc a écrit :
> bonjour,
>
> Je veux récupérer la durée d'un message !
>
> $duree = system "$mp3info \"-p %m:%s\n\" $webtmpabs/$name_r.$typson";
> Cela ne fonctionne pas!
> retourne 0 si succès!
> donc $duree = 0
>
> J'ai pensé mettre le résultat dans un fichier...
> system "$mp3info \"-p %m:%s\n\" $webtmpabs/$name_r.$typson >$toto";
> et lire le fichier.
> mais c'est un peu lourd ;o))
>
> Je pense qu'il y a une solution bien plus simple!
>
> Si vous en connaissez une?...
>

Pour récupérer le résultat d'une commande (générant peu de texte en sortie)
dans un script perl, il faut utiliser la syntaxe :

$duree = `$mp3info "-p %m:%s webtmpabs/$name_r.$typson ` ;

La fonction 'system' doit être remplacée par les quotes inversées (comme en
shell).