Perl s /../../ 예상대로 작동하지 않습니다.

Question

코드는 다소 복잡한 코드입니다 만 조금 단순화했습니다. 나는 이것을 쉽게 할 수 있다는 것을 안다 :

$svn_module s#.*/##; 

그리고 모듈의 끝 부분 만 잡아 당기십시오. 나머지

DEBUG: svn_module = "http://svn.vegicorp.net/svn/trunk/SessionController" 
DEBUG: svn_module = "SessionController" 

왜 대체 식 trunk/을 제거 않지만,하지 : 나는 기다리고 있었다, 그러나

DEBUG: svn_module = "http://svn.vegicorp.net/svn/trunk/SessionController" 
DEBUG: svn_module = "http://svn.vegicorp.net/svn/SessionController" 

을 :

#! /usr/bin/env perl 
use strict; 
use warnings; 

my $svn_module = "http://svn.vegicorp.net/svn/trunk/SessionController"; 
print qq(DEBUG: svn_module = "$svn_module"\n); 
$svn_module =~ s#^.*(branches/.+?/)|(trunk)/##; 
print qq(DEBUG: svn_module = "$svn_module"\n); 

이 인쇄 :하지만 뭔가 이상한 일이 일어나고있다 최대 문자열 trunk/까지? 괄호의 추가 세트를 추가하는 방식으로

는 데 도움이 :

$svn_module =~ s#^.*((branches/.+?/)|(trunk))/##; 

가 작동합니다.

그건 그렇고, 이것은 펄 5.8.8입니다. 이 서버는 서버이며 꽤 많이 버금가는 버전입니다.

Answer 1

입니다. | 연산자가 우선 순위가 가장 낮으므로 추가 괄호를 넣는 것이 솔루션입니다.

Answer 2

아마도 이것 때문에

s#^.*(?:branches/.+?/|trunk)/##;

상기 ^.* 번째 교대 (유사한 것)의 일부
없는 것이 하나의 교대이었다 다른 방법이있을 것이다.

^.* 
    (branches/ .+? /) 
| 
    (trunk) 

편집 : 확장 된 새 정규식 원래 정규식의 측면에서

^      # Beginning of string anchor 
.*      # Optional match as many as possible non-newline character until .. 
(?:      # Start non-capture grouping 
     branches/ .+?/  # 'branches' plus '/' plus 1 or more chars plus '/' 
    | trunk     # Or, 'trunk' 
)      # End grouping 

등가

설명 당신이 직접 질문에 대답 생각이

^.* 
    (branches/ .+? /) 
| 
^.* 
    (trunk) 

Answer 3

아마도 내가 여기에 뭔가를 놓치고 있지만, 마지막 부분까지 모든 것을 대체하는 대신 원하는 부분을 얻고 싶습니다. 왜 마지막 부분을 캡처하지 않을까요?

use strict; 
use warnings; 

my $svn_module = "http://svn.vegicorp.net/svn/trunk/SessionController"; 
my ($end_module) = $svn_module =~ /([^\/]+)$/; 
print $end_module; 

출력 :.

SessionController