Saat ini saya sedang ada di Pekanbaru dalam rangka tugas kerja seperti biasa. Nah minggu ini adalah jadwal anak kami (Naya) diimunisasi tapi berhubung lagi di luar kota akhirnya ibundanyalah yang harus mengantar ke rumah sakit bersama Yeti (adik ipar). Dari pada bengong saya buat program Perl sederhana untuk menghitung usia Naya saat ini. Hasilnya terlihat di akhir tulisan ini. Naya sudah berusia 1 tahun 2 bulan (Naya lahir 18 Agustus 2009) dan sekarang lagi lucu-lucunya. sudah bisa bermain sendiri dan terkadang larut dalam permainannya sendiri. Namun jika bundanya ada di rumah maka Naya selalu ingin bermanja-manja ria, terkadang tidak mau bermain sendiri(harus ditemani bundanya).
Saya sendiri telah banyak kehilangan masa-masa pertumbuhan Naya. Tapi saya masih terus berusaha untuk berkomunikasi dengan Naya dan bundanya pada layar HP (video call). Saya hanya mendengar perkembangannya dari bundanya seperti kelucuan-kelucuan yang dia lakukan setiap saat, dll.
<pre>#!/usr/bin/perl -w
#
# October 2010 kari\@kawananu.com
#
use strict;</pre>
<pre>###################################
# Scalar variables
###################################
my $naya_year_born = "2009";
my $date_today;
my $recent_old_year;
my $recent_month;</pre>
<pre>###################################
# Hash variable
###################################
my %months;</pre>
<pre>####End of variables definition#####
%months =(Jan => 1,
Feb => 2,
Mar => 3,
Apr => 4,
May => 5,
Jun => 6,
Jul => 7,
Aug => 8,
Sep => 9,
Oct => 10,
Nov => 11,
Dec => 12);</pre>
<pre>##########################################################
# Output of "date" command : Sun Oct 31 10:31:07 WIT 2010#
##########################################################</pre>
<pre>$date_today = `date`;
my ($Day, $Month, $Date_, $Time_, $Zone, $Year) = split(/\s+/,$date_today);
$recent_old_year = join (",",$Year-$naya_year_born,$months{$Month}-$months{Aug});
print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun \n";</pre>
<pre>__END__
:wq</pre>
kari@debian:~$ chmod +x usia_naya.pl
kari@debian:~$ ./usia_naya.pl
Myisha Kallista Abinaya telah berumur 1,2 tahun
Dari program di atas ternyata masih adalah kelemahannya yakni jika bulan saat ini lebih kecil (<) dari bulan Agustus (8) maka program akan menampilkan contoh keluaran berikut.
Myisha Kallista Abinaya telah berumur 2, -2 tahun
Sebenarnya tidak ada masalah dengan keluaran tersebut tapi pembaca akan mengalami kesulitan dalam penerjemahannya jika dibanding dengan 1 tahun 10 bulan. Berkut skrip Perl versi lengkap untuk kasus di atas.
<pre>#</pre>
<pre># October 2010 kari\@kawananu.com</pre>
<pre># GNU/Linux Version</pre>
<pre>#</pre>
<pre>use strict;</pre>
<pre>use diagnostics;</pre>
<pre>###################################</pre>
<pre># Scalar variables</pre>
<pre>###################################</pre>
<pre>my $naya_year_born = "2009";</pre>
<pre>my $date_today;</pre>
<pre>my $recent_old_year;</pre>
<pre>my $recent_old_month;</pre>
<pre>my $recent_month;</pre>
<pre>###################################</pre>
<pre># Hash variable</pre>
<pre>###################################</pre>
<pre>my %months;</pre>
<pre>####End of variables definition#####</pre>
<pre>%months =(Jan => 1,</pre>
<pre> Feb => 2,</pre>
<pre> Mar => 3,</pre>
<pre> Apr => 4,</pre>
<pre> May => 5,</pre>
<pre> Jun => 6,</pre>
<pre> Jul => 7,</pre>
<pre> Aug => 8,</pre>
<pre> Sep => 9,</pre>
<pre> Oct => 10,</pre>
<pre> Nov => 11,</pre>
<pre> Dec => 12);</pre>
<pre>##########################################################</pre>
<pre># Output of "date" command : Sun Oct 31 10:31:07 WIT 2010#</pre>
<pre>##########################################################</pre>
<pre>$date_today = `date`; # backquotes</pre>
<pre> my ($Day, $Month, $Date_, $Time_, $Zone, $Year) = split(/\s+/,$date_today);</pre>
<pre> if ($months{$Month} < $months{Aug}){</pre>
<pre> $recent_old_year = (($Year-1)-($naya_year_born));</pre>
<pre> $recent_old_month =((12)+($months{$Month}-$months{Aug}));</pre>
<pre> if ($recent_old_year == 0){</pre>
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_month bulan \n"}</pre>
<pre> else {</pre>
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun, $recent_old_month bulan \n";}</pre>
<pre> }</pre>
<pre> else { $recent_old_year = join (",",$Year-$naya_year_born,$months{$Month}-$months{Aug});</pre>
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun \n";}</pre>
<pre>__END__</pre>
Penjelasan program di atas sbb.
Baris di atas akan memeriksa bulan saat ini apakah lebih kecil (<) dari bulan Agustus (8), jika ya berarti akan menjalankan deretan skrip di bawahnya yakni.
$recent_old_year = (($Year-1)-($naya_year_born));</pre>
<pre> $recent_old_month =((12)+($months{$Month}-$months{Aug}));</pre>
<pre> if ($recent_old_year == 0){</pre>
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_month bulan \n"}</pre>
<pre> else {</pre>
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun, $recent_old_month bulan \n";}</pre>
<pre> }</pre>
Jika bulan saat ini lebih besar (>) dari bulan Agustus maka program akan menjalankan skrip berikut.
<pre> print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun \n";}</pre>
<pre></pre>
Kode sumbernya dapat di-download pada link ini
