How to trim the begining of a string

[BryanY]

What would be the best way to remove the first two characters from the begining of a string (or extract the last two characters)? In this case 2004 -> 04

 

[rharsh]

Use the substr function.

my $str = '2004';

# Last two characters
my $last_chars = substr($str,-2,2);
print $last_chars, "\n";

# Remove first two characters
substr($str,0,2,'');
print $str, "\n";

 

[mikevh]

Could also do this:

my $str = '2004';

# Last two characters
my ($last_chars) = $str =~ /(..)$/;
print $last_chars, "\n";

# Remove first two characters
$str =~ s/^..//;
print $str, "\n";