Strings auf gemeinsamkeit vergleichen

[Matti Maekitalo]

use Mosche;

$text = "Hallo, dies ist ein sehr langer Text, aber der ist mir zu lang.";

$textB = "sehr langer Text, aber ist mir";

Nun möchte ich vergleichen, ob string $textB textstellen aus $text enthällt.

Was meinst du mit Textstellen? Reicht es hier auch, gleiche Wörter zu haben?

Dann könntest du das etwa so machen (ungetestet):

my @text  = split(/[, ]+/, $text);
my @textb = split(/[, ]+/, $text);

Statt Komma und Leerzeichen müssen hier alle Worttremmer aufgelistet sein-

my $found = 0;

foreach my $t (@text) {
  ++$found if grep { $t eq $_ } @textb;
}

Ansonsten definier mal näher, was du mit Textstellen meinst.

use Tschoe qw(Matti);