On March 6th, I participated in my Office's culural fest PAIN-KILLER 2009.
It was a huge success in terms of management, performances. Audiance had appreciated the entire effort.
It was the first time when I participated in office's cultural activities. Dance have been my passion and I N'joy it more than anything else.
I participated in a contemporary dance performance on the music of Shakar Mahadevan's TeaBreak.
Here are some snips.
Friday, March 20, 2009
Option validation in perl
#!/usr/bin/perl
use Getopt::Long;
my ($help, @url, $size);
#-- prints usage if no command line parameters are passed or there is an unknown
# parameter or help option is passed
usage() if ( ! GetOptions('help|?' => \$help, 'url=s' => \@url, 'size=i' => \$size)
or $ARGV[0] or defined $help );
exit;
sub usage
{
print "Unknown option is here: @_\n" if ( @_ );
print "usage: program [--url URL] [--size SIZE] [--help|-?]\n";
exit;
}
use Getopt::Long;
my ($help, @url, $size);
#-- prints usage if no command line parameters are passed or there is an unknown
# parameter or help option is passed
usage() if ( ! GetOptions('help|?' => \$help, 'url=s' => \@url, 'size=i' => \$size)
or $ARGV[0] or defined $help );
exit;
sub usage
{
print "Unknown option is here: @_\n" if ( @_ );
print "usage: program [--url URL] [--size SIZE] [--help|-?]\n";
exit;
}
Monday, March 02, 2009
Subscribe to:
Posts (Atom)