Модераторы: ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скобка в теге пропущена 
:(
    Опции темы
Сisa
Дата 21.12.2014, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 18.1.2013

Репутация: нет
Всего: нет
Код

#!/usr/bin/perl
use v5.18;
my @strings = ('vhg<span>ab555cdspan>',
               '<div>ab555cddiv>',
               '<span>abcdspan><span>abcn/span><div>ygrdresdiv>',
               '<div>89540div><span>ab111111cd/span><span>abcnspan><div>ygr22222222dres/div>');
print @strings,"\n";
for my $string (@strings) {my($s,$s2,$s3);
    $string =~ s{(<(\w+).*?>)|((<?)(/?)(\w+)>)}{
      ($6 and $s)?
        do{
           (!$5 and !$4 )?
             do{
                 $s2=$s;
                 $s3=$s;
                 $s='';
                 $s2=(split($s2,$6))[0];
                $s2.'</'.$s3.'>'
             }:
             do{
              ($5 eq '/' and !$4)?
                do{
                 $s2=$s;
                 $s3=$s;
                 $s='';
                 '</'.$s3.'>'
                }:
                $1
             }
        }:do{
         $s = $2;
         $1
        }
    }eg;
}  print @strings,"\n";


Это сообщение отредактировал(а) Сisa - 21.12.2014, 15:56
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Регулярные выражения | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0609 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.