#!/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)
{
my $faktor=$zahl;
if ($potenz == 0)
{
$zahl=1;
}
elsif ($potenz > 0)
{
for (my $i = 1;$i <= $potenz - 1;$i = $i + 1) {
$zahl = $zahl * $faktor;
}
}
else
{
$zahl = 1/$zahl;
$faktor = 1/$faktor;
for (my $j = -1;$j >= $potenz + 1;$j = $j - 1){
$zahl = $zahl * $faktor;
}
}
print "Die Lösung ergibt: $zahl
\n";
}
else
{
print "Zahl, Faktor und Potenz müssen Zahlen sein!
\n";
}
print "\n";