Hämta info från querystring?

4 svar · 262 visningar · startad av Fredde Mannen 30 juni 2003

Fredde MannenMedlem sedan nov. 20014 054 inlägg

Frågan30 juni 2003 12:59#1

Hur skall jag hämta info från en querystring med perl?

print start_html();
print "<a href=\"hamta.pl?function=hamta_info\">Hämta information</a>"; 
print end_html();

Jag vill hämta infon från querystringen, som i PHP:

<?
if($_GET['function'] == "hamta_info") {
// Gör något...
}
?>

SPiNMedlem sedan mars 20007 896 inlägg

30 juni 2003 13:15#2

if( $ENV{'REQUEST_METHOD}' eq 'GET' ) {
     # Skapar en array 'arrValues' med allt från din query-string
     @arrValues = split( /&/, $ENV{'QUERY_STRING'} );
} else {
     print "Ingen querystring";
     exit;
}

foreach $arrValue ( $arrValues ) {
     # Dela upp till nyckel och värde
     local( $strName, $strValue ) = split( /=/, $arrValue );

     # Dekåda strName och strValue
     $strName =~ tr/+/ /;
     $strName =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

     $strValue =~ tr/+/ /;
     $strValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

     print "Content-type: text/html";
     print $Form{$strName};
     print " hade värdet: ";
     print $strValue;
     print "<br />";
}

Länge sedan jag pillade Perl, kan ju vara helt åt skogen.

JojoxxMedlem sedan juni 20004 308 inlägg

30 juni 2003 13:33#3

CGI.pm är faktiskt väldigt användbar, och standard :)

use CGI;
if(CGI::param("function") eq "hamta_info"){
   # Gör något...
}

SPiNMedlem sedan mars 20007 896 inlägg

30 juni 2003 15:33#4

Ah! Snitsigt! :)

Fredde MannenMedlem sedan nov. 20014 054 inlägg

30 juni 2003 17:33#5

Man tackar, man tackar!!!! :e