Friday, February 15, 2008

Perl: Trim a string

There are many ways to trim a string in perl. Below is one of them. I used a simple regular expression that just removes the whitespaces from begin and end of the string.

## Trim function.
sub trim{
   my $string = shift;
   $string =~ s/^\s+|\s+$//g;
   return $string;
print "[".trim(" My name is Deadman ")."]\n";

Get function name programaticaly - Python

This little piece of code will help you to get the function name programatically. This is very helpful when you are implementing the debug...