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 address. Would be interesting to see which is faster, there is that whole regex engine thing. Of course to say that there are no letters isn't strictly fair because you would need two lines of comments stating what you are doing ;-)... depending on the context... http://danconia.org Hall, Scott wrote: > 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 > To: Sara > Cc: [EMAIL PROTECTED] > Subject: Re: Regex and Email address. > > > Sara wrote: > >>Simple Regex problem.... >> >>How you will convert >> >>$email = "[EMAIL PROTECTED]"; >> >>TO >> >>$email = "[EMAIL PROTECTED]"; >> >>using Regex. >> > > > Well this isn't necessarily a regex issue, TMTOWTDI, > > my $email = '[EMAIL PROTECTED]'; > $email = substr($email, 0, (index($email,'@')+2)); > print "Email: $email...\n"; > > perldoc -f index > perldoc -f substr > > ...of course having said that you *can* do it with a regex ;-) .... > > my $email = '[EMAIL PROTECTED]'; > $email =~ s/^([EMAIL PROTECTED]).*/$1/; > print "Email: $email...\n"; > > HTH, > > http://danconia.org > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]