my $stat = período();<br>Bom(a) $stat pessoal.<br><br>Estou estudando Protótipos, e tenho algumas dúvidas vou tentar explicar.<br><br>Por exemplo push(@array,$item);<br><br>No protótipo é a mesma coisa que isso ?<br><br>syb mypush (@array, $item);<br>
<br>Ele faz a mesma coisa que push só que joga na sub rotina e o valor fica armazenado em @_ ?<br><br>No livro da um exemplo que eu não entendi o que esse try faz, no caso é um protótipo:<br>Mas o que é esse ( &$ ) ?<br>
<br>sub try (&$) {<br>my ($try, $catch) = @_;<br>eval { $&$try };<br>if ($@) {<br>local $_ = $@;<br>&$catch;<br>}<br>}<br>sub catch (&) { $_[0] }<br><br>try }<br>die "fui";<br>}<br>catch {<br> /fui/ and print "voltei\n";<br>
};<br clear="all">Página 231 do livro Programação Perl.<br><br>[]s<br>-- <br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(--------)----)----------<br>-------)----(------)----(-----------<br>
-------(----(------)----)-----------<br>--------\_-(\\.--.//)-_/------------<br>----------\)`-6--6-'(/--------------<br>-----------/--------\---------------<br>----------(--)----(--)--------------<br>-----------`(_c__c_)`---------------<br>
--------------`--`------------------<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>