<div dir="ltr">ok<div><br></div><div>tem uma biblioteca chamada 'autobox' que pode fazer umas bruxarias. achei que poderia ser o caso</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-04-29 17:57 GMT-03:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr"><div>Errei nesse exemplo, seria my $p = algumacoisa();</div><div><br></div><div>Mas ok, o Junior falou do 'Exporter', então o que eu to tentando fazer é:</div><div><div>package Palindrome;</div>
<div>use strict;</div><div><div>use Exporter 'import';</div><div><span style="font-size:12pt">@EXPORT_OK =</span><span style="font-size:12pt"> qw(is_palindrome</span><span style="font-size:12pt">);</span></div></div>
<div>sub is_palindrome {</div><div>return 1 if ($_[0] == reverse $_[0]);</div><div>}</div><div>1;</div></div><div><br></div><div>mas quando tento</div><div><br></div><div><div>use Palindrome 'all';</div><div><span style="font-size:12pt">print "ok" if (is_palindrome($ARGV[0]));</span></div>
</div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">e executo na shell 'perl <a href="http://exemplo.pl" target="_blank">exemplo.pl</a> 111' ou qualquer outro número palíndromo ou não, não imprime "ok", apesar de não gerar nenhuma mensagem de erro.</span></div>
<br><div><hr>From: <a href="mailto:tiago.peczenyj@gmail.com" target="_blank">tiago.peczenyj@gmail.com</a><br>Date: Tue, 29 Apr 2014 17:43:22 -0300<div><div class="h5"><br>To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>
Subject: Re: [Rio-pm] [DUVIDA] Chamar função sem declarar construtor<br><br><div dir="ltr">isto é uma subrotina exportada<div><br></div><div>onde vc viu</div><div><br></div><div>my $p;</div><div><br></div><div>$p->algumacoisa;</div>
<div><br></div><div>?</div></div><div><br><br>
<div>2014-04-29 17:40 GMT-03:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr"><div>#!/usr/bin/perl</div><div><br></div><div>use strict;</div><div>use warnings;</div><div>use Math::Prime::Util ':all';</div><div><br></div><div>print "ok" if (is_prime($ARGV[0]));</div>
<br><div><hr>From: <a href="mailto:tiago.peczenyj@gmail.com" target="_blank">tiago.peczenyj@gmail.com</a><br>Date: Tue, 29 Apr 2014 17:36:23 -0300<br>To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>
Subject: Re: [Rio-pm] [DUVIDA] Chamar função sem declarar construtor<div><div><br><br><div dir="ltr">de exemplos.<div><br></div><div><br></div></div><div><br><br><div>2014-04-29 17:34 GMT-03:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Ola monges,<div><br></div><div>Tenho uma pequena dúvida.</div><div>Quando vamos usar uma função(sub-rotina) de um módulo fazemos na maioria das vezes o seguinte:</div><div><br></div><div>use Modulo::Modulo;</div>
<div><br></div><div>my $p = Modulo::Modulo->new();</div><div>$p->funcao();</div><div>....</div><div><br></div><div>isso porque no modulo tem um contrutor ou foi gerado de presente ao autor quando usado o Moose ou semelhante.</div>
<div><br></div><div>A questão é que alguns poucos módulos permitem que seja feito diretamente</div><div><br></div><div>use Modulo::Modulo;</div><div><br></div><div>my $p;</div><div>$p->funcao();</div><div>....</div><div>
<br></div><div>A dúvida é: como o autor do módulo faz para que permita fazer a chamada das funções sem precisar disso:</div><div>my $p = <span style="font-size:12pt">Modulo::Modulo->new();</span></div> </div>
</div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</div>