On Jul 9, [EMAIL PROTECTED] said: >print 'Username: ', random_string(), "\n"; >print 'Password: ', random_string(), "\n"; > [snip] > ># everything ok, let's write to database and send welcome email >open (DATABASE, ">>$database"); >flock (DATABASE, 2); >print DATABASE "$username|$password\n"; >flock (DATABASE, 8); >close (DATABASE);
You didn't store the values in $username and $password. You just printed them. my ($username, $password) = (random_string(), random_string()); print "Username: $username\n"; print "Password: $password\n"; # then open the database and print to it like you did above -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
