Perl Dispatch table - Eliminating the nested if's

Dispatch table is nothing but hash, keys are the directive names and values are actions.

For example 1: Based on the variable task, the templates need to be return

if($task eq 'add') {
  return 'order/add_order.tmpl';
}elsif($task eq 'edit') {
  return 'order/edit_order.tmpl';
}elsif($task eq 'list') {
  return 'order/list_orders.tmpl'

the above nested if's can be written like below using dispatch table.

Google Wallet

Now a days we pay bills, shop using the cards. Initially we use coins, paper money and now it is cards (debit / credit cards), future?.

Google wallet:

Google wallet is going to be the next one after the plastic cards!!!

Snort - Network Intrusion Prevention and Detection System

Snort is open source network Intrusion Prevention and Detection System (IDS/IPS). It is based on libpcab ( that is library packet capture).

Libpcab, PCRE, Libnet and barnyard software packages are required to run the snort.


A rootkit is a collection of programs that enables the attackers to get the administrator level accesses to the computer or the network.

The attacker installs the rootkit software, after obtaining the admin level access first time or cracking the password.

Perl version 5.10 onwards - Given/When - Switch/Case

Perl 5.10 onwards have given/when, which can be used instead of multiple if's and switch/case. It is similiar to the switch/case in other languages.

To use given/when from perl 5.10 include the "use feature qw{ switch };". It uses keywords given, when, default.

Good Old Days - How did one survive growing up in the 70's, 80's and 90's?

Some things cannot be forgotten. Here is small recap!!!

Things that we have used

Read this first Good OLD DAYS...

Here some more things we used....

School Pickups:

Syndicate content