In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (John W. Krahn) wrote:
> > my @line = split /:/; > > if ( (lc($line[0]) eq lc($usrname)) && ($line[3] == 45) ) > ^^ ^^ > This won't work if a user name has upper case letters, for example I > just created these two accounts: > > # cat /etc/passwd > [snip] > roger:x:5001:100:Roger 1 Test:/home/roger:/bin/bash > Roger:x:5002:100:Roger 2 Test:/home/Roger:/bin/bash mmm true.. I'd forgotten about that. You catch that, Daniel? print pack "H*", "4a75737420416e6f74686572204d61635065726c204861636b65722c0d"; -- Scott R. Godin | e-mail : [EMAIL PROTECTED] Laughing Dragon Services | web : http://www.webdragon.net/ It is not necessary to cc: me via e-mail unless you mean to speak off-group. I read these via nntp.perl.org, so as to get the stuff OUT of my mailbox. :-) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
