Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

chop last letter/alphabet from a string

Mar 24, 2011, 10:57 PM
socrates
Enthusiast (832 posts)
Mar 24, 2011, 10:57 PM
Post #1 of 4
Views: 6666
Shortcut
Quote Reply
chop last letter/alphabet from a string
Hi All,

I need code to chop last letter from a string if the last letter is alphabet "s"

so, I have $term = 'cars';
chop($term);
it returns car which is ok but if the term is say "manhattan" or something else that doesn't end in "s" I want the term as is.

Thanks
Mar 25, 2011, 12:17 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
Mar 25, 2011, 12:17 AM
Post #2 of 4
Views: 6531
Shortcut
Quote Reply
Re: [socrates] chop last letter/alphabet from a string In reply to
Code:
$term = 'cars';
if ($term =~ /s$/) {
chop($term);
}

..should do the trick Smile

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Mar 31, 2011, 2:09 PM
el noe
User (434 posts)
Mar 31, 2011, 2:09 PM
Post #3 of 4
Views: 6479
Shortcut
Quote Reply
Re: [Andy] chop last letter/alphabet from a string In reply to
just 4 fun Smile

Code:
$term = 'cars';
if ($term =~ /^(.*)s$/) {
$term = $1;
}

Regards

n || i || k || o

Last edited by:

el noe: Mar 31, 2011, 2:10 PM
Apr 18, 2011, 12:12 AM
socrates
Enthusiast (832 posts)
Apr 18, 2011, 12:12 AM
Post #4 of 4
Views: 6350
Shortcut
Quote Reply
Re: [Andy] chop last letter/alphabet from a string In reply to
Thanks, guys.