How to extract the substring from a delimiter (dot) to end of string?

[Anonymous Monk]

Given a string like

$string = "helloyoume.she";

How would you extract the characters from the dot (aka period, aka full stop) to the end of that string into a variable? That is, in this example, get the substring "she".

Originally posted as a Categorized Question.

[infoninja]

Here's a solution which doesn't use regexes, which are probably overkill for this application:

$extension = substr( $string, rindex( $string, '.' ) + 1 );

[Novician]

How about using split:

$extension = (split /\./, $string)[-1];

[httptech]

Here's one way to do it, iterating backwards over the string as an array, then unshifting each char into another array until reaching the dot. Of course, you wouldn't normally want to do it this way in practice.

my @temp;
for ( reverse @{[ split( '', $string ) ]} )
{
    last if /\./;
    unshift @temp, $_;
}

$extension = join '', @temp;

[ZZamboni]

In the spirit of TIMTOWTDI, you could also do:

( $extension ) = $string =~ /([^.]*)$/;

The above will give you the whole string if it does not contain any dots. If you want the result to be undef if there are no dots, you could use:

( $extension ) = $string =~ /\.([^.]*)$/;