Keskustelut - Python / Ruby / Perl - PERL taulujen diffaus


ministeri 14:41 10.11.10 
Hei.

Minulla on kaksi taulua:


@dl= ("myn", "oth", "simp", "ff", "deo");
@bl= ("oth, sec);


Nyt minun pitäisi katsoa for-loopissa, että jos dl-taulun[$i] arvo löytyy taulusta @bl.

Eli tähän tyyliin:


for($i=0; $i<@dl; $i++){

if $dl[$i] löytyy taulusta @bl

niin hypätään seuraavaan $i arvoon ja jatketaan.

// tee jotain juttua täällä, jos arvoa ei löydy taulusta @bl

}


Mikä olisi sopiva rohto tähän ongelmaan?
ChickenCount 11:55 25.11.10 
Smart match ~~ (+5.010):


Perl
use strict;

my @dl= ("myn", "oth", "simp", "ff", "deo");
my @bl= ("oth", "sec");

for my $arvo ( @dl ) {
    print "$arvo ei ole taulussa bl\n" if !($arvo ~~ @bl);
}