Whitespace ausschließen (regex) (Allgemeines zu Perl)

[thread]8889[/thread]

Whitespace ausschließen (regex)

Froschpopo

2007-03-29 16:29

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Hallo :)
Heute grüße ich besonders pq und GwenDragon!

Also ich habe hier folgendes:

Code: (dl )

open BADWORDS, "badwords.db" or die $!;

$found = 0;
for my $word (<BADWORDS>) {
   $found = 1 if $message =~ /$word/;
}

Ich brauche WAHR, wenn $message ein badword enthält.
Funktioniert auch prima, bis auf dass er sowas hier nicht findet:

$message = "b a d word";
welchen switch muss ich umlegen damit auch solche wörter gematched werden?

renee

2007-03-29 16:38

User since
2003-08-04
14371 Artikel
ModeratorIn

Dafür gibt es keinen Switch...

Code: (dl )

open BADWORDS, "badwords.db" or die $!;

$found = 0;
for my $word (<BADWORDS>) {
  (my $tmp = $message) =~ tr/ //d;
  $found = 1 if $tmp =~ /$word/;
}

Nur wenn $message ohne die Whitespaces gleich $word ist, kannst Du es so machen:

Code: (dl )

open BADWORDS, "badwords.db" or die $!;

$found = 0;
for my $word (<BADWORDS>) {
  $found = 1 if $word =~ /$message/x;
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2007-03-29 16:29.