Perl auf Websites

Greg10

Morgen, könnte mir mal bitte jemand erklären wie ich bitte die Eingaben in einer Perl Datei, zum funktionieren birngen könnte? Z.b. hier:

Code

$i = <stdin>;
$i2 = $i + rand();

Die Ausgabe sieht dann z.b. so aus:

0.84876748577

Der Nachteil ist dann natürlich das man keine möglichkeit hatte die 1. Variable einzugeben ($i). Wie kann ich das bitte ändern? Ich dachte schon daran die Eingabe per html zu machen, es mit php in einer .txt abzuspeichern und dann per Perl auszuwerten, aber das wäre dann sehr viel aufwändiger und ich bräuchte ein bisschen Hilfe damit, wie ich z.b. den html-quellcode schreiben soll um unendlich vbiele Eingaben nach angabe der Menge zu ermöglichen und etwas Hilfe um diese aus der .txt datei per Perl auszulesen (am besten ohne diese % oder @ Listen!).
Bin für hilfe egal in welche Richtung sie geht sehr dankbar!

Dragon-D

warum willst du es denn in eine text datei schreiben? und dann auch noch mit php und dann erst mit perl auswerten? kannst doch gleich bei php oder perl bleiben... was soll denn <stdin> sein?

also so wie ich das verstanden habe, möchtest du $i selber bestimmen und dann einfach ein rand wert hinzufügen?

dazu hast du einfach ein formular, das etwa so aufgebaut ist

und in deinem perlscript kannst du dann einfach den übergebenen wert nehmen

Greg10

Oh, danke nun das mit php-perl-Gemisch sollte nur eine von mir erdachte Option sein.....

Aber trotzdem danke!

Greg10

Funktioniert nicht...

Code

#!/usr/local/bin/perl
print "Content-Type: text/html\r\n\r\n";
print "<htm><head></head><body>";
$user = "hallo";
if ($pswd eq $user) {
	print "


Hallo, User!</p>


[url='Website']Zur Website[/url]</p>";
	print "</body></htm>";
}

Alles anzeigen

Bekomme beim ausgeben nur:

Zitat

''

obwohl ich $pswd schon mit deinem Fomular definiert hab'
Hat jemand ne Ahnng warum das nicht funzt?

Schonmal Daaange im voraus!

Dragon-D

also ich sehe nirgendwo, dass du $pswd hast... du kannst nicht wie bei php einfach per variable auf deine übergabe parameter zugreifen...
du musst da sowas machen:

HTML

#!/usr/local/bin/perl 
use CGI qw(:standard);
print "Content-Type: text/html\n\n";
$query = new CGI;
# hier holst du dein übergabe parameter
my $pswd = $query->param('pswd');
my $user = "hallo";
print "<html><head></head><body>";
if ($pswd eq $user) {
    print "


Hallo, User!</p>


[url='Website']Zur Website[/url]</p>";
} else {
    print "Hier kommst du nicht weiter";
}
print "</body></html>";

Alles anzeigen

Greg10

Dannnge schöön, probiers gleich aus!
(Wie konnt ich nur so dämlich sein?! )
Klapppt!
Nochmal Danke!

Tags