26 lines
695 B
Perl
26 lines
695 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Men hva med to arrays? @_ vet jo ikke når den ene slutter og den andre
|
|
# begynner! Da må vi til med referanser igjen!
|
|
|
|
sub tell_penisforlengere (\@\@) {
|
|
my @biler = @{ $_[0] };
|
|
my @baater = @{ $_[1] };
|
|
|
|
print "Det er ".scalar @biler." bilær og ".scalar @baater."båtær\n";
|
|
}
|
|
|
|
my @biler = ('mercedes', 'porsche', 'austin martin');
|
|
my @baater = ('sjekte', 'campingcruiser', 'yacht', 'pråm');
|
|
|
|
tell_penisforlengere(\@biler, \@baater);
|
|
|
|
# Hva er disse backslashene? Bare en annen måte å lage referanser på.
|
|
# I C ville de tilsvart '&var'. Hvilken du bruker er hipp som happ.
|
|
# Disse gjør det samme:
|
|
my $biler;
|
|
$biler = [ @biler ];
|
|
$biler = \@biler;
|