Opened by subi at 2006-12-29 20:11
User since
2006-12-29
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-12-29
6 Artikel
BenutzerIn
Hallo Ronnie,
Ja, es ist ein Window-Rechner und der Pfad zum Per-Interpreter ist in Ordnung. Andere pl-Skripte funktionieren reibungslos.
Es muss ja ein HTML-Formular zur Eingabe benutzt werden und zwar dieses:
und der pl-skript muss im cgi-ordner gespeichert werden. Wie gesagt, es geht lediglich darum, dieses Konsolenskript umzuschreiben, damit es in HTML augegeben werden kann.
HTML-Formular --> pl-Skript --> Ausgabe in HTML
MfG
Ja, es ist ein Window-Rechner und der Pfad zum Per-Interpreter ist in Ordnung. Andere pl-Skripte funktionieren reibungslos.
Es muss ja ein HTML-Formular zur Eingabe benutzt werden und zwar dieses:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Währungsrechner</title>
</head>
<body>
<form action="/cgi-bin/calculator.pl" method="post">
<p>Geben Sie bitte den umzurechnenden Betrag ein:</p>
<p>
<input name="betrag" type="text" id="betrag">
</p>
<p>Wählen Sie bitte eine Option aus:</p>
<p>
<input type="radio" name="EUR" value="radiobutton">
DM zu EUR</p>
<p>
<input type="radio" name="DM" value="radiobutton">
EUR zu DM</p>
<p>
<input type="submit" name="Submit" value="Umrechnen">
</p>
</form>
</body>
</html>
und der pl-skript muss im cgi-ordner gespeichert werden. Wie gesagt, es geht lediglich darum, dieses Konsolenskript umzuschreiben, damit es in HTML augegeben werden kann.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!usr/bin/perl
print "Geben Sie den umzurechnenden Betrag ein:\n";
$input1= <STDIN>;
chomp ($input1);
$input1 =~ tr/,/./;
$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "Waehlen Sie bitte eine Option aus:\n";
print "DM zu EUR (1)\n";
print "EUR zu DM (2)\n";
$input2 = <STDIN>;
chomp ($input2);
$EUR = $input1/1.95583;
$DM = $input1*1.95583;
$EURFormatiert = sprintf("%.2f", $EUR);
$DMFormatiert = sprintf("%.2f", $DM);
if ($input2 == 1)
{
print "$input1 DM sind $EURFormatiert EUR\n";
}
elsif ($input2 == 2)
{
print "$input1 EUR sind $DMFormatiert DM\n";
}
else
{
print "Die Option $input2 existiert nicht!\n";
}
HTML-Formular --> pl-Skript --> Ausgabe in HTML
MfG