펄 루틴 내에서 쉘 명령을 실행하는 방법은 무엇입니까?

Question

서브 루틴을 통해 호출하는 경우 어떻게 perl에서 쉘 명령을 실행합니까?

예를 들어, 나는 특정 값을 얻기 위해 명령 줄에서이 작업을 실행할 수 있습니다 : 나는 펄 서브 루틴 내에서이 명령을 실행하고 호출 할

mycert-util --show test.user.myuser_cd 

. 예를 들어 내 루틴은 get_auth이고, get_auth의 값을 출력하고 싶습니다.

는

코드 : 당신은 아마 당신의 $ 간부 변수와 적절하게 다음 출력을 반환해야처럼

use strict; 
use warnings; 

#&get_auth; 
#get_auth(); 

print "The value is: get_auth() \n"; 

sub get_auth 
{ 
    $exec=`mycert-util --show test.user.myuser_cd`; 
} 

Answer 1

귀하의 문제는 하위되지 않습니다,하지만 당신은 그것을 호출하는 방법 . 따옴표 안에 하위 호출을 배치 할 수 없습니다. 다음과 같은 일부 대체 기능.

use feature qw(say); 
say "The value is: ", get_auth(); 

sub get_auth { 
    return qx(mycert-util --show test.user.myuser_cd); 
} 

Answer 2

같습니다 :

sub get_auth 
{ 
    $exec=`mycert-util --show test.user.myuser_cd`; 
    return $exec; 
} 

print "The value is: " . get_auth() . "\n";