perl -> wysyłanie formularzy [czy ma ktoś gotowy skrypt??]

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» myszon 07:11 » AfiP 07:08 » DYD 07:07 » Demo 07:04 » cVas 06:57 » Killer 06:36 » Dexter 06:29 » Kenny 06:25 » PeKa 05:48 » KHot 05:39 Dzisiaj przeczytano 12114 postów, wczoraj 75473 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

perl -> wysyłanie formularzy [czy ma ktoś gotowy skrypt??] , Sznaps 19/03/03 15:58
w ostatniej chwili się zorientowałem że pewna wspaniała firma nie obsługuje php a czas goni strasznie czy ma ktoś jakiś gotowy skrypt do wysyłania formularzy w perlu?? Sorki że nie szukam w archiwum ani w necie ale na serio nie mam czasu. Sprawa pilna. Za każdego helpa wielki THX.

Every one of us has heard the
call !!! !!! !!!

nie ma czegos takiego jak gotowy skrypt , bwana 19/03/03 18:32
natomiast sa tablice asocjacyjne #GET i #POST (zaleznie od tego, ktorej metody uzywasz do odbierania danych z formularza), w ten sposob np. mozesz pisac:

$GET{'imie'}
$GET{'nazwisko'}

i tak dalej, analogicznie (kluczem do tych tablic jest wlasnosc name elementu formularza)
"you don't need your smile when I cut
your throat"
google , xmac 20/03/03 02:26
poszukaj pod haslem 'formdata perl'
oto maly przyklad, masz tu formularz do uploadu pliku, ale jesli znasz html, to sobie przerobisz:
****************HTML

<html><body>
<form action=3D'upload.pl' method=3D'POST' =
ENCTYPE=3D'multipart/form-data'>
<table align=3D'center' border=3D'1'>
<tr><td><input type=3D'file' name=3D'fileup'></td></tr>
<tr><td><input type=3D'submit' value=3D'ok'></td></tr>
</table>
</form>
</body></html>

****************SCRIPT
#!/perl/bin/perl
&Parse_Form;
$infile=3D$formdata{'fileup'};

print "Content-type:text/html\n\n";
print "<html><body>\n";
$out=3D"/tmp/outfile.test";

open (OUTFILE,">$outfile");
while ($bytesread=3Dread($infile,$buffer,1024)) {
print OUTFILE $buffer;
}
close $infile;

print "<h2>FILE UPLOADED</h2>\n";
print "</body></html>\n";

sub Parse_Form {=20
if ($ENV{'REQUEST_METHOD'} eq 'GET') {=20
@pairs =3D split(/&/, $ENV{'QUERY_STRING'});=20
} else {=20
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});=20
@pairs =3D split(/&/, $buffer);=20
}=20
=20
foreach $pair (@pairs) {=20
($key, $value) =3D split (/=3D/, $pair);=20
$key =3D~ tr/+/ /;=20
$key =3D~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;=20
$value =3D~ tr/+/ /;=20
$value =3D~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;=20
# $value =3D~s///g;=20

if ($formdata{$key}) {=20
$formdata{$key} .=3D ", $value";=20
} else {=20
$formdata{$key} =3D $value;=20
}=20
}=20
}=20
dual&mobile power
XMAC
1. dzięki:-))) , Sznaps 20/03/03 10:12
  ...
  Every one of us has heard the
  call !!! !!! !!!