Re^4: pattern match showes true

hi again, I am building two saperate hashes as


my($q1,$a1) = split(/=/);
$prod->{$environment}{$dbname}{$q1} = $a1;

        my($rt,$ap) = split(/=/);
          $preprod->{$env}{$database}{$rt} = $ap;

and then comparing the values as

if ($preprod->{$env}{$database}{$rt} ne $prod->{$environment}{$dbname}
+{$q1) {
print "$preprod->{$env}{$database}{$rt}\n"
      }
[download]

I get all the values correct except

#$a1 is /siebprod/db13/PRODDB/log2/ 
#$ap is /preprod/db12/PREPRODDB/log2/
[download]

Comment on Re^4: pattern match showes true Select or Download Code

Replies are listed 'Best First'.
Re^5: pattern match showes true by ysth (Canon) on Jul 31, 2007 at 20:19 UTC
In place of your if, try putting `use Data::Dumper; $Data::Dumper::Useqq = 1; $Data::Dumper::Terse = 1; print "preprod is at $preprod, env is ", Dumper($env), " database is " +, Dumper($database), " rt is ", Dumper($rt), " value is ", Dumper($pr +eprod->{$env}{$database}{$rt}), "\n"; print "prod is at $prod, environment is ", Dumper($environment), " dbn +ame is ", Dumper($dbname), " q1 is ", Dumper($q1), " value is ", Dump +er($prod->{$environment}{$dbname}{$q1}), "\n";` [download] and see if anything looks different than you expect.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: pattern match showes true
by ysth (Canon) on Jul 31, 2007 at 20:19 UTC

use Data::Dumper;
$Data::Dumper::Useqq = 1;
$Data::Dumper::Terse = 1;
print "preprod is at $preprod, env is ", Dumper($env), " database is "
+, Dumper($database), " rt is ", Dumper($rt), " value is ", Dumper($pr
+eprod->{$env}{$database}{$rt}), "\n";
print "prod is at $prod, environment is ", Dumper($environment), " dbn
+ame is ", Dumper($dbname), " q1 is ", Dumper($q1), " value is ", Dump
+er($prod->{$environment}{$dbname}{$q1}), "\n";
[download]

[reply]
[d/l]