Gossamer Forum: General: Perl Programming: chop last letter/alphabet from a string

Mar 24, 2011, 10:57 PM

socrates

Enthusiast (800 posts)

Mar 24, 2011, 10:57 PM

Post #1 of 4

Shortcut

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 (17364 posts)

Mar 25, 2011, 12:17 AM

Post #2 of 4

Shortcut

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

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Mar 31, 2011, 2:09 PM

el noe

User (326 posts)

Mar 31, 2011, 2:09 PM

Post #3 of 4

Shortcut

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 (800 posts)

Apr 18, 2011, 12:12 AM

Post #4 of 4

Shortcut

Re: [Andy] chop last letter/alphabet from a string In reply to

Thanks, guys.