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
	» Martens 03:05 » cVas 03:01 » Kosiarz 01:52 » RoBakk 01:43 » Visar 00:56 » Druzil 00:53 » rooter666 00:33 » Wolf 23:59 » ulan 23:54 » Wedelek 23:22 » nth4 23:11 Dzisiaj przeczytano 7682 postów, wczoraj 168207 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 !!! !!! !!!