PHP is shit

[Anonymous]

Yo Milk a**ist me here I want a match operator to validate an email address eg

The Match operator for PhoneNumber will be like this(!ereg("^\[0-9] {3}\)[0-9]{3}-[0-9]{4}$",$phone) )

e-mail must be in this form Rhythmic@africasgateway.comor Rhythmic@Africasgateway.co.za

I have been struggling the whole day

[briCK]

sub is_valid_local_email_part ($) {
       my ($addr) = @_;
       my $atext = qr/[A-Za-z0-9\!\#\$\%\&\´\*\+\-\/\=\?\^\_\`\{\|\+\~]/;
       my $dot_atom_text = qr/$atext+(\.$atext+)*/;

       my $no_ws_ctl_char = qr/[\x01-\x08\x0b\x0c\x0e-\x1f\x7f]/;
       my $qtext_char = qr/([\x21\x23-\x5b\x5d-\x7e]|$no_ws_ctl_char)/;
       my $text = qr/[\x01-\x09\x0b\x0c\x0e-\x7f]/;
       my $qtext = qr/($qtext_char|\\$text)*/;
       my $quoted_string = qr/"$qtext"/;

       if ( $addr =~ /^($dot_atom_text|$quoted_string)$/ ) {
               return 1;
       } else {
               return 0;
       }
   }
   sub is_valid_email ($) {
       my ($addr) = @_;
       my $atext = qr/[A-Za-z0-9\!\#\$\%\&\´\*\+\-\/\=\?\^\_\`\{\|\+\~]/;
       my $dot_atom_text = qr/$atext+(\.$atext+)*/;

       my $no_ws_ctl_char = qr/[\x01-\x08\x0b\x0c\x0e-\x1f\x7f]/;
       my $qtext_char = qr/([\x21\x23-\x5b\x5d-\x7e]|$no_ws_ctl_char)/;
       my $text = qr/[\x01-\x09\x0b\x0c\x0e-\x7f]/;
       my $qtext = qr/($qtext_char|\\$text)*/;
       my $quoted_string = qr/"$qtext"/;

       my $quotedpair = qr/\\$text/;
       my $dtext = qr/[\x21-\x5a\x5e-\x7e\x01-\x08\x0b\x0c\x0e-\x1f\x7f]/;
       my $dcontent = qr/($dtext|$quotedpair)/;        
       my $domain_literal = qr/\[(${dcontent})*\]/;

       if ( $addr =~ /^($dot_atom_text|$quoted_string)\@($dot_atom_text|$domain_literal)$/ ) {
               return 1;
       } else {
               return 0;
       }
   }



[ This message was edited by: briCK on 02-09-2004 19:36 ]

[Ramorethetho]

Brick i cant realy get you i think you mix it with perl somewhere

[RuSh]

whats up dudes

[briCK]

Quote:

02-09-2004 at 19:45, Rhythmic : Brick i cant realy get you i think you mix it with perl somewhere

i was too lazy to write the code right so i copied from some shit i done before...but the syntax for the expressions should be the same...and yes it is a perl script...if you read the code..it is very simple you will be able to figure it out..

sorry thats all te help i can