#!/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 "