Portál AbcLinuxu, 8. listopadu 2025 12:24
3. Hľadal som aj v perle, ale nič na upload som nenašiel.Tak to jste hledal spatne, viz
Vopred ďakujem za info.
perldoc CGI, hledejte upload, filefield.
uvedu jen relevantni casti
prvni stranka pro formular s "fileupload"
use CGI;
my $cgi = new CGI;
print $cgi->start_multipart_form(-method=>"post", -action=>"./upload.cgi"),
$cgi->filefield(-name=>"file"),
$cgi->end_form;
zpracovani se provede jako prace s filedescriptorem, napr. takto se ulozi do /tmp/file.<cislo_procesu>
use CGI;
my $cgi = new CGI;
my $fh = $cgi->upload("file");
my $tmpfile = "/tmp/file.$$";
open(W, ">$tmpfile");
print W <$fh>;
close(W);
urcite chcete provadet nejdrive kontrolu platnosti $fh neprepisovat existujici ...
nakonec si zavolate convert
`convert <vase_parametry>`a pokud jste neudelal zadny vystup, ted reknete spravne hlavicky a vrati upraveny soubor
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.