Orientação a Objetos - Criando e usando uma classe em Perl

dvinciguerra

Perl possui um sistema de Orientação a Objetos que é bem explicito, onde você "constrói as classes com suas próprias mãos" utilizando nada mais do que a sintaxe do próprio Perl e apesar de isso parecer um pouco trabalhoso, na verdade é uma ótima forma para conhecer como os sistemas de objetos funcionam. EM RESUMO: 1. Objetos em Perl são estruturas de dados. Sim! Objetos em Perl são estruturas de dados que são associadas a uma classe. 2. As classes são definidas com o package Sabe o package pelo qual você define os Módulos no Perl? É a mesma coisas com as classes! 3. Construtores abençoam as variáveis Os construtores são apenas sub's que retornam uma variável que foi abençoada (blessed) 4. Os métodos são subs Os métodos dos objetos são apenas sub's no escopo do seu package e que recebem a referência do seu objeto instanciado (blessed) Através deste script, pretendo mostrar de forma simples como trabalhar com orientação a objetos em Perl. PRÉ-REQUISITOS - perl 5.10 ou superior REFERÊNCIAS http://perldoc.perl.org/perlobj.html http://perldoc.perl.org/perlootut.html EXECUTANDO $ perl class.pl

Por: Daniel Vinciguerra

DBIx::Custom para acesso ao Banco de Dados

dvinciguerra

IMPORTANTE: este script pretende apenas mostrar de forma introdutória como acessar dados do banco utilizando o DBIx::Custom. Caso necessário verifique as referencias para mais informações. INTRODUÇÃO O DBIx::Custom é um wrapper para DBI que tenta trazer benefícios e novas features a forma como nós manipulamos dados de bancos em Perl. Este módulo, além de fazer com que o trabalho com o banco fique mais simples, também permite que utilizemos algumas features bacanas como: utilizar estrutura de dados Perl no lugar do SQL, placeholders nomeados, suporte a Models, suporte a gerenciamento de conexões e algumas coisinhas a mais. QUERY USANDO DBI my $dbh = DBI->connect(...); my $sth = $dbh->prepare('SELECT * FROM usuario WHERE email = ?'); $sth->execute('usuario@teste.com'); while(my $row = $sth->fetchrow_hashref){ say "Usuário encontrado #$row->{id} - $row->{nome}"; } QUERY USANDO DBIx::Custom my $dbi = DBIx::Custom->connect(...); my $result = $dbi->select(table => 'usuario', where => {email => 'usuario@teste.com'}); while(my $row = $result->fetch_hash){ say "Usuário encontrado #$row->{id} - $row->{nome}"; } Como puderam ver o código é muito mais limpo, "moderno" e legível que o código usando apenas DBI. PRÉ-REQUISITOS - perl 5.10 ou superior - Módulo DBIx::Custom instalado - Driver do banco de dados (DBD::mysql, DBD::pg, etc... neste caso DBD::SQLite) REFERÊNCIAS https://metacpan.org/pod/DBIx::Custom https://metacpan.org/pod/DBIx::Custom::Result https://github.com/yuki-kimoto/DBIx-Custom/wiki EXECUTANDO $ perl dbix-custom.pl

Por: Daniel Vinciguerra

Obtendo o IP público (Internet) usando o Perl

dvinciguerra

Algumas vezes nós precisamos saber qual é o nosso endereço de IP público (que é diferente do de rede) e uma das formas de fazer isso é acessando serviços online que mostram seu IP. PRÉ-REQUISITOS: - Perl 5.10 ou superior REFERÊNCIAS: https://metacpan.org/pod/LWP::UserAgent EXECUTANDO: Para executar o script: $ perl public-ip.pl

Por: Daniel Vinciguerra

Introdução a Persistência de Estrutura de Dados em Perl

dvinciguerra

Às vezes identificamos a necessidade de guardar estrutura de dados, seja para transporte, para persistência, para processamento posterior, entre outros. Por isso existem inúmeras técnicas para se armazenar estrutura de dados, e para poder recuperá-las posteriormente, como data-dumper, storable, json, yaml, xml etc. Hoje eu vou apresentar neste simples script uma dessas técnicas que se utiliza do modulo Storable para guardar a estrutura de dados para poder utilizar a mesma mais tarde. OBS;: este é um script introdutório sobre o módulo, para dar apenas uma idéia sobre uma solução para possíveis problemas. Caso precise de algo mais específico sobre este assunto, sugiro que dê uma olhada no módulo, para utilizar as funções que melhor se encaixam em seu cenário. PRÉ-REQUISITOS: - módulo IO::File (manipulação de arquivo) - módulo Storable (persistência de estruturas de dados) - módulo Data::Dumper (debug da estrutura de dados) EXECUTANDO: $ perl storage-freeze.pl REFERÊNCIAS: https://metacpan.org/pod/IO::File https://metacpan.org/pod/Storable https://metacpan.org/pod/Data::Dumper

Por: Daniel Vinciguerra

Obtendo a temperatura com Perl

dvinciguerra

Por vezes, nós precisamos obter algumas informações de algum site automaticamente, para automatizar algum relatório ou mostrar algum status. O módulo LWP::UserAgent do Perl pode lhe ajudar nessa tarefa, fazendo as vezes de um "navegador" e permitindo que façamos consultas e acessemos informações de sites programaticamente. Executando: $ perl climate.pl Referência: https://metacpan.org/pod/LWP::UserAgent

Por: Daniel Vinciguerra