![]() |
|< 1 2 >| | ![]() |
18 Einträge, 2 Seiten |
QuoteNochmal der Hinweis: Es ist keine separates HTML-Datei nötig, da das CGI ein Formular generiert, wenn es ohne einen action-Parameter aufgerufen wird.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header();
my $factor = 1.95583;
my $result = 0;
my $origin = 'EUR';
if($params{radiobutton} eq 'EUR'){
$origin = 'DM';
$result = $params{betrag} / $factor;
}
else{
$result = $params{betrag} * $factor;
}
print $params{betrag}," ",$origin," entspricht ",$result," ",$params{radiobutton};
<input type="radio" name="EUR" value="radiobutton">
![]() |
|< 1 2 >| | ![]() |
18 Einträge, 2 Seiten |