Распарсить строку

[pikasun]

Помогите на Perl распарсить строку.
_http://192.168.10.210/site/mail.ru_

Без нижних подчеркиваний разумеется
и там и там.

В итоге получить _http://mail.ru_

 

[antidote]

Подозреваю что не самый оптимальный вариант:

$[url]http://(?:.*)/([/url][a-zA-Z0-9\.\-]+)$

 

[Abliganto]

Подозреваю что не самый оптимальный вариант:

$[url]http://(?:.*)/([/url][a-zA-Z0-9\.\-]+)$

Тогда уж проще

$http://(?:.*)/([^/]+)$

 

[satih]

В таких случаях обычно оптимальные варианты не нужны, хотя для айпи есть регексп не слишком короткий если просто замена в небольшом тексте, то ради удобства может пострадать скорость, будет незаметно (если действие линейное), только если уж "удобно" писать, то:

$http://.*?/([^_]*)$

 

[legendar]

мне кажется ТС хотел это:

$(http://).*?/site/(.*)$

 

[pikasun]

if ($ip_urls{$el}[$i]=~ s/$(http://).*?/site/(.*)$/123/) {

Поправьте чего с синтаксисом не так? Я так понимаю фильтрацию где-то промаргал?
Ругается на эту строку. Заместо 123 необходимо вставить выражение отражающее именно адрес т.е тот же (.*)

Скрипт перловый.

 

[Miraage]

Помогите на Perl распарсить строку.
_http://192.168.10.210/site/mail.ru_
Без нижних подчеркиваний разумеется
и там и там.
В итоге получить _http://mail.ru_

только включи соотв. модификаторы соотв, либо в строку переделывай

$
    (?<=    
        http://[\d.]+/(\w+)/    # слева идет http://ip_адрес/сайт/  
    )    
    [\w-.]+                     # а затем и сам сайт, который мы ловим в "карман"
$

 

[RolCom]

У тебя в самой регулярке встречаются символы, являющиеся ограничителями регулярки. Естестно, компилятор не сможет разобраться в этом.
Замени ограничивающие символы

f ($ip_urls{$el}[$i]=~ s{$(http://).*?/site/(.*)$}{123}) {

И не стоило копипастить того что тут тебе все понаписали.
$(Для просмотра ссылки Войди или Зарегистрируйся - конец строки, за которым идет Для просмотра ссылки Войди или Зарегистрируйся