Re: [PERL] Perl - CGI Hvordan får man fat i variabler der er sendt med i Url'en

[Jesper Lund <sslug@sslug>]

Toke Herkild wrote:

> jeg har et script hvor jeg skal sende n-variabler til hvordan får jeg dem med i cgi-scriptet ?!?
>
> f.eks:
> url'en er :
> www.domainname.dk/cgi-bin/script.cgi?VAR1=&VAR2=&VAR3= osv...
>
> hvorledes får jeg parset dem ud i scriptet ?!?
>
> jeg har prøvet med
> use CGI;
> $query = new CGI;
>
> $result = $value($query->param('VAR1'))
> ....
> print $result
>
> men jeg får en "syntax error near $value"

Jeg ha simpelthen stjålet dette fra www.webcafe.dk:

sub opdel_i_par {
  @allepar = split(/&/, $ENV{QUERY_STRING});
  foreach $par (@allepar) {
    ($navn, $vaerdi) = split(/=/, $par);
    $navn =~ tr/+/ /;
    $navn =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $vaerdi =~ tr/+/ /;
    $vaerdi =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $IND{$navn} = $vaerdi;
  }

}


Så kan du refferer til $IND{VAR1}. Du ved jo at alt der kommer efter ? i din URL, kan findes i
$ENV{QUERY_STRING} ?

Mvh. Jesper