檢查返回代碼，如果沒有0電子郵件管理員

Question

我試圖用類似線以下檢查的谷歌AWS服務器狀態：

時間捲曲-k https://blablabla.azazonaws.com/ratingsvc

如果連接失敗，超時等我想給管理員發郵件。

我遇到麻煩的錯誤代碼到一個變量

Answer 1

要獲得HTTP GET的進一步控制（返回代碼，分析郵件內容等），我建議使用LWP::UserAgent

use LWP::UserAgent; 

my $ua = LWP::UserAgent->new; 
my $response = $ua->get('https://blablabla.azazonaws.com/ratingsvc'); 

和$response是HTTP::Response的實例，因此您可以完全控制GET響應。

Answer 2

你可以做到這一點，以獲得返回的退出代碼：

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"; 
} 

這也將捲曲屏幕打印STDOUT和STDERR，但它不會影響你的程序。如果你不想看到命令的輸出，你可以像/ dev/null一樣添加一些東西到最後，你仍然會有你的退出代碼。

HTH

舊金山