GET & POST Problem: merkwürdigen Request entschlüsseln (Perl/CGI)

[thread]99[/thread]

GET & POST Problem: merkwürdigen Request entschlüsseln

Leser: 3

format_c

2003-11-21 19:49

User since
2003-08-04
1706 Artikel
HausmeisterIn

perldoc CGI
Oder gehts hier nicht um ein Perl Programm?

gruß Alex

Effizente Linuxshell

Froschpopo

2003-11-21 20:48

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

mache jetzt mit $ENV{REQUEST_URI}

Crian

2003-11-22 21:37

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich verschieb den Thread mal ins passende Forum ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Froschpopo

2003-11-21 18:10

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich bekomme einen HTTP-Request von einem entfernen Server:

Code: (dl )

213.**.***.** - - [21/Nov/2003:17:06:25 +0100] "POST /perl.pl?id=00000001 HTTP/1.1" 200 5

man beachte die Methode (POST). Normalerweise werden diese Daten ja per GET übermittelt, dann könnte ich sie auch bequem aus dem QUERY_STRING auslesen und splitten. Aber leider handelt es sich ja um die Methode Post. Nun meine Frage an euch: Wie kann ich den wert von id auslesen? Wenn der Request von einem browser stammen würde, könnte ich ja den HTTP_REFERER auslesen, aber leider stammt er von einem Server!
Kann mir da jemand helfen?\n\n

esskar

2003-11-21 19:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

use CGI;
use strict;

my $q = new CGI;
print $q->getparam('id');

package CGI;

sub getparam
{
   my ($self, $what) = @_;

   my $result = $self->url_param($what);
   unless($result) { $result = $self->param($what); };

   return $result;
}

1;

esskar

2003-11-21 21:05

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Froschpopo,21.11.2003, 19:48]mache jetzt mit $ENV{REQUEST_URI}[/quote]
würde dir empfehlen CGI.pm zu benutzen!

View all threads created 2003-11-21 19:49.