Perl : 패턴 일치 필요

Question

문자열이 포함 된 변수가 있습니다.

$name="mak -o create.pl -n create.txt"; 

이제 항상 -o 다음에 오는 create.pl 값을 얻을 수있는 패턴을 일치시키고 싶습니다. 즉,이 이것이하지만 그 대신 "생성"이 같은 임의의 이름이 될 수 있지만, 확장자는 항상 ".pl로"

$name="mak -o string.pl -n create.txt"; # or it could be 
$name="mak -o name.pl -n create.txt"; 

Answer 1

`/-o ([^\s]*)\s/` 

위 할 것입니다 :

> echo "mak -o create.pl -n create.txt" | perl -lne 'm/-o ([^\s]*)\s/;print $1' 
create.pl 

Answer 2

것이 "-o create.pl"처럼 항상 발생하는 것이 필수이다 다음 정규식을 사용하십시오.

/-o\s(.*?)\.pl/ 

$1이 일치하는 이름을 갖습니다.

Answer 3

시도 분할 변수를 공백으로.

my $name="mak -o name.pl -n create.txt"; 

my @cmd = split (/\s+/, $name); 

for (my $i = 0; $i <@cmd; $i++) { 
    if ($cmd[$i] eq "-o") { 
     print $cmd[$i+1]; 
     last; 
    } 
} 

Answer 4

스플릿 사용 : 스크립트 이름에 대해 걱정할 필요가 없습니다. 스플릿이 처리합니다.

use strict; 

my $name="mak -o name.pl -n create.txt"; 

my $test = join(" ", (split /\s+/, $name)[1,2]); 

print $test; 

출력 : 귀하의 지원에 대한

-o name.pl