Dotaz: per - práce s textem. s l o v o => slovo

[motorcb]

Zdravim.
Pokousim se vyresit nasledujici problem:

my $promena="tady ne nejaky text. a tady se vyskytuje hambaty slovo V I A G R A ktere se snazi maskovat";

a ja bych potreboval odhalit maskovane slovo V I A G R A samoyrejme se takto muze maskovat vice slov (p o r n o, c a s i n o,....) Dokazal by nekdo vymyslet regularni vyraz,ktery by odhalil maskovana slova s mezerou?

my $promena="tady ne nejaky text. a tady se vyskytuje hambaty slovo VIAGRA ktere se snazi maskovat";

Dekuji za jakekoliv nakopnuti :)

Odpovědi

[Honza Balák]

Co takhle pomocí reg. výrazu vymazat všechny mezery a potom testovat přítomnost nežádoucích slov...?

[motorcb]

Ja nemam predem dano,jake to budou slova. Melo by to byt univerzalni aby to poznalo jak S E X , P E N I S, P O R N O. Aby to proste slepilo vsechny pismena mezi kterema je mezera, ale at zkousim co zkousim,nemohu to vyresit :(

[petr_p]

echo "a ja bych potreboval odhalit maskovane slovo V I A G R A
samoyrejme se takto muze maskovat vice slov (p o r n o, c a
s i n o,....) Dokazal by nekdo vymyslet regularni
vyraz,ktery by odhalil maskovana slova s mezerou?" | \
grep -o -P '\b(\S\s){3,}\S\b'
V I A G R A
p o r n o
s i n o

[motorcb]

V perlu by to mozne nebylo? :)

[petr_p]

Chtěl jste perlový regulární výraz, ten tam je. Nebo tu chcete návod na operátory // a =~?

[motorcb]

Bohuzel,tento kus kodu zadnou zmenu s vetou neudela :( Nebo jsem to spatne zapsal?! Diky,uz jsem z toho fakt na prasky :(

$veta =~ s/|\grep -o -P '\b(\S\s){3,}\S\b'//g;

[happy barney]

$veta =~ s/(\b(\S\s){3,}\S\b)/print $1, "\n";""/ge;

[motorcb]

Pokousim se udelat ochranu pred smapamem na foru,ale perl se teprve ucim a mam s nim problemy :(

Treba ted to funguje dobre,ale me by se hodilo kdyby to predelalo tu promenou a nechalo v ni data. Aby vysledek promene byl:

$veta="nejaky text PORNO zase nejaky text";

Nevedel by prosim nekdo jak to upravit? Aby se zmenil obsah promene $veta? A aby se spamove slovo nedavalo do $1 ? Diky moc :) kod:

#!/usr/bin/perl
my $veta="nejaky text P O R N O zase nejaky text";
$veta =~ s/(\b(\S\s){3,}\S\b)/print $1, "\n";""/ge;
print $veta;

vysledek:

delli:~/perl/# ./mezera.pl
P O R N O
nejaky text  zase tetx

[happy barney]

skúste na to ísť zo známeho zoznamu hľadaných slov

@banned = map {
  '\\b' . join ('\\W*', split //) . '\\b'
} qw ( porno viagra );
for my $regex (@banned) {
  next unless $text =~ m/$regex/i;

  print "nasiel som\n";
  last;
}

[Josef Kufner]

Pokousim se udelat ochranu pred smapamem na foru,ale perl se teprve ucim a mam s nim problemy :(

Na to je tohle příliš složité a nespolehlivé. Zkus zabudovat nějakou ochranu přímo do odesílacího formuláře, ale tak aby neobtěžovala uživatele. Třeba něco jako kontrolní otázku, která se javascriptem vyplní a schová. Článků na tohle téma bylo napsáno už mnoho...

[Josef Kufner]

To se snažíš implementovat spamassassin?

[Honza Balák]

Na mě to působí jako pokus o ochranu webového fóra...