|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Litvinuke 2:454/26.8 29 Apr 2001 00:53:03
To : Pavel V. Ammosov
Subject : Отодрать текст от тэгов
--------------------------------------------------------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~і
26 Апр 01 22:10, Pavel V. Ammosov -> All:
>> Поделитесь плиз скриптом, который считывал бы *.htm файл и извлекал
>> оттуда значимый текст свободный от тэгов(без сохранения
>> форматирования), другими словами в результате работы, получался бы
>> текст, который видит пользователь в броузере при просмотре этого
>> файла.
PVA>
PVA> http://links.browser.org/
PVA> ключ -dump
Hу народ вы в корен обленились! :)
10 строк на perl:
open(FILE1,"$ARG[1]") || die "Can't open file $ARG[1]!";
open(FILE2,">$ARG[2]") || die "Can't create file $ARG[2]!";
while (getc(FILE1))
{
if ($_ eq "<")
{
while (getc(FILE1) ne ">") {}
}
print FILE2 $_; # так привык! ;)
}
Сам таким пользуюсь! У меня CGA! :)
________________________________________________________________________і
°°°Litvinuke Alexey(aka Neuron)(C/C++,Perl,Awk support!) 2:454/26.8 °°°
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* Origin: Чем дальше в лес, тем толще партизаны... (2:454/26.8)
* Origin: Один в поле не трактор. (2:454/26.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Отодрать текст от тэгов 
