Wednesday, January 21, 2009

Alkisah, IV

Alkisah, ada satu hari Mamat meninggal kan pejabat agak lewat malam. Apabila dia lalu di depan bilik document, dia terlihat Pengarah Urusan yang baru berdiri berdekatan dengan shredder dengan muka bermasalah. 

Mamat pun menegur nye. Pengarah Urusan itu pun berkata 
"Mamat, ini ada beberapa surat penting dari BOD. Selalu setiausha saya yang uruskan tetapi memandangkan dia dah pulang, boleh tak awak tunjuk macam mana nak guna..."
Dengan semangat untuk membodek boss baru nye, Mamat pun menjawap 
"Oh. Itu tiada masaalah." 

Lalu dia pun mengambil surat-surat tersebut, menghidupkan shredder dan memasukkan surat-surat itu. 
"Oh macam tu. Bagus, bagus! Tolang buatkan dua salinan yea. Terima kasih."  

*******

Alkisah, dari jauh lagi Tok Sidang sudah nampak Lan berjalan mendekatinye sambil mengheret seekor kambing. 
Apabila Lan menghampirinye, Tok Sidang pun bertanya 
"Ini apa cerita pulak. Kenapa dengan kamu? Kenapa kamu heret kambing itu?"
"Tok Sidang." Jawap Lan dengan muka yang hiba. 
"Saya berterus terang sahaja lah dengan Tok. Saya ada hutang keliling pinggang. Jadi bila tadi saya ternampak kambing ini lalu terus saja saya mencuri nye. Dengan cara ini sajalah saya rasa saya dapat melangsaikan hutang-piutung saya.Tapi saya tak sampai hati. Saya rasa bersalah amat sangat. Saya bukan seorang pencuri. "

"Jadi Tok Sidang ambiklah kambing nie"
"Iss! Nak buat apa aku dengan kambing nie?"
"Hmm... Tok tolonglah ambik kambing nie" rayu Lan lagi. 
Tok Sidang mula merasa simpati pun berkata 
"Tak nak aku. Kamu serahkan je balik kepada tuan nye"
"Saya dah cuba Tok tapi tuan nye tak nak terima" jawap Lan.

"Oh kalau tuan nye tak hendak terima itu makna nye dia dah sedekahkan kambing tu pada kamu. Bawaklah kambing tu ke pasar, jual dah langsaikan hutang-hutang kamu tu."
"Terima kasih Tok. Tok Sidang memang seorang yang bijaksana."

Lan pun beredar bersama kambing nye itu. Tok Sidang yang tersenyum kepuasan berjalan menuju balik ke rumah. Baru sahaja dia menjejak kaki nye di halaman rumah. Dia terdegar isteri nye menjerit.
"Abang haji! kambing kita hilang seekor!"

*******

Alkisah, setelah selesai menyampaikan kursus cara-cara penjimatan masa, Mamat pun berkata
"Ini ada satu nasihat. Janganlah guna teknik-teknik yang kita pelajari ini di rumah."  
"Kenapa?" tanya salah satu peserta kursus.

"Dah bertahun saya memerhatikan isteri saya menyediakan sarapan pagi." Mamat menerangkan
"Dia selalu berulang-alik dari peti sejuk ke dapur kemudian meja makan dan kembali ke dapur. Selalu dengan cuma membawa satu barang."
Jadi saya cadangkan kepada dia.
"Sayang dari awak dari berulang-alik membawa mentaga, kopi dah roti bakar tu satu persatu, apa kata awak cuba bawak semuanye sekali gus. Ia lebih menjimatkan masa." 

"Jadi adakan iya berjaya menjimatkan masa?" tanya peserta kursus di kerusi belakang.
"Yah. dah berkurang 7 minit sebab sekarang saya kena buat sarapan sendiri."

Wednesday, January 14, 2009

Pekerja di kehendaki segera

Sekarang ramai benar orang bertukar kerja. Banyak jawatan-jawatan kosong dalam berbagai bidang. Kalau nak ditemuduga seorang demi seorang memang lambat dan memakan masa. Lagi pulak pening nak cari orang yang benar-benar layak. 
Jadi ini ada cadangan utuk mana-mana syarikat yang nak carik calon yang sesuai dengan cepat dan pantas.
 
1.  longgokkan dalam satu bilik besar dengan 3 atau 4 ratus batu-bata merah. 
2.  Masukkan semua calon-calon dalam bilik tersebut dan kunci pintu.
3.  Biarkan mereka bersendirian selama 5 atau 6 jam.
4.  Selepas 5 jam perhatikan mereka.
 a.   kalau ada yang tengah mengira batu letak mereka dalam Accounting.
 b.   kalau ada yang mengkritik pasal batu-batu itu letak mereka dalam QA.
 c.   kalau ada yang tengah susun batu buat rumah batu letak mereka dalam Engineering.
 d.   kalau batu-batu dah di pecah dan hancur-hancurkan, letak mereka dalam IT department.
 e.   kalau tak habis-habis susun batu yang sama, letak mereka dalam Sofware Developemnt. 
 f.   kalau duduk diam tak buat apa-apa, letak mereka dalam Human Resources.
 g.   kalau awal-awal lagi dah terus balik rumah, letak mereka dalam Consultant.
 h.   kalau tengah kira komision utung jualan batu, letakkan mereka dalam Sales.
 i.   kalau pandai baling batu sembunyi tangan, letak mereka dalam Coperate Communication.
 j.   kalau asik bertanya kenapa batu tu tak di alihkan lagi, letak mereka dalam Project Management.
 k.   kalau asik bersembang sesama sendiri, letak mereka dalam Markerting.
 l.   dah akhir sekali kalau ada yang tengah tidor lantiklah jadi Management.

Friday, January 9, 2009

Regex for reading file

This snippet of code will read file and ignore all lines that start with '#' (ignore comment lines)
open(RFILE, "< $filename") or die "Error open $filename: $!\n";
while (<RFILE>) {
        chomp;                      #remove end of line
        s/^#.*//;                     #no leading '#'
        s/\s+#.*//;                  #no multiple white space end with '#'
        s/^\s+//;                     #no leading white space
        s/\s+$//;                     #no trailing white space
        next unless length;
        my ($key,$val) = split(/\s*=\s*/,$_,2);
        $CONF{$key} = $val;
        }
close(RFILE);

Example configuration file:
  # my network configuration
  ip = 192.168.1.1
  netmask = 255.255.255.0
     # old gateway = 192.168.1.252
  gateway = 192.168.1.254

So, 
$CONF{'ip'} has a value '192.168.1.1'
$CONF{'netmask'} has a value '255.255.255.0'
$CONF{'gateway'} has value '192.168.1.254