Errei nesse exemplo, seria my $p = algumacoisa();
Mas ok, o Junior falou do 'Exporter', então o que eu to tentando fazer
é:package Palindrome;use strict;use Exporter 'import';@EXPORT_OK =
qw(is_palindrome);sub is_palindrome {return 1 if ($_[0] == reverse $_[0]);}1;
mas quando tento
use Palindrome 'all';print "ok" if (is_palindrome($ARGV[0]));
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.
From: tiago.pecze...@gmail.com
Date: Tue, 29 Apr 2014 17:43:22 -0300
To: rio-pm@pm.org
Subject: Re: [Rio-pm] [DUVIDA] Chamar função sem declarar construtor
isto é uma subrotina exportada
onde vc viu
my $p;
$p->algumacoisa;
?
2014-04-29 17:40 GMT-03:00 Aureliano Guedes <guedes_1...@hotmail.com>:
#!/usr/bin/perl
use strict;use warnings;use Math::Prime::Util ':all';
print "ok" if (is_prime($ARGV[0]));
From: tiago.pecze...@gmail.com
Date: Tue, 29 Apr 2014 17:36:23 -0300
To: rio-pm@pm.org
Subject: Re: [Rio-pm] [DUVIDA] Chamar função sem declarar construtor
de exemplos.
2014-04-29 17:34 GMT-03:00 Aureliano Guedes <guedes_1...@hotmail.com>:
Ola monges,
Tenho uma pequena dúvida.Quando vamos usar uma função(sub-rotina) de um módulo
fazemos na maioria das vezes o seguinte:
use Modulo::Modulo;
my $p = Modulo::Modulo->new();$p->funcao();....
isso porque no modulo tem um contrutor ou foi gerado de presente ao autor
quando usado o Moose ou semelhante.
A questão é que alguns poucos módulos permitem que seja feito diretamente
use Modulo::Modulo;
my $p;$p->funcao();....
A dúvida é: como o autor do módulo faz para que permita fazer a chamada das
funções sem precisar disso:my $p = Modulo::Modulo->new();
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
--
Tiago B. Peczenyj
Linux User #405772
http://about.me/peczenyj
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
--
Tiago B. Peczenyj
Linux User #405772
http://about.me/peczenyj
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
