perlでshellの&&みたいにしたい。

Question

shellでコマンドを連続実行する時、以下のように&&を使用しますが、
同じことをperlでするにはどうしたらいいでしょうか。

例：
cat a.txt && cat b.txt && ls /home

左のコマンドを正常に実行したら、右のコマンドを
順番に実行していく。

Comments

[ikedas]

Perlのバージョンを明記して下さい。

Answer 1

perlからlinuxのコマンドを連続実行する方法についてをお尋ねしています。

こういうことですか？

2つ目のコマンドでエラー(終了コードが 0以外)の場合

$ perl -e "! system('ls -al /etc/passwd') and ! system('ls -al /etc/PPAP') and ! system('ls -al /etc/group /etc/passwd');"

-rw-r--r-- 1 root root 2796 5月 16 12:36 2016 /etc/passwd
ls: cannot access /etc/PPAP: そのようなファイルやディレクトリはありません

全てのコマンドが実行される場合

$ perl -e "! system('ls -al /etc/passwd') and ! system('ls -al /etc/group') and ! system('ls -al /etc/group /etc/passwd');"

-rw-r--r-- 1 root root 2796 5月 16 12:36 2016 /etc/passwd
-rw-r--r-- 1 root root 1315 5月 16 12:36 2016 /etc/group
-rw-r--r-- 1 root root 1315 5月 16 12:36 2016 /etc/group
-rw-r--r-- 1 root root 2796 5月 16 12:36 2016 /etc/passwd

Comments

[shigoto]

そうです。
perl -e "! system
これの！の意味はなんでしょうか？
なくてもいい？

[Y.H.]

http://perldoc.jp/docs/perl/5.8.8/perlop.pod#Symbolic32Unary32Operators

マニュアル見るか、実際にやってみましょうよ。すぐに答えが出るのですから。

Answer 2

既にお答えが出ていますので、ご参考です。
perl の内部で コマンド && コマンド && コマンドができます。
ただsystemコマンドは、正常が0なのでFALSEですね。
ですので system() || system() || system() でも有りかと。

Answer 3

&&は、終了ステータスが0の場合に次のコマンドを実行するので、exit関数に戻り値を指定してください。
perldoc - exit関数

test1.pl

#!/usr/bin/env perl
print "TEST1\n";
exit 0;

test2.pl

#!/usr/bin/env perl
print "TEST2\n";
exit 1;

test3.pl

#!/usr/bin/env perl
print "TEST3\n";
exit 0;

実行結果

[HOGE@DUMMYHOST ~]$ ./test1.pl && ./test2.pl && ./test3.pl
TEST1
TEST2
[HOGE@DUMMYHOST ~]$

Comments

[shigoto]

すみません、perlからlinuxのコマンドを連続実行する方法についてをお尋ねしています。

[ester41]

perl上で実行される場合だったのですね。
申し訳ないです。

perlから動かす場合は、以下の2パターンあると思います。
(サンプルでは、exec関数やsystem関数ではなく、バッククォート演算子を使用します)
・shellと同じように実行する
[HOGE@DUMMYHOST ~]$ perl
print `./test1.pl && ./test2.pl && ./test3.pl`;

TEST1
TEST2
[HOGE@DUMMYHOST ~]$

・$?を使用して判定を行う
[HOGE@DUMMYHOST ~]$ perl
if ( !_exec_command('./test1.pl') ) {
if ( !_exec_command('./test2.pl') ) {
_exec_command('./test3.pl');
}
}

sub _exec_command {
my ($command) = @_;
print `$command`;
return $?;
}

TEST1
TEST2
[HOGE@DUMMYHOST ~]$