Regexes are always more fun :) How else can you write a program with almost
no letters.
$email =~ s/(?[EMAIL PROTECTED]).*$/.../;
perldoc perlre
search for 'look-behind'
Scott
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 05, 2003 10:36 PM
Comments?? Who needs comments? My code is 'self-documenting' LOL
Scott
PS: The regex engine is your friend.
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 06, 2003 8:08 PM
To: Hall, Scott
Cc: [EMAIL PROTECTED]
Subject: Re: Regex and Email
Sara,
You can use ucfirst.
$TS =~ s/(\w+)/ucfirst lc $1/ge;
Scott
-Original Message-
From: Sara [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 23, 2003 12:59 PM
To: org
Subject: Another Regex question.
$TS = THIS INPUT IS IN ALL CAPS;
$TS_cont = lc $TS;
$TS now prints out this