Совершенно непонятная проблема.
Tolik_ 18.02.2004 08:42
Есть файлы test.html и test.cgi.
test.html черех форму отправляет два файла на сервер, а test.cgi получает файлы из формы и выводит их содержимое на экран.
Проблема с том, что на одном сервере всё работает как надо, а на другом второй файл не выводиться и его длина равна нулю.
Я брал размеры файлов по 5 байт.
С чем это может быть связано?
-------------------------------------------
Файл test.html
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=koi8-r" />
</head>
<body>
<form enctype="multipart/form-data" action="/cgi-bin/test.cgi" method="post">
Файл изображения 1: <input name="PictureFile1" type="file"><br>
Файл изображения 2: <input name="PictureFile2" type="file"><br>
<input type="submit" value="Отослать">
</form>
</body>
</html>
-------------------------------------------
Файл test.cgi
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Carp('fatalsToBrowser');
print header( -charset => 'koi8-r');
my $PictureFile1 = CGI::param('PictureFile1');
my $PictureFile2 = CGI::param('PictureFile2');
my $Picture1 = 0;
my $Picture2 = 0;
my $PictureSize1 = (stat($PictureFile1))[7];
my $PictureSize2 = (stat($PictureFile2))[7];
my $RealSize1 = read($PictureFile1,$Picture1,$PictureSize1);
my $RealSize2 = read($PictureFile2,$Picture2,$PictureSize2);
($RealSize1 == $PictureSize1) or print 'Error1<br>';
($RealSize2 == $PictureSize2) or print 'Error2<br>';
print "RealSize1: ".$RealSize1."<br>";
print "RealSize2: ".$RealSize2."<br>";
print "PictureSize1: ".$PictureSize1."<br>";
print "PictureSize2: ".$PictureSize2."<br>";
print "PictureFile1: $PictureFile1<br>";
print "PictureFile2: $PictureFile2<br>";
print "Picture1: $Picture1<br><br>";
print "Picture2: $Picture2<br><br>";
- Совершенно непонятная проблема., Tolik_ 18.02.2004 08:42
