Я новичок в Perl CGI и т. Д. Я экспериментировал с концепцией push-сервера с куском кода Perl. Предполагается, что изображение в формате JPEG отправляется клиенту каждые три секунды.
К сожалению, ничего не работает. Может кто-нибудь помочь определить проблему?
Вот код:
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;
}
РЕДАКТИРОВАТЬ: добавлено отключение буферизации ввода / вывода, добавлены «использовать строгий» и «@file_list», «$ file» сделаны локальными