<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><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 exemplo.pl 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 id="stopSpelling">From: tiago.peczenyj@gmail.com<br>Date: Tue, 29 Apr 2014 17:43:22 -0300<br>To: rio-pm@pm.org<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 class="ecxgmail_extra"><br><br>
<div class="ecxgmail_quote">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 class="ecxgmail_quote" 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 class="h5"><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">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
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>