Perl -> PHP port vraagjes

[Koffie]

Mja, belachelijke titel, maar weet ff niet hoe ik het moet omschrijven.
Enfin, sinds een tijdje piel ik dus aan in PHP, voorheen was dat in Perl.

Als ik in Perl bezig was, gebruikte ik het volgende (mijzelf aangeleerde) truukje:

code:

sub post_get {

    ############################################################################
    # POST actie omzetten naar vars
    ############################################################################
    if ($ENV{'REQUEST_METHOD'} eq 'POST')
    {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs = split(/&/, $buffer);
        foreach $pair (@pairs)
        {
            ($name, $value) = split(/=/, $pair);
            $value =~ tr/+/ /;
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            $contents{$name} = $value;
             
        }
    }
    ############################################################################
    ############################################################################
    # GET actie omzetten naar vars
    ############################################################################
    if ($ENV{'REQUEST_METHOD'} eq 'GET')
    {
        if (length ($ENV{'QUERY_STRING'}) > 0){
             $buffer = $ENV{'QUERY_STRING'};
             @pairs = split(/&/, $buffer);
             foreach $pair (@pairs){
                  ($name, $value) = split(/=/, $pair);
                  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                  $contents{$name} = $value; 
             }
    }
    }
    ############################################################################
}


if ($action ne '') 
{
        foreach $allowed_action (@allowed_action)
       { 
              if ($action eq $allowed_action) { &$action; }
       }
}

Wat dus eigenlijk neer komt op het volgende;

• Bevat de variabele $action een waarde ?
• Indien ja, kijken of die inhoud toegestaan is (controleren dmv een array)
• Indien de waarde OK is, een subroutine aanroepen met dezelfde naam als de inhoud.

Oftewel, staat de variabele de inhoud woei heeft ($action = "woei") dan word de subroutine &woei aangeroepen.

Hoe krijg ik nou ziets in PHP voor elkaar
Ik weet dat ik de variabele namen iig al wat beter binnen kan krijgen dmv hetvoglende:

PHP:

while(list($key,$val)=each($_POST)) {  $$key = $val; }
while(list($key,$val)=each($_GET)) {  $$key = $val; }

Echter, hoe kan ik een subroutine c.q. function aanroepen aan de hand van een variabele inhoud netzoals ik mijn Perl scriptjes doe ?


* Koffie hoopt dat iemand me nog een beetje kan volgen ...

[Verwijderd]

code:

$varnaam();

Dan wordt de functie aangeroepen met als naam de waarde van $varnaam

[thomaske]

1. POST of GET variabele opvragen:

PHP:

$action = $_REQUEST["action"];

2. checken of waarde voorkomt in array met: in_array()

3. functie uitvoeren dmv trucje van Zef

4. HTH

[Koffie]

OK dan
Ik wist niet dat die truc van Zef zo kon, ga het meteen uitproberen!
ThX

[Verwijderd]

Koffie : Wel eens gehoord van de CGI module ... ?

Die doet al die onzin voor je... Het is best zinnig om daar eens naar te kijken .... (perldoc CGI)

code:

#!/my/perl -w

use strict;
use CGI;

my $cgi = new CGI;

print $cgi->param("naam");       # POST of GET levert geen verschil op...
print $cgi->query_string;          # Er zijn inderdaad ook andere dingen op de interface

# en een volledige interface naar HTML, en content-typen
print $cgi->header();
print $cgi->p, "Een paragraaf", $cgi->hr, "^ lijntje"