Hallo,
ich möchte ein Perlscript in einem Link aufrufen also so:
<a href="formular.pl">Blupp</a>
Und nun möchte ich dem Script ein paar Parameter mitgeben.
- Wie mache ich das am besten ?
- Mit welcher Umgebungsvariablen lese ich das dann aus ?
Danke für Hilfe.
Gruß
Klonkrieger
z.B. so:
Datenstrom einlesen
sub read_data
{
# Datenstrom lesen (POST)
if (lc($ENV{'REQUEST_METHOD'}) eq 'post')
{
read (STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
@eingabe=split(/&/,$eingabe);
foreach $i (0..$#eingabe)
{
$eingabe[$i]=~ s/+/ /g;
$eingabe[$i]=~ s/%(..)/pack("c",hex($1))/ge;
($feldname,$wert)=split(/=/,$eingabe[$i],2);
if ($feldname)
{
${lc($feldname)}=$wert;
}
}
}
# Datenstrom lesen (GET)
if (lc($ENV{'REQUEST_METHOD'}) eq 'get')
{
$eingabe=$ENV{'QUERY_STRING'};
@eingabe=split(/&/,$eingabe);
foreach $i (0..$#eingabe)
{
$eingabe[$i]=~ s/+/ /g;
$eingabe[$i]=~ s/%(..)/pack("c",hex($1))/ge;
($feldname,$wert)=split(/=/,$eingabe[$i],2);
if ($feldname)
{
${lc($feldname)}=$wert;
}
}
}
}
wenn Dein <input name="blablabla" value="test"....> lautet,
ist $blablabla == "test" !!!
Ich benutze das immer so, es gibt zwar andere Möglichkeiten über cgi, aber das Modul nutze ich nicht so gerne. Der Vorteil hierbei ist eben auch, daß es direkt in der im HTML benannten Variablen landet.
Reiner