Umsetzung eines Konsolenskripts: Hilfe für Perl-Newbie - #9425 (Perl/CGI)

renee

2006-12-30 11:59

User since
2003-08-04
14371 Artikel
ModeratorIn

Du solltest CPAN:

CGI

installieren. Dann sollte es ungefähr so gehen:

Code: (dl )

#!/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};

Übrigens muss in Deinem HTML-Formular bei

Code: (dl )

    <input type="radio" name="EUR" value="radiobutton">

noch value mit name vertauscht werden! (bei dem anderen Radiobutton natürlich auch!)\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/