19 lines
349 B
Perl
19 lines
349 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Å sende inn og ut arrays fra subrutiner er lett:
|
|
|
|
# En skikkelig unødvendig og teit subrutine som sorterer mot alfabetet:
|
|
sub descsort (@) {
|
|
my @array = @_;
|
|
my @output = reverse sort @array;
|
|
return @output;
|
|
}
|
|
|
|
my @array = ('hei', 'hå', 'aha');
|
|
foreach my $ord (descsort(@array)) {
|
|
print "$ord\n";
|
|
}
|
|
|