Kursmester
27 lines
1.1 KiB
Perl
27 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
use strict; use warnings;
|
|
|
|
## Å bryte ut av looper i Perl
|
|
# Når man skal bryte ut av looper er Perl litt rart. Alt heter noe annet enn
|
|
# det gjør i andre språk! Dette er jo skikkelig teit, men man venner seg
|
|
# til det ganske fort. Jeg tipper grunnen er at perl ble laget for å parse
|
|
# tekst, og da virket disse navnene mer logiske.
|
|
#
|
|
# En liten tabell:
|
|
# +------+-------------+---------------------------------------------+
|
|
# | Perl | Andre språk | Betydning |
|
|
# +------+-------------+---------------------------------------------+
|
|
# | next | continue | Hopp over det som er nedenfor og kjør neste |
|
|
# | | | runde i loopen |
|
|
# +------+-------------+---------------------------------------------+
|
|
# | last | break | Avbryt kjøringen av hele loopen |
|
|
# +------+-------------+---------------------------------------------+
|
|
|
|
# Eksempel på next:
|
|
foreach my $tall (1, 2, 3) {
|
|
if ($tall == 2) {
|
|
next;
|
|
}
|
|
print "tallet er $tall!\n";
|
|
}
|