53 lines
680 B
Perl
Executable File
53 lines
680 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use 5.010;
|
|
|
|
my $var = 5*5;
|
|
|
|
chomp(my $input = <STDIN>);
|
|
|
|
$var *= $input;
|
|
|
|
if ( $var == 100 )
|
|
{
|
|
say $var;
|
|
}
|
|
else
|
|
{
|
|
say "it is not 100";
|
|
}
|
|
|
|
$is_true = $var == 100;
|
|
|
|
if ( ! $is_true )
|
|
{
|
|
say "not true";
|
|
}
|
|
else
|
|
{
|
|
say "true";
|
|
}
|
|
|
|
my $zaehler=0;
|
|
while ($zaehler <= 5)
|
|
{
|
|
say "der zähler steht jetzt auf $zaehler";
|
|
$zaehler += 1;
|
|
}
|
|
|
|
chomp(my $input2 = <STDIN>);
|
|
if ( defined($input2) )
|
|
{
|
|
say "eingabe lautet: $input2";
|
|
}
|
|
else
|
|
{
|
|
say "keine eingabe verfügbar";
|
|
}
|
|
|
|
#umfang berechnung
|
|
print "bitte radius für umfangberechnung angeben: ";
|
|
chomp(my $radius = <STDIN>);
|
|
my $umfang = $radius *= 2*3.141592654;
|
|
say "umfang beträgt: $umfang";
|