26 lines
479 B
Perl
26 lines
479 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## Logikk med tekstverdier
|
|
|
|
# Dere som kan PHP er vant til å bruke "==" på tekststrenger. Det virker
|
|
# IKKE i Perl! I Perl er det egne greier for å sammenligne ord.
|
|
|
|
# De viktigste:
|
|
# eq: er lik
|
|
# ne: er ikke lik
|
|
|
|
my $tekst = "banan";
|
|
if ($tekst eq "banan") {
|
|
print "\$tekst er lik banan\n";
|
|
}
|
|
|
|
if ($tekst ne "eple") {
|
|
print "\$tekst er ikke lik eple\n";
|
|
}
|
|
|
|
if (length($tekst) > 3) {
|
|
print "\$tekst er mer enn tre tegn lang\n";
|
|
}
|