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

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Given a string like

$string = "helloyoume.she";
[download]

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.

Comment on How to extract the substring from a delimiter (dot) to end of string? Download Code

Replies are listed 'Best First'.
Re: How to extract the substring from a delimiter (dot) to end of string? by infoninja (Friar) on May 08, 2000 at 17:49 UTC
Here's a solution which doesn't use regexes, which are probably overkill for this application: `$extension = substr( $string, rindex( $string, '.' ) + 1 );` [download]	[reply] [d/l]
Re: How to extract the substring from a delimiter (dot) to end of string? by Novician (Novice) on May 09, 2000 at 12:17 UTC
How about using split: `$extension = (split /\./, $string)[-1];` [download]	[reply] [d/l]
Re: How to extract the substring from a delimiter (dot) to end of string? by httptech (Chaplain) on May 08, 2000 at 14:41 UTC
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;` [download]	[reply] [d/l]
Re: How to extract the substring from a delimiter (dot) to end of string? by ZZamboni (Curate) on May 08, 2000 at 21:56 UTC
In the spirit of TIMTOWTDI, you could also do: `( $extension ) = $string =~ /([^.])$/;` [download] 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 =~ /\.([^.])$/;` [download]	[reply] [d/l] [select]