Perl Guru Forums: Perl Programming Help: Beginner: EASY

CGI/Perl Guide | Learning Center | Forums | Advertise | Login

Site Search: in


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN

Home: Perl Programming Help: Beginner:
EASY - case sensitive and punctuation

Zeke_D
Deleted

Oct 12, 2000, 9:26 PM

Post #1 of 2 (184 views)

EASY - case sensitive and punctuation	Can't Post

The following code is case-sensitive. I would like it to not be (so i dont have two people registered as NICK and nick) also I would like to disallow punctuation and symbols.

I know you guys can help me....

<BLOCKQUOTE>code:<HR>

if ($name eq "") {
$founderror = 1 ;
$message .= "Please enter a name. \n";
}
else {
open ("USERNAMES", "$dataurl/snippet.user");
@username = <USERNAMES>;
foreach (@username) {
($xuser) = split ('[|]',$_);
if ($xuser eq $user) {
$founderror = 1 ;
$message .= "Username already in use. \n";
}
}
close (USERNAMES);
}

</pre><HR></BLOCKQUOTE>

[This message has been edited by Zeke_D (edited 10-12-2000).]

[This message has been edited by Zeke_D (edited 10-12-2000).]

LeoF
Novice

Oct 13, 2000, 10:43 AM

Post #2 of 2 (184 views)

Re: EASY - case sensitive and punctuation [In reply to]	Can't Post

Hi Zeke_D,

To avoid case sentitivity change:

<BLOCKQUOTE>code:<HR>

if ($xuser eq $user) {</pre><HR></BLOCKQUOTE>

to:

<BLOCKQUOTE>code:<HR>

if (lc($xuser) eq lc($user)) {</pre><HR></BLOCKQUOTE>

Hope that helps

Be Well

Search for (options)

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives