7 Einträge, 1 Seite |
Gast+2008-07-11 11:56:14--== geht ja nicht, weil eine Referenz obwohl es ja eigentlich nur eine Speicheradresse ist, in Perl nicht nummerisch ist. Oder irre ich da?
1
2
3
moritz@trudi:~/src/parrot>perl -MCGI -wle 'my $x = new CGI; my $y = new CGI; print $x == $y; print $y == $y'
1
renee+2008-07-11 12:09:38--
1 2 3 4
use Scalar::Util qw(refaddr); if (refaddr($obj1) == refaddr($obj2)){ ... }
7 Einträge, 1 Seite |