Нужен скрипт

[Gosha999]

Нужен скрипт для загрузки файлов на сервер.
Мой работает, но файлы становятся не рабочими.
Только тексты грузит.
А мне надо картинки и зипы грузить.
В чём проблема?

[Fouly]

Поиск на предмет binmode
я где-то отвечал

[Gosha999]

Блин всё перепробовал.
непомогает.
Может у меня эксплорер 6 виноват.
Скиньте 100% рабочий скрипт, плиз.

[Crazy]

Ну и что должна была продемонстрировать эта ссылка?

Навскидку я аномалий не нахожу.

[Gosha999]

Даже это не помогло

#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
$num= "4"; #количество загружаемых файлов !
$uploadurl = "/usr/home/archean/img/review"; # полный путь куда сохранять файл
$url = "http://www.archean.ru/img/review/"; # url
print "Content-type: text/html\n\n";
for($i=1;$i<=$num;$i++)
{
if (!param ("filik$i"))
{
print "Файл $i - Не введён!<br>";
}
else
{
my $filik = param ("filik$i");
if ($filik =~ /\//) {
@array = split(/\//, $filik);
$f = pop(@array);
}
elsif ($filik =~ /\\/)
{
@array = split(/\\/, $filik);
$f = pop(@array);}
open (FILE, ">$uploadurl/$f") or mkdir $uploadurl,(0777);
chmod(0644, "$uploadurl/$f");
binmode FILE;
print FILE while (<$filik> );
close FILE;
print "$f - ";
print "<a href=\"$url/$f\">Download</a><br>";
}
}
print "<br><a href=\"$url\">Каталог с файлами...</a>";

[Crazy]

Здесь нет кода формы.

[Gosha999]

Вот форма.

<form action="/cgi-bin/uper.pl" encType="multipart/form-data" method="post">
<input type=file name=filik1>
<input type=file name=filik2>
<input type=file name=filik3>
<input type=file name=filik4>
<input type="submit" name="submit" value="Отправить" >
<form>

Где собака зарыта?
Я уже кучу скриптов проверил, толку нет

[Crazy]

Берем описание CGI.pm и видим, что твой код основан на варианте для ТЕКСТОВЫХ файлов. Возьми вариант для двоичных.

When the form is processed, you can retrieve the entered filename by calling param().

$filename = $query->param('uploaded_file');

where "uploaded_file" is whatever you named the file upload field. Depending on the browser version, the filename that gets returned may be the full local file path on the remote user's machine, or just the bare filename. If a path is provided, the follows the path conventions of the local machine.
The filename returned is also a file handle. You can read the contents of the file using standard Perl file reading calls:

# Read a text file and print it out
while (<$filename>) {
  print;
}

# Copy a binary file to somewhere safe
open (OUTFILE,">>/usr/local/web/users/feedback");
while ($bytesread=read($filename,$buffer,1024)) {
  print OUTFILE $buffer;
}
close $filename;

[Gosha999]

А для отсталых в развитии нельзя подробнее объяснить, плиз.

[Crazy]

Ты читаешь файл как текстовый (конструкцией <>). Нужно читать как двоичный (функцией read). Пример кода приведен.