$rc = \10; $rs = \"hello";
Cuando se trata de referencias a constantes el valor referenciado no se puede modificar. Véase la siguiente sesión el depurador:
main::(-e:1): 0 DB<1> $ra = \10 DB<2> p $$ra 10 DB<3> p $ra SCALAR(0xc0b840) DB<4> x $ra 0 SCALAR(0xc0b840) -> 10 DB<5> $$ra = 20 Modification of a read-only value attempted at (eval 18)[/usr/share/perl/5.8/perl5db.pl:628] line 2. DB<6> use Scalar::Util qw{readonly} DB<7> x readonly($$ra) 0 8388608 DB<8> x readonly($ra) 0 0 DB<9> @b = 5..10 DB<10> $rb = \@b DB<11> print "rb = $rb; rb-> = @{$rb}" rb = ARRAY(0xc5dfc0); rb-> = 5 6 7 8 9 10Observe la forma en la que se imprime una referencia.
Casiano Rodríguez León