perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 21
 Click for quality!



11.02.2012 / 22:40
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragQuery String auslesen
 Seitenanfang
Hi, ich habe folgenden Code:

#!c:/perl/bin/perl

#use strict;
print "Content-type:text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Benutzer Ausgabe</title></head><body>\n";

print"<form action name=\"speichern.pl\" method=\"get\">";

$file = '/Programme/xampp/cgi-bin/access.log';
open(INFO, "<$file" || "Datei nicht gefunden\n");
@lines = <INFO>;
close(INFO);
$i=0;

foreach(@lines)
{
chomp;
#print"$_\n";
if(/___\+(.*)\+(.*) HTTP/)
{
print "<br>";
print "$1\t, $2\n";
print "<input type=\"radio\" name=\"$i\" value=\"$2\"";
print "<br>";
$i++;

}
else
{
#print "nichts gefunden: $_\n";
}

}
print "<br>";
print "<br>";
print "<input type=\"button\" onclick=\"window.location.reload()\"name=\"test\" value=\"reload\"/>";
print "<input type=\"submit\" value=\"abschicken\">";
print "</body></html>\n";

und möchte nun den Query String auslesen.

PS: Das Programm liest eine Datei ein, filtert dann einen Teil heraus und gibt das in Html aus.
Neben dem ausgelesenen hab ich einen Radio Button gemacht wo man den Eintrage als "checked" markieren kann. Wenn der Radio button checked ist, wir der Eintrag per "get" an die Datei "speichern.pl" geschickt. Nun fehlt mir nur mehr die "speichern.pl" Datei und bei dieser brauche ich eure Hilfe.

Thx im Vorhinein,

mfg Franz Müllner

Datum: 11.11.2005-11:55
Beitragre: Query String auslesen
 Seitenanfang
Hallo,

den QueryString bekommst Du am einfachsten, wenn Du CGI verwendest:

use CGI;

my $query=new CGI;

# die Parameter stehen nun als Hash zur Verfügung:

my %hParameter = $query->Vars();

Gruß Ralf

Datum: 11.11.2005-12:42
Beitragre: Query String auslesen
 Seitenanfang
Danke für die schnelle Antwort,

mfg

Datum: 11.11.2005-13:00
Beitragre: Query String auslesen
 Seitenanfang
Hi,

das geht recht simpel per CGI über die Funktion param().


use strict;
use warnings;
use CGI;
my $cgi = new CGI;
my $p_1 = $cgi->param('p1');
my $p_2 = $cgi->param('p2') ? $cgi->param('p2') : undef;

Die Variante für p_1 würde ich verwenden, wenn 100% sicher ist, dass der Parameter auch übergeben wurde. Die für p_2 wenn es auch sein kann, dass die Variable gar nicht definiert ist. Sonst bläht's Dir die Logdateien unnötig mit Warnungen auf.

-uw

Datum: 17.11.2005-03:02
-






-
 -