Usando sub/method signatures no Perl

Publicado por Daniel Vinciguerra (última atualização em 14/06/2016)

[ Hits: 2.257 ]

Homepage: http://bivee.com.br

Download signatures.pl




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

  



Esconder código-fonte

#!/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);
};



Scripts recomendados

Perl OO & Atributos com Class::Accessor

Separando seu código em módulos no Perl

Exemplo de uso do módulo Term::InKey

Calculo de valor futuro - regrassão linear

Inserindo o nome de aluno e calculando média de suas notas


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts