|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vyacheslav Strekozov 2:5005/55.1 01 May 2001 01:35:30
To : Sutovsky Vladimir
Subject : Отодрать текст от тэгов
--------------------------------------------------------------------------------
Сижу я, значится, почту читаю, никого не тpогаю, а тут
Mon Apr 30 2001 14:12, Sutovsky Vladimir пишет к Alexey Litvinuke:
>>>> Поделитесь плиз скриптом, который считывал бы *.htm файл и
>>>> извлекал оттуда значимый текст свободный от тэгов(без сохранения
>>>> форматирования), другими словами в результате работы, получался
>>>> бы текст, который видит пользователь в броузере при просмотре
>>>> этого файла.
SV> гм.... а не проще сделать например прочитав строку в переменную $text
SV> такое:
SV> open RF, "$filename" || die "can't open";
SV> while (<RF>) {
SV> $text=$_;
SV> $text =~ s/<([a-zA-Z]|\/[a-zA-Z])[^>]*>//g;
SV> print $text;
SV> }
SV> close RF;
SV> ну или в файл писать, смотря что надо
Hе проще,
своим скриптом ты оставляешь нетронутыми яваскрипты на страничке.
Спокойной ночи, девочки и мальчики.
e-mail: slava@ w2.ru
--- GoldED/W32 3.0.1
* Origin: << Jedem das Seine >> (2:5005/55.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
