• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 176
  • Last Modified:

Strange problem .. Help

Hi folks,

I am facing a strange problem. I would appreciate if u can help me finding what I am doing wrong. I am writing a cgi program using CGI.pm. I am reading a parameter value by executing GET from the browser and executing a query with the value.

It is like http://myserver/cgi-bin/test.cgi?contactID='CT0001'

My program looks like,

/****************************************
$myCgi = new CGI;
$contactId = $myCgi -> param('contactID');
chomp($contactId);
# if contact id is empty, show error message and return
if($contactId == "")
{
        Util::showError("Contact ID $contactId cannot be blank");
        exit ;
}
*******************************************

So here I am checking whether the value is passed or not.  Initially the contact id field was numeric and I used to pass

http://myserver/cgi-bin/test.cgi?contactID=001

It used to work fine, but when I started sending CT0001, it executes the showError routine even though I have passed contact Id properly. Even in the showError subroutine, I am trying to print the $contactId, it is printing properly as CT0001. But logically, it should not execute the showError subroutine.

What am I doing wrong here ?? Is ( if ( $contactId == "") is not a valid check for empty string value ?? Why it is working for numeric and not alphanumeric ??

Thanx in advance,
Maha


0
maha
Asked:
maha
  • 2
1 Solution
 
maneshrCommented:
you are using the == operator which is meant for Numeric comparison NOT String comparison.

Replace == with eq and it should work.

== != <=> (equal to, not equal to, signed comparison)

eq ne cmp (their string equivalents)

An even better option would be to use regular expression. That way you dont have to worry about string or numbers.

Eg

## Check if contactId is empty or if the user has entered white spaces!!
if($contactId=~ /^$/ || $contactId=~ /^\s+$/){

.....

}
0
 
mahaAuthor Commented:
Thanx Maneshr

Actually I found the solution ( use of eq) and it worked. So I did delete this question . I donot understand how it has reappeared again. ANyway thanx for your time and so I accept your answer.

I am new to perl and learning it as I use. Can u recommend good book for regular expressions in perl ??

Maha
0
 
maneshrCommented:
Glad to be of help to you.

i would suggest you start with...

Learning Perl, 2nd Edition

By Randal L. Schwartz & Tom Christiansen Foreword by Larry Wall
2nd Edition July 1997
1-56592-284-0, Order Number: 2840
302 pages, $29.95

you can get better deals if you search on the NET.

======================
Specifically for Regular Expressions you can use...

Mastering Regular Expressions

Powerful Techniques for Perl and Other Tools

By Jeffrey E. F. Friedl
1st Edition January 1997
1-56592-257-3, Order Number: 2573
368 pages, $34.95

you can get the Table of Contents at ...
http://www.oreilly.com/catalog/regex/toc.html

Hope that helps
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now