perlからif elseシェルコマンドを実行する

Question

私はこのシナリオに遭遇したことがありません。私は、シェルコマンドからif/elseステートメントを発行しようとしていますが、perl内です。私はシステムとエグゼクティブを成功させようとしました。私はそれが正常に動作シェルでコマンドif ! dpkg -l curl &> /dev/null; then apt-get install curl -y; fiを実行しますが、perlのから、それを実行するとif部分をスキップし、それをインストールする右に行く場合にはここでコード

if ($os eq 'Ubuntu'){ 
    system('if ! dpkg -l curl &> /dev/null; then apt-get install curl -y; fi'); 
    foreach my $mod (keys %deb){ 
     eval "use $mod"; 
     if($@){ 
      system("apt-get install $deb{$mod} -y"); 
      eval "use $mod"; 
     } 
    } 
} 

のサンプルです。

Answer 1

ifは問題なく機能します。

$ perl -e'system("if ! true ; then echo ok ; fi")' 

$ perl -e'system("if ! false ; then echo ok ; fi")' 
ok 

ただし、問題があります。あなたが投稿したのはbashコマンドですが、system(EXPR)はsystem('/bin/sh', '-c', EXPR)の略です。単にトリックを行う必要があります

system('/bin/bash', '-c', EXPR) 

で

system(EXPR) 

を交換します。

Answer 2

問題は少し問題があるようでしたので、私はそれを解決する別の方法を行った。ここで私はあなたがif構文の詳細に入る回避し、またそれを||代わりの否定を使用してビットを簡素化することができます私は同じ結果

if ($os eq 'Ubuntu'){ 
    my $check = `dpkg --get-selections | grep "^curl *" | awk '{print \$1}'`; 
    if(!$check){ system('apt-get install curl -y > /dev/null'); } 
     foreach my $mod (keys %deb){ 
      eval "use $mod"; 
      if($@){ 
      system("apt-get install $deb{$mod} -y"); 
      eval "use $mod"; 
     } 
    } 
} 

Answer 3

を与えるやってしまったものです。コマンドライン

perl -we 'system("rpm -q NO_PACK &> /dev/null || echo \"install package\"")' 

でそれを試してみるために、私は唯一のため、今RHEL上rpmをテストすることができます。しかし、RHEL上で、私はあまりにも

perl -we 'system("if ! rpm -q NO >& /dev/null ; then echo install; fi")' 

、これは正常に動作するために見つけることは（自身がshへのリンクである）Ubuntuでdashあるsystemによって呼び出されたシェル、と競合するコマンドで構文です。これに関するコメントのためにikegamiとThisSuitIsBlackNotに感謝します。具体的には、リダイレクト&>は動作しません。具体的にはbashの機能です。そして、あなたは/dev/nullにSTDOUTストリームを送信し、STDOUT（1）shがbashへのリンクですRHELシステムで

system('dpkg -l curl > /dev/null 2>&1 || apt-get install curl -y'); 

を行く同じ場所にSTDERRストリーム（2）をリダイレクトする一般的な> /dev/null 2>&1に変更することができ、したがって&>が動作します。 2&>1リダイレクトも同様に機能することに注意してください。しかし、私の意見では、より良い解決策は、使用するシェルを指定することです。

systemは、リストに引数を指定することで、シェルを起動することができます。ではありません。最初の引数として与えられたプログラムはシェルの起動なしに直接実行され、リストの残りの部分はそれに渡されます。これは、リスト内の最初の引数としてそのシェルを指定できるので、コマンドを実行するために正しいシェルを取得する方法です。これは、答えにikegamiで示されています。