Bagaimana menjalankan perintah bash Linux dalam skrip PERL?

Seorang administrator sistem perlu menulis banyak skrip untuk memantau dan memelihara sistem. Selama pembuatan skrip, terkadang Anda mungkin perlu merujuk beberapa perintah bash asli di perl. Di sini saya akan menunjukkan kepada Anda cara memanggil perintah asli itu dalam skrip Perl :

Langkah 1 :Buat subrutin yang mengambil perintah, menjalankan dan mengembalikan output .

sub runcmd {
           local($cmd) = @_;
           alarm $timeout;
           $childkilled = 0;
           $childpid = open(CMD, "exec $cmd 2>&1 |");
           return "failed to run \"$cmd\"\n" if (!defined($childpid));
           local(@output) = ;
           local($output) = join("\n", @output);
           alarm 0;
           close(CMD);
           $output = $timeout_msg if ($childkilled);
           return $output;
}

Langkah 2 :Buat subrutin lain untuk menjalankan perintah sebenarnya

#Get Date When script is started running
sub getDate() {
              local($command)="date";
              local($out)=&runcmd($command);
              $logout=$logout." Cron Started At :".$out."\n";
}

Langkah 3 :Panggil subrutin seperti di bawah ini:

&getDate();

Langkah 4 :Arahkan ulang perintah keluaran tanggal ke file menggunakan perintah di bawah ini :

open (LOG, ">>/var/log/logfile") || die "can't open logfile\n";
print LOG "$logout\n";
close (LOG) || die;

Unduh skrip PERL lengkap