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

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

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

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

IT-новости

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

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

подробнее

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

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

подробнее

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

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

подробнее

Что такое альтернатива? Это вот что:

Данный фрагмент:

while(<>){

    if(/^exit$/){last}

    if(/^quit$/){last}

    if(/^stop$/){last}

}

Можно заменить этим, с использованием альтернативы:

while(<>){

# это перебор со сравнением с текстом, т.е. если хотя бы

# один фрагмент из альтернативы совпадет с текстом,

# то возвращаемое значение примет истину, т.е. в данном

# случае, если пользователь введет в STDIN, exit или quit или

# же stop, то мы завершим цикл

    if(/^(quit|exit|stop)$/){

           last;

    }

}

Нужно проверить, есть ли в строке слово ALPHA и слово BETA:

$string = "BETALPHA";

if(($string =~ /ALPHA/) and ($string =~ /BETA/)){

    print "OK";

}

Или так:

if($string =~ /(?=.*ALPHA)(?=.*BETA)/){

# так не делать – пример для перекрывающихся совпадений

    print "OK";

}

 

$string =~ /^(?:(?!PAT).)*$/

Выражение истинно, если шаблон /PAT/ не совпадает (аналогично $string !~ /PAT/). Далее насчет конструкций (?=шаблон) и т. д.

В следующем примере ищется слово, за которым следуют три восклицательных знака, но сам пробел не включается в результат поиска:

$string = "One! Two!! Three!!! And some words next...";

$string =~ m/(w+(?=!!!))/;

print $1;

Ответ: Three

Вот неплохой пример, взятый из книги Perl Cookbook.

$string = "1234567890";

@nonlap = $string =~ /(ddd)/g;

@yeslap = $string =~ /(?=(ddd))/g;

print "Non-overlapping: @nonlap ";

print "Overlapping: @yeslap ";

Вот что получается:

Non-overlapping: 123 456 789


Предыдущая страницаОглавлениеСледующая страница
 
[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