26 lines
703 B
Perl
26 lines
703 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## Foreach-loopen
|
|
# Denne er litt spesiell. Man har noe lignende i PHP, men syntaksen er ulik.
|
|
# Foreach går gjennom hvert element i en liste.
|
|
|
|
my @array = ('gunnar', 'ottar', 'per ulf');
|
|
|
|
# Legg merke til at løpevariabelen $verdi angis utenfor parentesen!
|
|
foreach my $verdi (@array) {
|
|
print "$verdi\n";
|
|
}
|
|
|
|
# Man kan også bruke foreach til å løpe over alle nøklene i en hash:
|
|
my %hash = ( 'uid' => 3425, 'bnavn' => 'ottar', 'rnavn' => 'Ottar Evje' );
|
|
|
|
# Kommandoen "keys" gir ut en array med alle nøklene i hashen, så dette er
|
|
# egentlig akkurat det samme.
|
|
foreach my $key (keys %hash) {
|
|
print $key . " = " . $hash{$key} . "\n";
|
|
}
|
|
|
|
# Foreach er dritnyttig!
|