On Tue, Sep 07, 2004 at 01:38:57PM +0200, [EMAIL PROTECTED] wrote:
> Suggested correction to perlintro in perl v5.8.1.
>
> Now:
> if ($email =~ /([EMAIL PROTECTED])+@(.+)/) {
> print "Username is $1\n";
> print "Hostname is $2\n";
> }
>
> Gives the wrong Username, only one letter.
>
> Should be?
> if ($email =~ /([EMAIL PROTECTED])+@(.+)/) {
> print "Username is $1\n";
> print "Hostname is $2\n";
> }
Thanks. I suspect the RE should have been /([EMAIL PROTECTED])@(.+)/ and I will
forward such a patch to perl5-porters. It will likely be included in
the next maintenance release, which is due in November.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
