Forums
New posts
Search forums
Members
Current visitors
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Forums
Archive
Archive
Perl
Perl Misc
perl regex question
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
Reply to thread
Message
[QUOTE="Quantum Mechanic, post: 4742218"] Generally slower to faster options: $last_word = ($string =~ /(\w+)/g)[-1]; # only keep the last word $last_word = reverse ( (reverse $string) =~ /(\w+)/ ); # double reverse $last_word = (split /\W+/, $string )[-1]; $last_word = reverse( (split /\W+/, reverse $string, 2 )[0] ); -QM [/QUOTE]
Verification
Post reply
Forums
Archive
Archive
Perl
Perl Misc
perl regex question
Top
