Gå til innhold

Anbefalte innlegg

Skrevet

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;
       }
   }
}

Videoannonse
Annonse
Skrevet

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.

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 konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...