string ve stringu

[Miroslav Šemora]

> $a="abc,uvxy,123456,defgh";
> $b="nejaky string obsahujici 123456 krome jineho";
> $vysledek=jetam($b,$a)
> 
> sub jetam
> {
> my $kde=$_[0];
> my @co=split(/,/,$_[1]);
> for(my $q=0; $q<$#co; $q++)
>     {
>     return 1 if(index($kde,$co[$q]) > -1); }
> return 0;
> }
> 
> Ale neexistuje elegantnejsi reseni?

sub jetam
{
  grep { $_[0] =~ $_ and return 1; } split /,/, $_[1]  ;
}

:-))

> --
> Petr