Get Previous Time in Solaris

Untuk mendapatkan waktu sebelumnya di OS Solaris dapat menggunakan command perl. Contohnya :

• Mendapatkan waktu 1 jam sebelumnya (Format : YmdHMs)

# perl -e '@d=localtime time()-3600; printf "%4d%02d%02d%02d%02d%02d\n",  $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1],$d[0]'

• Mendapatkan waktu 2 jam sebelumnya (Format : YmdHM)

# perl -e '@d=localtime time()-7200; printf "%4d%02d%02d%02d%02d\n", $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1]'

Keterangan :

• @d=localtime time()-7200 merupakan pengurangan waktu berdasarkan detik. Karena 1 jam = 3600 dtk, untuk pengurangan 2 jam = 2 * 3600 = 7200.
• printf untuk menampilkan waktu sesuai dengan format (%4d = 4 digit, %02d = 2 digit dengan awalan 0 bila angkanya hanya 1 digit, dan \n artinya ganti baris).

Bila butuh bantuan, silakan comment atau email... thanks