Re^4: global symbol...explict package name

Hi, I have made the change. Thank you. I have also review all code blocks to make sure everything grouped properly and all was fine. I can't understand why Perl starts complaining at $ODP2Dir and $ODP2Val but not several lines above where I have $ODP1Dir and $ODP1Val. Thank you for your thoughts.

Comment on Re^4: global symbol...explict package name

Replies are listed 'Best First'.
Re^5: global symbol...explict package name by almut (Canon) on Mar 13, 2008 at 03:59 UTC
I have also review all code blocks to make sure everything grouped properly and all was fine. Are you sure your code now looks something like this? `if ($ODP1Dir eq "OUT" \|\| $ODP1Dir eq "DOWN") { if (length($ODP1Val) != 0) {$ODP1Val = '-' . $ODP1Val;} if ($ODP1Dir eq "OUT") { $ODP1Dir = "IN"; } else { $ODP1Dir = "UP"; } }` [download] Note also that you need `eq` instead of `==` to do a string comparison...	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: global symbol...explict package name
by almut (Canon) on Mar 13, 2008 at 03:59 UTC

I have also review all code blocks to make sure everything grouped properly and all was fine.

Are you sure your code now looks something like this?

    if ($ODP1Dir eq "OUT" || $ODP1Dir eq "DOWN") {
      if (length($ODP1Val) != 0) {$ODP1Val = '-' . $ODP1Val;}
      if ($ODP1Dir eq "OUT") {
        $ODP1Dir = "IN";
      } else {
        $ODP1Dir = "UP";
      }
    }
[download]

Note also that you need eq instead of == to do a string comparison...

[reply]
[d/l]
[select]