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

Exibir IP do cliente

Mr_Ciber

Mostra IP do cliente no browser. Fazer upload do arquivo para um servidor Apache com suporte a PHP.

Por: Jonathan Ribeiro

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

Script automatizado de Atualização e Instalação de Programas no Ubuntu

CarlosAdriano

Este script visa a automatização da atualização do Ubuntu, e instalação de programas. É uma pequena contribuição, com intuito de incentivar novos usuários que desejam aprender mais. Obviamente o script contém uma lista pessoal pré-selecionada, os programas da lista são só minhas sugestões, Então fica a critério do usuário escolher quais programas adicionar ou remover. Para remover um programa da lista, é só remover a linha completa em que ele se encontra. Uma forma fácil de adicionar programas a lista, é ir até a Central de Programas do Ubuntu, e abrir a página do programa que deseja adicionar à lista. E na parte que informa versão, logo a frente informa o nome do programa que será acessível via apt. Por exemplo, Plugin do Adobe flash, versão flashplugin-installer 11.2.02 (você não coloca a versão, coloca só o nome do programa) apt-get install flashplugin-installer -y O -y no final serve para instalar o programa sem solicitar permissão (aquela y/n ou s/n de, sim ou não, yes or no) INSTRUÇÕES No terminal digite: sudo su gedit ubuntu-programas & (ubuntu-programas ou o nome que desejar) Após salvar o arquivo e sair, use o comando abaixo para permitir que o arquivo seja executado: chmod +x ubuntu-programas E depois para executá-lo: ./ubuntu-programas Depois disso, aguarde um bom tempo de acordo com sua internet, pois se seu Ubuntu estiver recém instalado, ele vai baixar todos os programas listados, e instala-los um por um, e isso pode demorar um bom tempo dependendo da sua conexão de internet, e até da sua máquina, se o programa já estiver instalado e atualizado, o programa simplesmente ignora e não altera nada, e prossegue para o próximo programa. Eu não inseri nenhum ambiente gráfico no script, mas se você desejar, pode fazê-lo. É só selecionar abaixo o comando correspondente ao ambiente gráfico desejado e adicioná-lo na lista do arquivo ubuntu-programas: apt-get install -y cinnamon apt-get install -y plasma-desktop apt-get install -y xfce4 apt-get install -y mate apt-get install -y lxde apt-get install -y razorqt apt-get install -y wmaker apt-get install -y e17 apt-get install -y blackbox apt-get install -y fluxbox apt-get install -y openbox apt-get install -y awesome

Por: Carlos Adriano

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

Função para quebrar linha em PHP

MENO

Tive problemas em PHP para mostrar em uma página HTML até um certo ponto, ou seja, delimitando o número de colunas, encontrei algumas funções mas elas cortavam a metade da palavra no fim da linha. Então desenvolvi uma função própria para isso.

Por: Messias Kamphorst

Pilha dinâmica em C

azk

Implementação de uma simples pilha dinâmica em C. Código em en_US. azk4n

Por: Alexandre (azk)

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