Perl скрипт для загрузки файлов
Я пытаюсь написать скрипт на Perl, который позволит пользователю загрузить файл. На данный момент он говорит, что работает, но на самом деле не загружает файл!
Вот код:
#!/usr/bin/perl
use CGI;
my $cgi = new CGI;
my $dir = 'sub';
my $file = $cgi->param('file');
$file=~m/^.*(\\|\/)(.*)/;
# strip the remote path and keep the filename
my $name = $2;
open(LOCAL, ">$dir/$name") or print 'error';
while(<$file>) {
print LOCAL $_;
}
print $cgi->header();
print $dir/$name;
print "$file has been successfully uploaded... thank you.\n";enter code here