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).
