26 lines
681 B
Perl
26 lines
681 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## Logikk med tallverdier
|
|
# Logikk i perl ligner veldig på andre språk som C, PHP og Java.
|
|
# 0, tom streng og udefinert er false, det meste annet er true (som i PHP).
|
|
# IKKE utnytt dette for mye. Det blir vanskelig å lese. Test bare rett på
|
|
# variabelen om du bruker variabelen som en boolean.
|
|
|
|
# Booleans (1 = sant, 0 = usant):
|
|
my $boolean = 1;
|
|
if ($boolean) {
|
|
print "\$boolean er sann!\n"; # Dette skjer.
|
|
} else {
|
|
print "\$boolean er usann!\n"; # Dette skjer ikke.
|
|
}
|
|
|
|
my $tall = 15;
|
|
if ($tall > 10) {
|
|
print "\$tall er over 10!\n";
|
|
}
|
|
elsif ($tall < 5) { # elsif står for "else if"
|
|
print "\$tall under over 5!\n";
|
|
}
|