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