Shawn Gordon wrote:

> Can anyone suggest a trick for validating that a logon string is > legit?
> So in a program someone enters "bob,manager.sys.pub" it will fail
> because of the ".pub"?

#!/usr/local/bin/perl
$logon=<>;
if ($logon !~ /^(\w{0,8}\,){0,1}\w{1,8}\.\w{1,8}(\,\w{1,8}){0,1}$/
 || $logon =~ /_/) {
     print "in";
     }
print "valid login\n";

Jeff Kell <[log in to unmask]>