Umsetzung eines Konsolenskripts: Hilfeeee!

[Struppi]

den ersten Schritt habe ich jetzt gemacht. Es müssen aber weitere noch folgen.

Ja, vor allem hättest du den Hinweis auf das CGI Modul lesen sollen. Das ist für CGI Anwendungen das A&O (bis zu einer gewissen Größe) und bietet alles an Funktionen die du brauchst.

Mit dem Modul sähe deine Anwendung in etwa so aus (inkl Formularausgabe):

#! /usr/bin/perl -w  
use strict;  
use CGI;  
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);  
print CGI::header();  
print CGI::start_html();  
  
if( CGI::param('submit') )  
{  
     my $betrag = CGI::param('betrag') || 0;  
     my $wahl = CGI::param('button');  
     $betrag =~ tr/,/./;  
     my $ausgabe = $wahl eq 'DM2EUR' ? $betrag / 1.95583 : $betrag * 1.95583;  
     my $einheit_vorher = $wahl ne 'DM2EUR' ? 'EUR' : 'DM';  
     my $einheit_nacher  = $wahl eq 'DM2EUR' ? 'EUR' : 'DM';  
     print CGI::p( sprintf '%.2f %s sind %.2f %s', $betrag, $einheit_vorher, $ausgabe, $einheit_nacher);  
}  
print formular();  
print CGI::end_html();  
  
sub formular  
{  
    return CGI::start_form()  
    . CGI::p( 'Geben Sie bitte den umzurechnenden Betrag ein:')  
    . CGI::p( CGI::textfield( -name => "betrag") )  
    . CGI::p('Wählen Sie bitte eine Option aus:')  
    . CGI::radio_group(-name => 'button', -labels => { 'DM2EUR' => 'DM zu EUR', 'EUR2DM' => 'EUR zu DM'},  
    -values => [ 'DM2EUR', 'EUR2DM' ]  
    )  
    . CGI::p( CGI::submit( -name => 'submit', -value => 'Umrechnen') )  
    . CGI::end_form()  
    ;  
}  

Struppi.