Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

}

 

print $string;

Вот какой результат будет: здесь КаКиЕ-нибудь СлОвА и ЧтО-нибудь ЕщЕ...

Программа Urlify из книги Perl Cookbook:

$urls = '(http|telnet|gopher|file|wais|ftp)';

$ltrs = 'w';

$gunk = '/#~:.?+=&%@!-';

$punc = '.:?-';

$any  = "${$ltrs}${$gunk}${$punc}";

 

while(<>){

    s{($urls:[$any]+?)(?=[$punc]*[^$any]|$)} {<a href="$1">$1</a>}igox;

    print;

 

}

Определение своих тегов:

$string = "some text, <uc>some uppercase text</uc>, than normal text <uc>and uppercase text again</uc>";

$string =~ s#<uc>((?:(?!</uc>).)*)</uc>#uc($1)#igmse;

print $string;

Результат такой: some text, SOME UPPERCASE TEXT, than normal text AND UPPERCASE TEXT AGAIN

Вложенные теги не поддерживаются.

Хочу сказать пару слов о «доставании» атрибутов из HTML-тегов, если вы не уверены в структуре, тогда это надо делать через модули типа HTML::Parser и подобные ему. А если вам нужна скорость и может быть потеря нескольких ссылок, тогда воспользуйтесь моим решением:

$href = qq~<a href = "JavaScript: alert('cmon')" ї

    title =" cmon "> test </a>

<a href='new.htm'>new link</a>

~;

sub cut_tag{

    my($tag,$param,$text)=@_;

    my(@mas,$param_line);

    if($tag and $param and $text){

           while($text =~ m#<($tag)(.+?)>(.*?)</1>#igso){

                 $param_line = $2;

                 if($param_line =~ /$param/i){

                 $param_line =~ m/$params*=s*(["']?) (.*?)1/ogis;

                        push(@mas,$2);

                 }           


Предыдущая страницаОглавлениеСледующая страница
 
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020]
[021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040]
[041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060]
[061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080]
[081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100]
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140]
[141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2016 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100