вытащить текст по критериям

[ProFTP]

что-то я туплю

хотел решить элементарную задачу

нужно обработать регулрным выражением 2 строки

есть 2 возможных варианта:

$hhh = 'wiki/999/44/page_co/11';

$hhh = 'wiki/999/1/page_co/11';

(цифры для примера, т.е. цифры для примера, я так понимаю (\d+))

почему данный код не работает?

Код: Выделить всё

$hhh = 'wiki/999/page_co/11';

# $hhh = 'wiki/999/page_co/11';

print $hhh =~ /^wiki\/(\d+)(?:\/(\d+))\/page_co\/(\d+)$/;

print $1.'  '.$2.'   '.$3;

мне казалось что очевидно дожно работать, но не работает....

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Гость]

Как я понял из манов по перлу: (?:regex) - говорит, что не нужно то, что совпало записывать в переменную $1(или там 2,3...).
То есть вот эта конструкция:

Код: Выделить всё

$hhh =~ /^wiki\/(\d+)(?:\/(\d+))\/page_co\/(\d+)$/;
                            $1            $2                       $3

эквивалентна

Код: Выделить всё

$hhh =~ /^wiki\/(\d+)(\/(\d+))\/page_co\/(\d+)$/;
                             $1  $2  $3                      $4

только отличается лишь тем, что во второй используется $1 $2 $3 и $4.
То есть, чтобы оно работало надо после (?:regex) поставить ? или *(ну или {...}).

У меня с такой вот штукой:

Код: Выделить всё

$hhh =~ /^wiki\/(\d+)(?:\/(\d+))?\/page_co\/(\d+)$/;

выводится с $hhh = 'wiki/999/page_co/11';

Код: Выделить всё

         Use of uninitialized value in concatenation (.) or string at ./1.pl line 8.
         999      11

а с $hhh = 'wiki/999/1/page_co/11';

Код: Выделить всё

         999   1   11

Не знаю то ли это или не то, но может поможет...

[zg]

/^wiki\/(\d+)(?:\/(\d+))\/page_co\/(\d+)$/;

а не проще по слешам разбить? и из массива взять нужные занчения

[ProFTP]

То есть, чтобы оно работало надо после (?:regex) поставить ? или *(ну или {...}).

да, спасибо, забыл отписатся, нашел что со всем забыл про "знак вопроса", число совпадений...

мне приходилось только или парсить и вытаскивать, или искать, или заменять всегда....

я делал только то что мне надо было, надо будет какие-то практически задачки порешать, чтобы знать, чтоли...?
хотя, в perl5.10 очень много всего добавили...

/^wiki\/(\d+)(?:\/(\d+))\/page_co\/(\d+)$/;

а не проще по слешам разбить? и из массива взять нужные занчения

лучше, но тут надо написать регулярное выражение в атрибут метода класса (чтобы данный метод загрузился когда идет такая url в событиях во фремворке Catalyst), там именно так и сделано, оно идет потом в массив... @$c->req->captures

вроде бы работает

Код: Выделить всё

sub wiki_page_co : Regex('^wiki\/(\d+)(?:\/(\d+))?\/page_co\/(\d+)$')  { 
        my ( $self, $c ) = @_;
      
      $c->stash->{ page_co } = 1;

# use Data::Dumper;
# print Dumper($c->req->captures);
# print $c->req->captures->[2] if (!$c->req->captures->[1]);
      
    $c->forward( 'wiki', [ !$c->req->captures->[1] 
    							? $c->req->captures->[0]
    							: @{$c->req->captures}[0..2] ] );
    
 }