Discussion :

[DelphLaga]

Bonjour,

Je cherche à lire les données d'un fichier .wav pour controler si c'est un RIFF header, si le format est bien un format WAVE, si le format audio est bien PCM ... je suis débutante dans ce domaine et je ne sais pas comment faire ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/local/bin/perl
 
$file=$ARGV[0];
 
 
if (open(AUDIO, "$file")) {  
	my $Riff;
	my $Format;
	my $AudioFormat;
	my $Size;
 
	if ($Riff='ChunkID'){
		if ($Riff='RIFF'){
			if ($Format='WAVE'){
				if ($AudioFormat='PCM'){
					print "Ce fichier correspond à ma recherche !";
					print "Chercher à définir la taille du fichier :";
 
				}
			}
		}
	}
 
}
 
 else {  
		die("Cannot open $mon_fichier\n");  
}

Est ce qu eje susi sur la bonne voie ?

Je cherche ensuite à déterminer la taille du fichier en heure, min, seconde ...
Est ce que quelqu'un peut m'éclairer concernant à la méthode à suivre ?

Merci beaucoup

Delph

[Arioch]

Bonjour,

le problème, c'est que tu ouvres ton fichier .wav comme s'il s'agissait d'un fichier texte alors qu'à mon avis, c'est en mode binaire qu'il te faudrait l'ouvrir.

Ensuite, tes variables $Riff, $Format, $AudioFormat et $Size ne se voient affecter aucune valeur. Tout test effectué ensuite sur la valeur que contiennent ces variables ne peut donc aboutir.

Sinon, cette syntaxe là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if (open(AUDIO, "$file")) {  
 ... ...
} else {  
    die("Cannot open $mon_fichier\n");  
}

est bonne mais pas très usuelle en Perl. Tu peux tout simplement faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
open(AUDIO, "$file") or die("Cannot open $file\n");
... ...

Sinon, en recherchant brièvement sur le net, j'ai trouvé ceci qui pourrait peut être t'aider : http://tomacorp.com/perl/wav/Freqext.html

Un petit exemple tiré du site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
 
use strict;
use Freqext;
$|++;
 
my $datadir= "/home/toma/perl/examples/wav/data";
my $datafile= "engine2.wav";
 
my $filename= "$datadir/$datafile";
print "Extracting file $filename\n";
 
Freqext::trackz($filename, 10, "$datadir/eng2freq.txt");

[DelphLaga]

Merci :-)) ça m'a bien aidé :-))