CGI C : lire un fichier son du serveur

fopen() avec read ou fread() mais c'est de plus bas niveau que perl

Oui... justement, que fais exactement les fonctions systread et syswrite PERL par rapport à un fread en C ?

En fait, j'ai récupérer un programme PERL qui permet de lire un fichier audio sur le serveur par un client http. J'aimerai trouver l'équivalent en C ou encore, passer le code PERL en C.

Voici le code PERL :

sub read_audio()
{
	my $msgid = param('msgid');
	my &format = param('format');
	my $path = "/var/spool/test.wav";
 
	$msgid =~ /^\d\d\d\d$/ || die("Wrong msg ($msgid)!");
        [g]grep(/^${format}$/, keys %formats) || die("Wrong Format ($format)!");[/g]	
 
	# Mailbox and folder are already verified
	if (open(AUDIO, "<$path")) 
	{
		$size = -s $path;
		$|=1;
 
		[g]print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size);
 
		while(($amt = sysread(AUDIO, $data, 4096)) > 0) 
		{
			syswrite(STDOUT, $data, $amt);
		}[/g]
		close(AUDIO);
	} 
	else 
	{
		die("Cannot open $path\n");
	}
}

Quelqu'un pourrait-il m'aider à comrendre le code en gras ? Je ne connais pas le PERL mais plutôt le C...

Merci d'avance.
Made

Oups, on pe pas combiner les tags...



Oui... justement, que fais exactement les fonctions systread et syswrite PERL par rapport à un fread en C ?

En fait, j'ai récupérer un programme PERL qui permet de lire un fichier audio sur le serveur par un client http. J'aimerai trouver l'équivalent en C ou encore, passer le code PERL en C.

Voici le code PERL :

sub read_audio()
{
my $msgid = param('msgid');
my &format = param('format');
my $path = "/var/spool/test.wav";

$msgid =~ /^\d\d\d\d$/ || die("Wrong msg ($msgid)!");
grep(/^${format}$/, keys %formats) || die("Wrong Format ($format)!");

# Mailbox and folder are already verified
if (open(AUDIO, "<$path"))
{
$size = -s $path;
$|=1;

print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size);

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


Quelqu'un pourrait-il m'aider à comrendre le code en gras ? Je ne connais pas le PERL mais plutôt le C...

Merci d'avance.
Made