Re: Perl Syntax

[Drew Tomlinson]

On 6/30/2004 10:04 AM Steve Bertrand wrote:
I'm using perl 5.8.4 on a 4.9 machine.  I want to add code a perl script
to check for value passed from command line.  If it is null, I want to
exit with an error message.
First I tried this and got "Use of uninitialized value in string eq at
./test.pl line 20."
if ($ARGV[0] eq "") {
 print "You must include the file name.";
 exit 1;
}
Next I tried this but get "Use of uninitialized value in length at
./test.pl line 20."
if (length ($ARGV[0]) = "0") {
 print "You must include the file name.";
 exit 1;
}
I've searched the web and all examples that I've found indicate that I'm
doing things correctly but obviously I'm not.  What am I doing wrong?
   

I know this works:
if ($ARGV[0] eq '') {
       print "Debug Mode\n";
}
Cheers,
Steve
Thanks for your reply.  I tried your suggestion and it seems to work but 
I get this output:

Use of uninitialized value in string eq at ./test.pl line 16.
You must include the file name.
I have "use warnings;" and "use strict;" in the script.  I assume the 
error comes from the "use warnings;" but why does perl see "eq" as a 
string and not an operator?  Or am I misinterpreting the message?

Thanks,
Drew
--
Visit The Alchemist's Warehouse
Magic Tricks, DVDs, Videos, Books, & More!
http://www.alchemistswarehouse.com
_______________________________________________
[EMAIL PROTECTED] mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "[EMAIL PROTECTED]"