|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Litvinuke 2:454/26.8 30 Apr 2001 23:35:08
To : Sutovsky Vladimir
Subject : Отодрать текст от тэгов
--------------------------------------------------------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~і
30 Апр 01 14:12, Sutovsky Vladimir -> Alexey Litvinuke:
AL>> Сам таким пользуюсь! У меня CGA! :)
SV>
SV> гм.... а не проще сделать например прочитав строку в переменную $text
SV> такое:
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у уж, если действительно говорить о более коротком варианте,
строчку "$test=$_ ;" можно опустить и заменять непосредственно в $_ .
Действительно так будет правильней, т.к. если пара для < не будет найдена,
то мой алгоритм зациклится... Однако у меня есть отговорка! :) Когда я это
писал, а это было 2 года назад, об регулярных выражениях я никакого понятия
не имел, так как только начал читать литературу... ;-)
________________________________________________________________________і
°°°Litvinuke Alexey(aka Neuron)(C/C++,Perl,Awk support!) 2:454/26.8 °°°
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* Origin: Пиво - Рулез (2:454/26.8)
* Origin: Один в поле не трактор. (2:454/26.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
