RE: Помогите выделить тэги в Perl

DarkPerl — Sat, 27 Oct 2001 21:51:00 GMT

Всем большое спасибо, тему можно закрывать, свою проблему уже решил :))

RE: Помогите выделить тэги в Perl

-Dark- — Sat, 27 Oct 2001 16:50:00 GMT

2spartak

это пример исключтельно для того варианта который DarkPerl предложил.
:)

2DarkPerl
смотря для чего тебе надо их вырезать? если тебе надо просто удалить из текста все теги - то могу посоветовать свой собственный парсер:
[code]
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val =~ s///g;
$val =~ s/<([^>]|
)*>//g;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;
if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";
}
}

[/code]
здесь текст перекодируется если в нем есть символы вида %XX (так русский в урлах передается), и вырезаются все теги.
Резка тегов более-менее умная и почти всегда устраивает, но вообще для этих целей существует модуль LWP. Это глобальный набор модулей на все случаи жизни для веб-програминга. В него входит модуль HTML::Parser который занимается именно разбором HTML. У него это получается намного лучше.

А вообще вопрос написания парсера, многими ОЧЕНЬ недооценивается! Резать абсолютно правильно очень и очень непросто... Вот только некоторые примеры вполне нормального HTML, с которыми возникают траблы почти у всех...
Пример 1:
[code]
<img src="1.gif" alt="A > B">
[/code]
Пример 2:
[code]
<script>if (a<b && b>a) {}</script>
[/code]
Пример 3:
[code]

[/code]

а теперь все дружно проверили, как у них реагируют ИХ обработчики на такой код...:)

RE: Помогите выделить тэги в Perl

spartak0 — Fri, 19 Oct 2001 10:30:00 GMT

$t = "<OS><Linux></OS>";
print $t,"
";
if ($t =~ /(<\w+>)(<\w+>)(<\/\w+>)/) {
print $1, " ",$2, " ", $3;
}

Помогите выделить тэги в Perl

DarkPerl — Thu, 18 Oct 2001 19:21:00 GMT

Помогите плиз решить проблему. Допустим в .txt-файле есть строка типа [code]<OS><Linux></OS>[/code]
С помощью каких функций или кода можно разбить эту строку на подстроки вида <OS>, <Linux> и </OS>

Релиб / Веб-программирование / Perl / Помогите выделить тэги в Perl / Latest Posts

RE: Помогите выделить тэги в Perl

RE: Помогите выделить тэги в Perl

RE: Помогите выделить тэги в Perl

Помогите выделить тэги в Perl