perl - curl からの戻りコードを確認し、0 でない場合は管理者にメールを送信します

Question

以下のような行を使用して、Google aws サーバーのステータスを確認しようとしています。

time curl -k https://blablabla.azazonaws.com/ratingsvc

接続に失敗したり、タイムアウトしたりした場合は、管理者にメールを送信したいと思います。

エラーコードを変数に入れるのに問題があります

Answer 1

これを実行して、返された終了コードを取得できます。

use strict;
use warnings;

my $command = 'time curl -k https://blablabla.azazonaws.com/ratingsvc';

my $return_code = system($command);

if ($return_code == 0) {
    print "Everything went well...\n";
} else {
    print "Oops... curl exited with code $return_code\n";
}

これにより、curl から STDOUT および STDERR も画面に出力されますが、プログラムには影響しません。コマンドの出力を見たくない場合は、 >/dev/null のようなものを最後に追加できます。返された終了コードは引き続き保持されます。

HTH

フランシスコ