Användarprofil

#usr/bin/perl 
 
use warnings;
 
use strict; 
 
 
print "Detta program utför 4 olika beräkningssätt på 2 valfria värden. Dessa beräkningssätt är additon, multiplikation, exponention och tetration. \nVar god skriv in det första värdet: "; 
 
my $firstvalue = <STDIN>;  
 
chomp $firstvalue;
 
print "Var god skriv in värde nummer två: ";
 
my $secondvalue = <STDIN>;
 
chomp $secondvalue;
 
if ($secondvalue == 0){
	print "Operationerna kunde inte utföras eftersom det värdet nummer två är '$secondvalue'. Var god försök igen!";
	}
else{
	my $addition = $firstvalue+$secondvalue;
	my $multiplikation = $firstvalue*$secondvalue;
	my $exponention = $firstvalue**$secondvalue;
	my $tetration = $firstvalue**$firstvalue**$firstvalue;
 
	print "Resultaten av beräkningarna är:\nAddition ger: $addition\nMultiplikation ger: $multiplikation\nExponention ger: $exponention\nTetration ger: $tetration\n";
	}