Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Re: Отодрать текст от тэгов   Pavel V. Ammosov   26 Apr 2001 22:10:11 
 Отодрать текст от тэгов   Alexey Litvinuke   29 Apr 2001 00:53:03 
 Re: Отодрать текст от тэгов   Pavel V. Ammosov   29 Apr 2001 18:45:32 
 Re: Отодрать текст от тэгов   Sutovsky Vladimir   30 Apr 2001 14:12:32 
 Отодрать текст от тэгов   Vyacheslav Strekozov   01 May 2001 01:35:30 
 Отодрать текст от тэгов   Alexey Litvinuke   01 May 2001 01:38:03 
 Руками, все надо делать руками   vilfred   01 May 2001 23:45:46 
 Руками, все надо делать руками   Alexey Litvinuke   02 May 2001 07:04:54 
 Re: Руками, все надо делать руками   vilfred   03 May 2001 19:00:16 
 Re: Руками, все надо делать руками   Artem Chuprina   03 May 2001 19:10:28 
 Re: Руками, все надо делать руками   vilfred   03 May 2001 19:18:33 
 Руками, все надо делать руками   Sanyo Titaev   04 May 2001 01:03:13 
 Отодрать текст от тэгов   Alexey Litvinuke   30 Apr 2001 23:35:08 
 Re: Отодрать текст от тэгов   Artem Chuprina   03 May 2001 12:19:28 
 Отодрать текст от тэгов   Alexey Litvinuke   03 May 2001 23:49:53 
 Re: Отодрать текст от тэгов   Artem Chuprina   04 May 2001 12:12:27 
 Отодрать текст от тэгов   Alexey Litvinuke   05 May 2001 00:27:08 
 Отодpать текст от тэгов   Alexey Vasyunin   03 May 2001 01:03:07 
 Отодpать текст от тэгов   Alexey Litvinuke   05 May 2001 00:24:52 
Архивное /ru.perl/134283aeb674e.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional