#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
$daten = <>;
@daten = split("",$daten);
splice(@daten,3,5);
shift@daten;
splice(@daten,1,1);
@zahl = @daten;
pop @zahl;
$zahl = join("",@zahl);
@potenz = splice(@daten,1,1);
$potenz = join("",@potenz);
print "Content-type: text/html \n\n";
print "Potenzen-Rechner\n";
print "";
my $faktor = $zahl;
if ($potenz == 0) {
print "Die Lösung ergibt: 1
\n";
exit;
}
else {
if ($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";
print "\n";