Month: June 2010

There is an easier way to get last element on a split operation, save split result to an array and use $array[-1] and this will access last element of the arrays.

Example

$strings=”foo,bar,test”;
my @fields = split(/,/, $strings);
print $fields[-1] ;  # the last str in $strings

This note is for a trick to use Q and E  to escape characters for regular expression. You will find it very useful when you do string substitution and your pattern contains characters like slashes or backslashes .

(more…)

This note is for a trick to use Q and E  to escape characters for regular expression. You will find it very useful when you do string substitution and your pattern contains characters like slashes or backslashes .

(more…)

Say you have a directory d:bin and you want to add it to path environment at the beginning of your Perl script. Following code will do the trick.

my $dir="d:\bin";
$ENV{PATH}.=";$dir";

Then $dir will be included in new $ENV{PATH}