Perl - en/em 대시 명령 줄 인수

Question

구문 분석 명령 줄 인수와 함께 내 perl 스크립트에 문제가 있습니다. 주로 필자는 hypel뿐만 아니라 (em/en) -dash와 함께 인수를 구문 분석하고 싶습니다. 다음 명령을 실행 고려하십시오 : 당신이 볼 수 있듯이

my_spript.pl -firstParam someValue –secondParam someValue2 

, firstParam는 하이픈 접두어를하고 펄이 그것을 구문 분석에 아무 문제가 없다, 그러나 secondParam 펄이 그것을 인식 할 수없는 대시-KO 불행히도로 시작됩니다 인수로서. 당신이 Getopt::Long를 사용하는 경우 GetOptions에게주기 전에 사전 처리를 인수 할 수있는,

GetOptions(
    "firstParam" => \$firstParam, 
    "secondParam" => \$secondParam 
) 

Answer 1

: 나는 GetOptions을 사용하고 () 인수를 구문 분석

는

#! /usr/bin/perl 
use warnings; 
use strict; 

use Getopt::Long; 

s/^\xe2\x80\x93/-/ for @ARGV; 

GetOptions('firstParam:s' => \ my $first_param, 
      'secondParam:s' => \ my $second_param); 
print "$first_param, $second_param\n"; 

먼저 디코딩에 청소기 수 있습니다 비록 인수 :

use Encode; 

$_ = decode('UTF-8', $_), s/^\N{U+2013}/-/ for @ARGV; 

가, 다른 로케일 설정에서 작동 Encode::Locale을 사용하려면 :

#! /usr/bin/perl 
use warnings; 
use strict; 

use Encode::Locale; 
use Encode; 
use Getopt::Long; 

$_ = decode(locale => $_), s/^\N{U+2013}/-/ for @ARGV; 

GetOptions('firstParam:s' => \ my $first_param, 
      'secondParam:s' => \ my $second_param); 
print "$first_param, $second_param\n";