High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Perl lire un fichier son

Dernière réponse le 4 fév 2005 à 15:59:47 mail_pops, le 18 nov 2004 à 16:17:48 
 Signaler ce message aux modérateurs

Bonjour,

Je cherche en vain à lire un fichier son dans une application perl Tk.
La seule réponse du système est de m'aggresse d'un biiippp de mécontentement.

Voici mon code actuel : 

	if (open(AUDIO, "<$mon_fichier")) {  
 		my $amt;
		my $data;
		while(($amt = sysread(AUDIO, $data, 4096)) > 0) {
			syswrite(STDOUT, $data, $amt);  
		}        
		close(AUDIO);
	} else {  
		die("Cannot open $mon_fichier\n");  
	}


Quelqu'un a-t-il la réponse à ma question ?
D'avance, merci.

PS : Mon fichier est un .vox (un .wave ne passe pas non plus).

Meilleures réponses pour « Perl lire un fichier son » dans :
Comment créer sa sonnerie mobile ? Les différents formats de son VoirAu lieu d'acheter une sonnerie pour votre mobile, créez-là ! Ici, le logiciel ToneShop est utilisé, mais il en existe d'autres. Ce qu'il vous faut Les formats de sonnerie Créer vos fichiers sons Convertir vos fichiers son avec...
Comment lire un fichier ligne par ligne VoirComment lire un fichier ligne par ligne Préambule Boucle while Syntaxe Exemple Astuces Bonus Boucle for Syntaxe Préambule Une des erreurs les plus communes dans l'apprentissage des scripts "bash" sous GNU/LInux pour lire un fichier...
Lire un fichier en .rbs VoirOn peut rencontrer parfois des fichiers en .rbs, issus d'un enregistrement ou un autre. La solution la plus simple pour lire ces fichiers est tout bêtement de remplacer l'extension .rbs par .mp3 Si vous ne voyez pas l'extension du fichier, faites...
Perl - Les fichiers VoirLa notion de filehandle On appelle filehandle (traduisez descripteur de fichier), dans un programme Perl, le nom permettant de manipuler une connexion d'entrée-sortie (les entrées-sorties standards vues précédemment sont connues par les filehandles...
Fichier MP4 VoirFormat MP4 Un fichier MP4 est une vidéo compressée prévue pour pouvoir être lue en streaming. Lire un fichier MP4 Pour lire une vidéo au format MP4, il suffit d'utiliser un lecteur multimédia tel que Windows Media Player, ou son équivalent...
Perl - Entrée et sortie standards VoirQu'appelle-t-on entrée standard et sortie standard ? Perl permet d'écrire sur la sortie standard, appelée STDOUT et de lire sur l'entrée standard (STDIN). Il s'agit de deux descripteurs fournis par le système d'exploitation et permettant...
Posez votre question Répondre

1

philtrain, le 18 nov 2004 à 21:24:40

Bonjour,

peut-être quand ouvrant correctement le fichier son en lecture :
open(AUDIO, ">$mon_fichier")

au lieu de open(AUDIO, "<$mon_fichier")

a+

   
Répondre à philtrain

2

mail_pops, le 19 nov 2004 à 10:45:49

Bonjour,

Il me semble que si je mets 

open(AUDIO, ">$mon_fichier")
j'ouvre mon fichier en écriture. Par contre tu as raison, il est plus correct de mettre 
open(AUDIO, "$mon_fichier")
sans aucun signe.
Mais cela ne change rien.
Il semblerait que mon fichier s'ouvre bien, mais que le problème se situe au niveau de l'écriture avec syswrite (faut-il vraiment l'envoyer sur la sortie standard ? Tout est envoyé sur la console...).

Merci.

   
Répondre à mail_pops

3

 mail_pops, le 4 fév 2005 à 15:59:47

Je retombe pas hasard sur cet ancien post et en profite pour vous donner la réponse, trouvée depuis : 

use Win32::Sound;

sub read_audio {  
	Win32::Sound::Play("sons/$mon_fichier.wav");
}


Voilà, comme quoi, tout est prévu...

   
Répondre à mail_pops
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net