Сообщения

1

Perl / upload 2

« : 25 Августа 2001, 18:03:53 »

#!/usr/bin/perl
use CGI     qw (:standard);      
my $foto = param (\\\'foto\\\');

$foto=~/.*[\\\\/\\\\\\\\](.*\\\\..*)$/;  #получаем название
$filename=$1;                #файла без пути к нему

open (FILE,\\">$filename\\");    #открываем файл для записи
binmode FILE;                #двоичный режим (для винды,
                             #для юникса просто ничего не делает)
print FILE while(<$foto>);   #вывод в файл
close FILE;                  #закрываем файл - все

# все работает,
# ничего не портится!
# удачи.

[Изменено 25.8.2001 автор: kubinets]