Comment puis-je envoyer plusieurs images dans un serveur en appuyant sur le programme Perl CGI?

Question

Je suis un débutant en Perl CGI, etc. J'expérimente le concept de serveur-poussoir avec un morceau de code Perl. Il est censé envoyer une image jpeg au client toutes les trois secondes.

Malheureusement, rien ne semble fonctionner. Quelqu'un peut-il aider à identifier le problème?

Voici le code:

use strict; 
# turn off io buffering 
$|=1; 
print "Content-type: multipart/x-mixed-replace;"; 
print "boundary=magicalboundarystring\n\n"; 
print "--magicalboundarystring\n"; 

#list the jpg images 
my(@file_list) = glob "*.jpg"; 
my($file) = ""; 

foreach $file(@file_list) 
{ 
    open FILE,">", $file or die "Cannot open file $file: $!"; 
    print "Content-type: image/jpeg\n\n"; 

    while (<FILE>) 
    { 
     print "$_"; 
    } 

    close FILE; 
    print "\n--magicalboundarystring\n"; 
    sleep 3; 
    next; 

} 

EDIT: ajout désactiver i/o mise en mémoire tampon, ajoutée "use strict" et "@file_list", "$ fichier" sont faits locaux

Answer 1

tire la chasse sortie. Le plus souvent, le serveur garde la réponse dans la mémoire tampon (buffer). Vous voudrez peut-être faire fflush(STDOUT) après chaque print ou autoflush STDOUT fois.

Jetez un oeil à http://www.abiglime.com/webmaster/articles/cgi/032498.htm

[quote]

Pour utiliser le script ci-dessous, vous aurez besoin de mettre en œuvre un appelé "non-parsé" CGIs sur votre site. Normalement, le serveur Web mettra en tampon toutes les sorties de votre programme CGI jusqu'à ce que le programme se termine. Nous ne voulons pas que cela arrive ici. Avec Apache, c'est assez facile. Si le nom de votre programme CGI commence avec "nph-", il ne sera pas analysé. De plus, changez le glob "/ some/path/*" en chemin où vous voulez rechercher les fichiers.

[/ quote]