Всем добрый день!
Есть парочка вопросиков, ребят подсобите.
Написал свой первый скрипт, который закачивает файлы на сервак:
#!/usr/bin/perl
use CGI;
$q = new CGI;
$path_to_file=$q->param(\'file1\');
print $q->header;
print $path_to_file;
@path_part=split(/\\\\/,$path_to_file);
$file_name=$path_part[@path_part-1];
splice(@path_part,0);
print "
",@path_part;
print "
$file_name";
open(FILE, ">$file_name")||die;
binmode FILE;
print FILE $path_to_file;
close FILE;
так вот, работоспособность я смог проверить только на локальной машине.
1) Будет, ли он работать на любой машине где есть поддержка CGI?
2) при выполнении скрипт создает какие-то временные файлы, можно ли от этого избавиться?
3) как на перле сделать, чтоб можно было передать не один файл, а несколько и он их закачал? т.е. я имею ввиду, можно ли создать такое поле ввода, куда можно поместить сразу же несколько файлов.
Спасибо:)