upload file със PERL
1 отговора
30 прегледа
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);
обаче...
пробвах както пише по книгите със следния срипт:
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);
обаче...
Отг: 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 :)))
<form action="cgi-bin/upload.pl" enctype="multipart/form-data" mehod="POST">
Ta bez toq multipart ne stawa :)))