Re: [MacPerl] character classes

["Paul J. Schinder" <schinder@pjstoaster.pg.md.us>]

Monty VanEmmerik <montyv@swfla.infi.net> writes:
}I am working on a script that double checks a scalar to make sure there is
}an "@"
}present.
}Can someone help me with the correct way to do this?
}Thanks!
}
}
}MAIN:
}{
}$test= "montyv\@swfla.infi.net";
}if ($test eq \w,'\@',\w) {  	 #THIS LINE HERE!

if($test =~ /\w+@\w+/) {

}print "This is an email address!\n";
}}
}else {
}print "This is not an email address!\n";
}}
}}
}
}Monty VanEmmerik
}montyvan@swfla.infi.net
}montyv@swfla.infi.net


--------
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693
Greenbelt, MD 20770
schinder@pjstoaster.pg.md.us