Форум Сайтостроение Веб-строительство

Вопрос для Perl кодеров

[Удален]
463

Привет.

Ну вот никак я не могу запустить скрипт Upload'a файла написанный на перле.

Мне нужен самый простейший пример реализации такого скрипта (без модулей всяких).

спасибо.

[Удален]
#1

Нашел!

Все заработало.

Вот листинг. 

#!/usr/bin/perl



use CGI qw(:standard);

print header();

print start_html();



$path="/home/newline3/";

$file=param('pic');

($n)=$file=~/([^\\\/:]+)$/;



open(FILE,">$path$n");

binmode(FILE);

print FILE <$file>;

close(FILE);

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий