Исходное сообщение
"Upload perl script" Отправлено mr_gfd, 30-Янв-10 19:21
>Решил сделать на своем сайте не большую форуму для заливки картинок (в >данном случае аватаров). Подскажите как доработать скрипт (быдлокод) http://dpaste.com/152590/ чтобы он >изменял название файла без расширения (ну например из переменной $name)? И >что лучше изменить в скрипте вообще ? 0. use strict; 1. FastCGI 2. print "Content-Type: text/html\n\n"; - ? зачем? это прекрасно и сам CGI.pm умеет. 3. проверять успешность файловых операцийЖ open (UPLOAD_PIC, ">$dir/$file") || die $!; 4. Буфферизировать ввод-вывод. 5. Типы файлов проверять строже. К примеру, shell.jpg.cgi скрипт зальет без вопросов. А это уже ссыкотно. 6. Ну, и у fail() - это верх информативности, однозначно. Купите/скачайте книжку по перлу.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Решил сделать на своем сайте не большую форуму для заливки картинок (в >>данном случае аватаров). Подскажите как доработать скрипт (быдлокод) http://dpaste.com/152590/ чтобы он >>изменял название файла без расширения (ну например из переменной $name)? И >>что лучше изменить в скрипте вообще ? > 0. use strict; > 1. FastCGI > 2. print "Content-Type: text/html\n\n"; - ? зачем? это прекрасно и сам CGI.pm > умеет. > 3. проверять успешность файловых операцийЖ open (UPLOAD_PIC, ">$dir/$file") || > die $!; > 4. Буфферизировать ввод-вывод. > 5. Типы файлов проверять строже. К примеру, shell.jpg.cgi скрипт зальет без вопросов. > А это уже ссыкотно. > 6. Ну, и у fail() - это верх информативности, однозначно. > Купите/скачайте книжку по перлу.
	Введите код, изображенный на картинке: