[...]
eLOad> if (@ARGV[0]="-d") {
eLOad> $debug=1;
eLOad> open DEBUG, ">debug.log";
eLOad> print DEBUG localtime "\n";
eLOad> }
eLOad> doesn't seem to give me a debug.log anywhere on my machine. I've set the
eLOad> "Startup Parameters " of the service to "-d".
comparing strings/numbers in perl seems to be common problem for people.
but you are the best :] because you've made three mistakes (if it's
possible! :)
in perl you use 'eq' operator to compare strings and '==' to compare
numbers ('=' is assigment only, not comparing sign!)
try changing first line to:
if ($ARGV[0] eq '-d') {
....
ps. note $ARGV[0] instead of @ARGV[0]
greetz,
pd
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
