PerlのGetopt :: Longの文字列にバックスラッシュ（\）を入れてください

Question

私の同僚の一人が、ユーザのWindowsドメイン/ユーザ名を要求するperlスクリプトを書いていました。もちろん、次の形式を入力してください。domainname\username。 Getopt：Longモジュールは、これを '\'文字を削除する文字列に変換し、文字列を正しく表示しません。もちろん、すべてのユーザにドメイン/ユーザコンボをdomainname\\usernameと入力するように頼むこともできますが、私は本当に「プログラムではなくユーザを修正する」という罪を犯したくはありません。私たちはまた、このために作成したモジュールを使用しています。OurCompany::ColdFusionAPIはColdFusionにアクセスするので、私はOurCompany::ColdFusionAPIに電話します。

#!/usr/bin/perl 

use common::sense; 
use Getopt::Long; 

use OurCompany::ColdFusionAPI; 

my ($server_ip, $username, $password, $need_help); 

GetOptions (
    "ip|server-address=s" => \$server_ip, 
    "user-name=s"   => \$username, 
    "password=s"   => \$password, 
    "h|help"    => \$need_help, 
); 
$username ||= shift; 
$password ||= shift; 
$server_ip ||= shift; 

if (!$server_ip or $need_help){ 
    print_help(); 
    exit 0; 
} 

my $print_hash = sub { my $a = shift; say "$_\t=> $a->{$_}" foreach keys %$a; }; 

... 

私はラインsay $usernameを追加した場合、それは単に「\」せずに文字列を与える：

私たちのコードは次のようになります。どのように私は '\'を維持するためにパールを得ることができますか？ bashのread -rの行に沿ったもの。

Answer 1

あなたのシェルはそれを行いますが、Getopt :: Longではありません。 \をエスケープする必要があります。シェルが何かをエスケープしようとするのではなく、リテラルのバックスラッシュとして解釈する必要があります。

Answer 2

これはGetopt :: Longが原因だと確信していますか？ほとんどの場合、あなたのシェルはあなたが入力しているものをすでに解析しており、バックスラッシュをつぶしています。

ドメインとユーザー名を別々に質問してみませんか？それはやや優雅に問題を解決するだろう。