펄 것은, Getopt :: 긴

Question

서브 루틴하려고 다음 변수를 할당 I가 내가 뭘하려고하는 것은 $variableB을 설정 한 후 &this_subroutine과 goto NOWGOHERE을하지만 난 단지 얻을 수있다

my $use = "Use: " . basename($0) . " [options]"; 
my $version = "Version: 0.1 \n"; 
my $variableA; 
my $variableB; 

GetOptions(
'a=s'   => \$variableA, 
'help'   => sub { print $use; exit 0 }, 
'version'  => sub { print $version; exit 0 }, 
'b'    => sub { \$variableB, &this_subroutine; goto NOWGOHERE; }, 
); 

die "Incorrect use. \n" unless (defined $variableA || defined $variableB); 

sub this_subroutine { 

    print "$variableB\n"; 

} 

NOWGOHERE: print "HELLO I'M NOW HERE\n"; 

다음 코드 조각 이 둘을하려고 나는 $variableB 인쇄 할 수없는 것 경우 중 하나 'b=s' => \$variableB, 또는 sub { &this_subroutine; goto NOWGOHERE;0 },

를 사용하여, 모두 하나 또는 다른, 아니 할, 내가 누락되거나 잘못된 구문하고있는 중이 분명 뭔가가있다?

'b=s' => \$variableB, sub { &this_subroutine; goto NOWGOHERE; },을 사용하면 작동하지 않는 것 같습니까? 당신이 결코 할당하지 않기 때문에

당신의 도움이 많이 감사합니다, 많은 감사

Answer 1

$variableB은 값을 가질하지 않습니다. 것은, Getopt :: 긴 스칼라 심판 주어 졌을 때, 그것은 그 스칼라에 옵션의 값을 할당하기 때문에

'a=s'   => \$variableA, 

는 $variableA에 값을 제공합니다. 한편

,

'b'    => sub { \$variableB, &this_subroutine; goto NOWGOHERE; }, 

는 것은, Getopt :: 긴 코드 참조, 그것은에 옵션 값을 할당 할 수 있습니다.

는 문서를 기반으로,

'b=s'    => sub { $variableB = $_[1]; this_subroutine(); goto NOWGOHERE; }, 

아마 당신이 원하는 일을해야하는 경우, 매개 변수로 코드 참조에 옵션 이름과 옵션 값을 전달 나타납니다.