|
|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/27463aee1331.html, оценка из 5, голосов 10
|