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 ( &amp;$ ) ?<br>
<br>sub try (&amp;$) {<br>my ($try, $catch) = @_;<br>eval { $&amp;$try };<br>if ($@) {<br>local $_ = $@;<br>&amp;$catch;<br>}<br>}<br>sub catch (&amp;) { $_[0] }<br><br>try }<br>die &quot;fui&quot;;<br>}<br>catch {<br>&nbsp;/fui/ and print &quot;voltei\n&quot;;<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-&#39;(/--------------<br>-----------/--------\---------------<br>----------(--)----(--)--------------<br>-----------`(_c__c_)`---------------<br>
--------------`--`------------------<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>