RE: Regexp question

Wagner, David --- Senior Programmer Analyst --- WGO Tue, 11 Apr 2006 17:01:58 -0700

substr($_,1) =~ tr/AEIOUaeiou//d;

semi tested, but $_ is changed accordingly.

Wags ;)

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Steve Baldwin
Sent: Tuesday, April 11, 2006 15:48
To: [email protected]
Subject: Regexp question

Hi,

I was trying to build a regexp that removed all vowels from a word except the first character. So

hello -> hll

Apple -> Appl

Can someone help ?

Thanks,

Steve

*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Regexp question

Reply via email to