модуль для очистки HTML perl

[ProFTP]

http://ru.wikipedia.org/wiki/Межсайтовый_скриптинг

подскжаите как очистить текст от тэгов разных, чтобы был только только текст, велосипед писать не хочется, в гугле нашел по разному... может есть готовое на cpan.org? (я раньше использовал 2 регулярки)

вот есть модуль:
http://search.cpan.org/~podmaster/HTML- ... crubber.pm

я не знаю как его настроить или как проверить праивльно ли он работает...

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

http://ru.wikipedia.org/wiki/Межсайтовый_скриптинг

та не парься -))) проблема решается много проще, надо эскейпь пять символов

Код: Выделить всё

            '&'  => '&' , 
            '"'  => '"', 
            '\'' => ''', 
            '<'  => '<'  , 
            '>'  => '>'

это намного лучше чем стрипать тэги

[ProFTP]

вот еще нашел, говорят с форума ikonboard

Код: Выделить всё

sub clean {
    my $Tmp = shift;
    return '' unless defined $Tmp;
    $Tmp =~ s|&|&|g;
    $Tmp =~ s|<!--|<&#33;--|g; $Tmp =~ s|-->|-->|g;
    $Tmp =~ s|<script|<script|ig;
    $Tmp =~ s|>|>|g;
    $Tmp =~ s|<|<|g;
    $Tmp =~ s|"|"|g;
    $Tmp =~ s!^\s+!!;
    $Tmp =~ s!\s+$!!;
    $Tmp =~ s|  | &nbsp;|g;
    $Tmp =~ s!\|!&#124;!g;
    $Tmp =~ s|\n|<br>|g;
    $Tmp =~ s|\$|&#036;|g;
    $Tmp =~ s|\r||g;
    $Tmp =~ s|\_\_(.+?)\_\_||g;
    $Tmp =~ s|\\|&#92;|g;
    $Tmp =~ s|!|&#33;|g;
    $Tmp =~ s|\'|'|g;
    return $Tmp;
}
 

[mazay]

Знаю что для граббинга интернет страниц используют LWP::Simple
есть на CPAN

[thefree]

http://www.forum.dklab.ru/viewtopic.php?t=7331