20 lines
377 B
Perl
20 lines
377 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## While-loop
|
|
# En while-loop i perl virker akkurat som i andre språk. Yay!
|
|
|
|
my $counter = 0;
|
|
while ($counter < 10) {
|
|
print "tallet er $counter\n";
|
|
$counter++; # Øker $counter med 1
|
|
}
|
|
|
|
## For-loop
|
|
# Virker også som i andre språk! Hurra!
|
|
|
|
for (my $tall = 0; $tall < 10; $tall++) {
|
|
print "tallet er $tall\n";
|
|
}
|