Usando sub/method signatures no Perl
Publicado por Daniel Vinciguerra (última atualização em 14/06/2016)
[ Hits: 2.282 ]
Homepage: http://bivee.com.br
Desde a versão *5.20, que nós tivemos uma conquista a mais na sintaxe do Perl... ganhamos a possibilidade de trabalhar com assinatura de funções/métodos (sub/method signatures).
Isso significa que a partir desta versão do Perl, poderemos escrever nossas subs da seguinte forma:
sub talk ($name) {
say "Hello ${name}"
}
Isso existe a um bom tempo, porem só agora é nativo (na sintaxe da linguagem) o que deixa muitos desenvolvedores que sentiam falta desse "syntax sugar" mais felizes.
Mas e para quem utiliza versões mais antigas do Perl? Bem... primeiramente eu sugiro que você atualize sempre seu interpretador... mas se quiser experimentar esse gostinho vou deixar aqui dois módulos que dão a possibilidade de trabalhar com sub/method signatures.
**NOTA**
O uso de assinaturas nativo ainda está marcado como feature experimental
PRÉ-REQUISITOS
- perl 5.10 ou superior
- Módulo signatures instalado
- Módulo Method::Signatures instalado
REFERÊNCIAS:
http://perldoc.perl.org/feature.html#The-%27signatures%27-feature
EXECUTANDO:
$ perl signatures.pl
#!/usr/bin/env perl use 5.10.0; use strict; use warnings; ############################## # simple func signatures ############################## say "Usando o modulo 'signatures'"; say "=" x 60; do { use signatures; # sub simples say "- exemplo usando sub"; sub talk ($name, $times){ say "$_ - $name" for 1 .. $times || 1 } talk("Hello World", 5); # classe e métodos say "- exemplo usando classe e métodos"; package Talker { use signatures; sub new ($class, $name) { return bless { name => $name }, $class; } sub talk ($self, $name, $times){ say "$_ - " . ($name || $self->{name}) for 1 .. $times || 1 } } my $t = Talker->new('Hello World'); $t->talk(undef, 5); }; say "\n"; ############################## # usando Method::Signatures ############################## say "Usando o modulo 'Method::Signatures'"; say "=" x 60; do { use Method::Signatures; # sub simples (substirui a keyword sub por func) say "- exemplo usando sub (func)"; func talk ($name = 'Hello Word', $times = 1){ say "$_ - $name" for 1 .. $times } talk("Hello World", 5); # classe e métodos say "- exemplo usando classe e métodos"; package Talker { use Method::Signatures; # self é carregado implicitamente method new (Str $name) { return bless { name => $name }, $self; } method talk ($name, $times = 1){ say "$_ - " . ($name || $self->{name}) for 1 .. $times } } my $t = Talker->new('Hello World'); $t->talk(undef, 5); };
Exemplo de uso do módulo Term::InKey
Separando seu código em módulos no Perl
Perl OO & Atributos com Class::Accessor
Calculo de valor futuro - regrassão linear
Nenhum comentário foi encontrado.
Links importantes de usuários do VOL (3)
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Criando um Pen Drive Bootável no Linux
Instalando Discord no Fedora 40
Instalando Discord no Ubuntu 24.04 LTS
Como instalar o XFCE4-terminal na sua distribuição Linux e integrá-lo ao sistema
Como instalar o Tilix Terminal no Gnome e usá-lo como menu drop-down ao estilo Quake
Não existe o slackbuild do bash no repositório slackbuild? (1)