Perl 정규 표현식 파일 이름을 가져 오는 방법은 무엇입니까?

Question

나는이 디렉토리 경로가 :

\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1 

나는 위의 문자열에서 파일 이름 testQEM.txt을 얻을 수있는 방법

?

나는이 사용

$file =~ /(.+\\)(.+\..+)(\\.+)/; 

을하지만 결과를 얻을 :

file = testQEM.txt\main\ABC_QEM 

감사합니다,

Jirong을

Answer 1

/[^\\]+\.[^\\]+/ 

. 내기로 구분 아무것도 캡처 두 개의 백 슬래시를 단다. 이게 당신이 찾는 곳 이니? $ 결과 약

Answer 2

my $file = '\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1'; 
my ($result) = $file =~ /\\([^\\]+\.[^\\]+)\\/; 

괄호를 차례로 괄호에 일치하는 것을 돌려 오른쪽 표현식의 목록 컨텍스트를 강제로.

Answer 3

디렉토리 이름에 마침표가 포함될 수 있으므로 다소 어렵습니다. 이는 * nix Systems에서 특히 그렇지만 Windows에서도 유효합니다.

따라서 가능한 각 하위 경로는 파일에 대해 반복적으로 테스트해야합니다.

나는 아마 이런 식으로 뭔가를 시도 할 것 (상호 운용성 당신을 위해 문제가없는 경우 백 슬래시로 변경)

my $file; 
my $weirdPath = q(/main/ABC_PRD/ABC_QEM/1/testQEM.txt/main/ABC_QEM/1); 
my @parts = split m{/} $weirdPath; 

for my $i (0 .. $#parts) { 
    my $path = join "/", @parts[0 .. $i]; 
    if (-f $path) { # optionally "not -d $path" 
    $file = $parts[$i]; 
    last; 
    } 
} 
print "file=$file\n"; # "file=testQEM.txt\n" 

내가 모든 슬래시에서 이상한 경로를 split. 그런 다음 첫 번째 $i+1 요소를 함께 결합하고 경로가 일반 파일인지 테스트합니다. 그렇다면 경로의 마지막 부분을 저장하고 루프를 종료합니다.

파일이 마침표가있는 경로의 유일한 부분임을 보장 할 수 있으면 다른 해결 방법 중 하나를 사용하는 것이 좋습니다.

Answer 4

사용 정규식 패턴 /(?=[^\\]+\.)([^\\]+)/

my $path = '\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1'; 
print $1 if $path =~ /(?=[^\\]+\.)([^\\]+)/; 

시험이 코드 here.

Answer 5

경로가 파일 노드의 절반을 가질 수 없으므로 이해할 수 없습니다. 여러 경로가 어떻게 든 연결되어 있습니까? 어쨌든

, 난 당신이 경로가

use strict; 
use warnings; 

my $path = '\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1'; 

my @path = split /\\/, $path; 
my $file = shift @path; 
$file .= '\\'.shift @path until -f $file or @path == 0; 

print "$file\n"; 

Answer 6

>echo "\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1"|perl -pi -e "s/.*([\\][a-zA-Z]*\.txt).*/\1/" 
\testQEM.txt 

Answer 7

난 당신이 원리를 이해 할 수있다 제안 예를 여기 -f

을 사용하여 실제 파일로의 유효성을 검사하는 첫 번째 노드입니다 찾고 있지만 작동 제안 * 및 + 작동 방법과 같은 regexp Backtracking. 만 같은 정규 표현식에 대해 조금 변화합니다

/(.+\\)(.+\..+?)(\\.+)/