arneolaf Skrevet 7. januar 2006 Skrevet 7. januar 2006 Er det noen som kan forklare følgende kodesnutt, og hvordan en eventuelt kan kalle opp subrutinen? sub write { my ($f, $s) = @_; for (@$f) { for $r (@s) { print if /$r/i; } } }
arneolaf Skrevet 7. januar 2006 Forfatter Skrevet 7. januar 2006 OK, jeg fant det ut. Manglet en $ for bruk i referanser. @array1 = ('JA','nei',1,2); @array2 = ('ja',2,3,4); sub writ { my ($f, $s) = @_; for (@$f) { for $r (@$s) { print if /$r/i; } } } writ(\@array1,\@array2); Denne funksjonen går gjennom og ser om to arrayer har like elementer. /i gjør at det er case-insensitive.
Anbefalte innlegg
Opprett en konto eller logg inn for å kommentere
Du må være et medlem for å kunne skrive en kommentar
Opprett konto
Det er enkelt å melde seg inn for å starte en ny konto!
Start en kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå