Recover from microbel

foiler/12_foreach.pl

@@ -0,0 +1,25 @@
+#!/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!