in reply to Re: Re: Re: /i regex modifier
in thread /i regex modifier

 $sth = $dbh->prepare("SELECT username FROM users");
 $sth->execute;

 while ( $users = $sth->fetchrow_array ) {
    if (param("username") =~ /$users/) {
        error("Username already exists, please make a different one");
    }
 }

[download]
Can someone make this so it will check from the datbase then

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: /i regex modifier
by japhy (Canon) on Jul 18, 2002 at 19:56 UTC
    I already showed you. I'll repeat myself, though it pains me to do so. 
    $sth = $dbh->prepare(
  "SELECT username FROM users WHERE username=?"
);
$sth->execute(param("username"));
if ($sth->fetchrow_array) {
  error("The username already exists.");
}

    [download]

    _____________________________________________________
    Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

[reply]
[d/l]

In Section Seekers of Perl Wisdom