Perl Windowsコマンドが失敗する

Question

ネットワークコンピュータで簡単なクエリを実行してWindows版を取得しようとしています。このコマンドを実行すると、戻り期待される結果は、コマンドラインから使用する場合：

psexec \\comp_name reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ReleaseId 

が、Perlのから実行するときに使用した：

system("psexec \\\\$comp_name reg query 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion' /v ReleaseId") 

私は両方のコマンドがあることを考えるとREG ERROR: Invalid key name.からエラーが出ます同じですが、なぜPerlから実行しているときにエラーが発生しているのかわかりません。私の唯一の仮定は、引用符を解決する方法です。この問題は、私がsystem、exec、または``を使用しているかどうかにかかわらず存続します。助言がありますか？

Answer 1

あなたはバックスラッシュのすべての倍にする必要があります：問題を修正します

system("psexec \\\\$comp_name reg query 'HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion' /v ReleaseId") 

Answer 2

すべてのバックスラッシュを倍増し、しかし単一の外部引用符と内部の二重引用符を使用して二重のバックスラッシュを追加している必要性を排除します読むのが簡単です。

use strict; #Always use strict 
use warnings; #Always use warnings 

system('psexec \\$comp_name reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ReleaseId');