Acho a utilização de OO, uma vez que a implementação é simples, o código fica mais limpo e a manutenção fica mais fácil. Mas claro que depende do que você está fazendo. Dentre as soluções, eu indicaria a do Champs e a do Eden, caberia a você, ao seu código e à sua necessidade a escolha.<br>
<br>[]s<br><br><div class="gmail_quote">2008/4/28 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Bom encontrei outra solução simples com Typeglob. Que acham dessa ? Particularmente acho que não carece de OO para essa solução.<br>
<br>
use vars qw/$host/;<br>
<br>
*host = \'localhost';<div class="Ih2E3d"><br>
<br>
print eval { $host = '<a href="http://10.1.1.1/" target="_blank">10.1.1.1</a>' } ? "O valor de \$host foi alterado\n" : "O valor de \$host nao pode ser alterado\n";<br>
print eval { *host = \'<a href="http://10.1.1.1/" target="_blank">10.1.1.1</a>' } ? "O valor de \$host foi alterado\n" : "O valor de \$host nao pode ser alterado\n";<br><br><br><br></div><div class="gmail_quote">
2008/4/28 Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com" target="_blank">gabriel.vieira@gmail.com</a>>:<div><div></div><div class="Wj3C7c"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
print 'After readwrite: ' . readonly . "\n";<div><div></div><div><br><br><div class="gmail_quote">On Mon, Apr 28, 2008 at 12:55 PM, Eden Cardim <<a href="mailto:edencardim@gmail.com" target="_blank">edencardim@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>2008/4/28 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</a>>:<br>
</div><div>> Achei esse barato aki, o que acham ?<br>
><br>
> my $host = 'localhost';<br>
><br>
> Internals::SvREADONLY($host => 1); # lock $host<br>
> print eval { $host = '<a href="http://10.1.1.1" target="_blank">10.1.1.1</a>' } ? "O valor de \$host foi alterado\n" :<br>
> "O valor de \$host nao pode ser alterado\n";<br>
><br>
> Internals::SvREADONLY($host => 0); # unlock $host<br>
> print eval { $host = '<a href="http://10.1.1.1" target="_blank">10.1.1.1</a>' } ? "O valor de \$host foi alterado\n" :<br>
> "O valor de \$host nao pode ser alterado\n";<br>
<br>
</div>Que tal usar lvalues?<br>
<br>
use warnings;<br>
use strict;<br>
<br>
my $foo = 'bar';<br>
<br>
sub readwrite :lvalue { $foo }<br>
<br>
sub readonly { $foo }<br>
<br>
print 'Initial value: ' . readonly . "\n";<br>
eval q{ readonly = 'baz' };<br>
warn $@ if $@;<br>
print 'After readonly: ' . readonly . "\n";<br>
readwrite = 'baz';<br>
print 'After readwrite: ' . readwrite . "\n";<br>
<br>
Inclusive os erros de escrita proibida são pegos em tempo de compilação :)<br>
<font color="#888888"><br>
--<br>
<a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
</font><div><div></div><div>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br></div></div>-- <br><font color="#888888">Gabriel Vieira
</font><br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div></div></div><br>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Gabriel Vieira