> Hallo everyone and thank you for your previous help > > in basic the code would be > > for x=1 to 100 > Select Case > Case=10,20,30,40,50,60,70,80,90 > then do this > else > else do this > end select > next x > > how is this done in perl? > > foreach (10,20,30,40,50,60,70,80,90); > { > do this; > } > > ???? I think I need to unpack my books! (i'm moving)LOL > Lou >
Well there is the FAQ about case statements: perldoc -q 'switch or case' In your case (pun intended) assuming the list is formed as you have it, then you could do, foreach my $index (1 .. 100) { unless ($index % 10) { # multiple of ten } else { # not a multiple of ten } } If your matches are not quite so nice, my @list = (1, 15, 23, 67, 89); foreach my $index (1 .. 100) { if (grep $index == $_, @list) { # case matched } else { # non match } } All code untested, HTH, http://danconia.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>