Skip to content

Instantly share code, notes, and snippets.

View dvinciguerra's full-sized avatar
:octocat:
Bite my shine metal class!!!

Daniel Vinciguerra dvinciguerra

:octocat:
Bite my shine metal class!!!
210 followers · 760 following
View GitHub Profile
@dvinciguerra
dvinciguerra / moose_declare.pl
Created December 2, 2010 13:03
Simples example that how to works with MooseX::Declare
use MooseX::Declare;
class People{
# class attributes
has 'name' => ( is => 'rw', isa => 'Str' );
has 'age' => ( is => 'rw', isa => 'Num' );
# Method that speak with us
@dvinciguerra
dvinciguerra / array_exists_perl.pl
Created March 22, 2011 18:19
my @array_a = (1 .. 10);
my @array_b = ( 9 .. 15);
foreach my $item (@array_a) {
if(grep { $_ eq $item} @array_b) {
say $item ."Yes baby!!!";
} else {
say $item ." No!!!\n";
@dvinciguerra
dvinciguerra / Gmail::SendMail.pm
Created September 21, 2011 16:23
Gmail::SendMail.pm
#!/usr/bin/perl
# (c) 2011 Bivee. All rights reserveds.
# author dvicniguerra < dan.vinciguerra at gmail.com >
#
# This script is distributed under Perl Itself License
#
package Gmail::SendMail;
@dvinciguerra
dvinciguerra / www-fgen.pl
Created September 23, 2011 01:45
package WWW::FGen;
use WWW::Mechanize;
# constructor
sub new {
my $class = shift;
return bless {
_mechanize => WWW::Mechanize->new( agent => 'Perl of Love' ),
_url => 'http://mendel.cs.rhul.ac.uk/mendel.php?topic=fgen-file',
@dvinciguerra
dvinciguerra / gist:2960156
Created June 20, 2012 14:26
#!/usr/bin/perl -w
use strict;
use Mail::Internet;
my $mail = Mail::Internet->new(\*STDIN);
# carrega informações
my $from = $mail->head->get("From") || "";
my $subject = $mail->head->get("Subject")|| "";
@dvinciguerra
dvinciguerra / yapcbrasilad.js
Created August 22, 2012 14:54
YAPC::Brasil AD
function YAPCBrasilAD() {
document.write('<div style="font-family:TexGyreAdventor,Trebuchet MS,Verdana;color: #666;-webkit-font-smoothing: antialiased;font-size:10pt;margin:10px;padding:10px;border-radius:5px;height:100px;width:480px;background-color:#e6e6e6;overflow:hidden;-moz-border-radius: 5px;-webkit-border-radius: 5px;"><div style="text-align: center;vertical-align:middle;float: left; margin: 0px; padding: 0px; height: 90px; width: 120px"><img style="margin: 20px;" src="http://yapcbrasil.org.br/2012/images/logo_footer.png"></div>');
document.write('<div style="float: right; margin: 0px; padding: 0px; height: 90px; width: 360px"><strong><a style="text-color: #8f0000;font-size:10pt;text-decoration:none;" href="http://www.yapcbrasil.org.br">YAPC::Brasil 2012 — A revolu&ccedil;&atilde;o dos dados</a></strong><br>Submeta sua palestra: Jornalismo de Dados e Dados Abertos; Bioinform&aacute;tica; Empreendedorismo e Pol&iacute;ticas P&uacute;blicas; e Perl Hacking<br><a style="text-color: #8f
@dvinciguerra
dvinciguerra / index.pl
Created August 24, 2012 17:09
Mojolicious::Lite and Ajax Example
#!/usr/bin/env perl
use DateTime;
use Mojolicious::Lite;
get '/' => 'index';
get '/service/datetime' => sub {
my $self = shift;
my $dt = DateTime->now;
@dvinciguerra
dvinciguerra / gist:3740148
Created September 17, 2012 22:22
#!/usr/bin/perl
use Mojolicious::Lite;
get '/' => { message => '' } => 'index';
post '/' => sub {
my $self = shift;
# getting params
my $email = $self->param('email') || '';
@dvinciguerra
dvinciguerra / .htaccess
Created January 21, 2013 19:01
htaccess for mojolicious under apache
<IfModule mod_rewrite.c>
RewriteEngine On
RewriteBase /
RewriteCond %{REQUEST_FILENAME} !-d
RewriteCond %{REQUEST_FILENAME} !-f
RewriteRule ^(.*)$ index.pl/$1 [QSA,L]
</IfModule>
DirectoryIndex index.pl index.html index.htm ~/404.html
@dvinciguerra
dvinciguerra / simple-singleton.pl
Created January 23, 2013 21:39
Simple Perl Singleton Explanation
# Singleton Class
package Singleton;
# global instance
our $_instance;
# construct or return a valid instance
sub instance {
my $class = shift;
unless ($_instance){