Dezimalzahlen ausgeben - #142036 (Allgemeines zu Perl)

topeg

2010-10-19 11:03

User since
2006-07-10
2611 articles
BenutzerIn

user image

Das ganze etwas kürzer ;-)

Code (perl): (dl )

#!/usr/bin/perl -w
# bitte immer "strict" und "warnings" nutzen
use strict;
use warnings;
# Programm ist ein CGI
use CGI;
# Fehler an den Browser
use CGI::Carp qw(fatalsToBrowser);

# CGI initialisieren
my $cgi=CGI->new();
# Header senden WICHTIG!
print $cgi->header();

# alle werte holen
my $zahl=$cgi->param('zahl') || 0;
my $potenz=$cgi->param('potenz') || 0;
# HTML einleiten
print "<html><body>";

# sind alles Zahlen?
# testen mit einem regulären Ausdruck
my $regexp=qr(^[+-]?\d+$);
if($zahl=~$regexp && $potenz=~$regexp)
{
  $zahl=$zahl**$potenz;
  print "<h1>Die Lösung ergibt: $zahl</h1>\n";
}
else
{
  print "<h1>Zahl und Potenz müssen Zahlen sein!</h1>\n";
}
print "</body></html>\n";