Text nahe bei anderem Text - #175962 (Allgemeines zu Perl)

betterworld

2014-06-10 20:18

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Naja, erstmal die Wörter in der Nähe extrahieren und dann darauf die Suche machen. Du sagst ja, dass es wenige Begriffe sind, deren Nähe untersucht werden soll. Also sollte das doch kein Problem sein.

Code (perl): (dl )

my ($naehe) = $text =~ /(.{,100}sit amet.{,100})/ or die;
my @suchphrasen = ("sed diam");
for (@suchphrasen) {
  warn "ja!" if $naehe =~ /\Q$_/;
}

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class