upload file със PERL

1 отговора 30 прегледа
#1

upload file със PERL

Някой може ли да ми покаже как става upload na файл през www (или евентуално на localhost)?
пробвах както пише по книгите със следния срипт:
require ('cgi-lib.pl');
&ReadParse(*field);
print "Content-type: text/html\n\n";
print $field{'up'};
open (FILE, '>h:\proba');
binmode FILE;
undef $buffer;
$buffer=12;
while (read($field{'up'},$buffer,4096)){
print FILE $buffer;
}
close (FILE);

обаче...

Отговор
в отговор на new_anon #2

Отг: upload file със PERL

Da taka stawa ama ima edna malka osobennost koqto trqbwa da znaesh za HTML coda na formata, neshtoto bez koeto nqma da stane:
<form action="cgi-bin/upload.pl" enctype="multipart/form-data" mehod="POST">

Ta bez toq multipart ne stawa :)))


Отговор