어떻게 펄의 것은, Getopt에서

Question

:: 롱 버전 2.39은 내가 -c를 사용하는 경우 기본값은 %opts 20 넣어 될 것이라고 표시하기 위해

use Getopt::Long qw(:config gnu_getopt); 
GetOptions(
    \my %opts, 
    "codon-view|c:20", # Optional value, default 20 
    "consensus|C:50", 
    ... 
) 

를 사용할 수있는 기본 옵션 값을 설정 할 codon-view의 경우 -c이 주어졌지만 명시적인 값이없는 경우 해당 키가 있습니다. 반면에 -c 또는 --codon-view이 제공되지 않으면 해시 테이블의 값은 %opts에 저장되지 않습니다. 이것은 더 이상 나는 내가 이전 동작을 달성 할 수있는 방법 Getopt::Long's documentation

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.39 
20 

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

에 2.48에서

를 참조하지 않는 작품?

도움말!

Answer 1

변경 사항은 2.48에서 소개되었습니다.

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.47 
20 

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

잘 모르겠지만, 나는 그것이 실수로 이루어졌다 생각, 그래서 bug report을 제기했다.

---

use Getopt::Long qw(:config gnu_getopt); 

는 gnu_compat를 사용하여 당신이 투자하는 방법

use Getopt::Long qw(:config gnu_compat bundling permute no_getopt_compat); 

의 약자입니까?

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

$ perl -E' 
    use Getopt::Long qw(:config gnu_compat bundling permute no_getopt_compat); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

$ perl -E' 
    use Getopt::Long qw(:config bundling permute no_getopt_compat); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
20 

gnu_compat 컨트롤 --opt= 여부를 허용, 그것은 무엇을해야하는지. gnu_compat이 없으면 --opt=에 오류가 있습니다. gnu_compat으로 --opt=은 옵션 opt과 빈 값을 제공합니다. 이것이 GNU getopt_long()이하는 방법입니다.당신이 --codon-view=이 $opts{"codon-view"}에 제로를 지정하여 확인 인 경우

그래서, 단순히 여기에 또 다른 가능하지만, 덜 좋은 솔루션입니다

use Getopt::Long qw(:config bundling permute no_getopt_compat); 

대신

use Getopt::Long qw(:config gnu_getopt); 

Answer 2

GetOptions() 호출 전에 기본값을 설정하십시오. 옵션이 명령 행에 제공되지 않으면 기본값을 겹쳐 쓰지 않습니다.

$ perl -MGetopt::Long -E '$c=20;GetOptions("c=i"=>\$c); say $c' -- -c 14 
14 

$ perl -MGetopt::Long -E '$c=20;GetOptions("c=i"=>\$c); say $c' -- 
20 

Getopt::Long 문서에 a trivial example 있습니다.

Answer 3

내가 해시 내 OPTS을 할당 좋아 .. 이제 사용자가 $opt{c} 키가 생성하지만, 값이 undef 인의 도착, 인수없이 ./you-app -c 실행하는 경우

GetOptions(\ my %opt, 
    'codon-view|c:i', 
); 

if (exists $opt{'codon-view'}) { 
    print "User triggered '-c' flag\n"; 
    $opt{'codon-view'} ||= 20; 
    printf("codon-view: %d\n", $opt{'codon-view'}); 
} 

당신이 많은 체크를하면 이렇게 exists으로 시작되었습니다.

연산자는 왼쪽이 falsey (대개 undef) 인 경우에만 왼쪽에 오른쪽을 할당합니다. 주의해야 할 점은 누군가가 -c 0을 지정하면 기본값을 할당합니다 ...하지만 계속 진행하고 0이 아마도 플래그에 대한 잘못된 인수라고 가정 할 것입니다.

Answer 4

사용의 사본을 포함 Getopt :: Long.pm, 단 하나의 파일이지만 패키지 네임 스페이스를 다른 것으로 변경했습니다. MyPackage :: GetoptLong.

이것은 이상적인 대답은 아니지만 호환성을 유지하기 위해 무언가가 필요하고 더 나은 ikegami 솔루션이 없다면 명심해야 할 사항입니다.