Perl Skript mit Parametern beim aufruf

[meinerkleinereins]

Hallo...
kann mir da jemand nen Link geben wo ich
genaueres über das Thema erfahren kann?
THX

 

[Arne Buchwald]

Damit kannst du Parameter auslesen:

if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $qs= $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
        read(STDIN, $qs, $ENV{'CONTENT_LENGTH'});
}

@split = split (/&/, $qs);
foreach $split (@split) {
        ($query_key, $query_value) = split (/=/, $split);
         $query_value =~ tr/+/ /;
         $query_value =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
         $in{$query_key} = $query_value;
}

 

[meinerkleinereins]

Danke...
Konnte leider nicht eher antworten...
Thx

 

[Arne Buchwald]

Kein Problem ...