peczenyj

#!/bin/perl

use strict;
use warnings;

use JSON qw(decode_json);
use Text::Table;
use LWP::Simple;

my $URL = "http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json";

peczenyj

#!/bin/bash
#
# Este script vai consultar o json da globo.com e vai mostrar em 
# quantos estados o partido X coliga com os outros partidos
#
PARTIDO=${1:?favor informar o partido}
URL=http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json

echo "Coligações do partido $PARTIDO"

peczenyj

$ perl linguaP.pl "ola tudo bem"
PeO PeLa PeTu PeDo PeBem

peczenyj

Mauro Sant'Anna é tido e havido como um dos gurus das tecnologias de desenvolvimento da Microsoft. No site dele eu [ http://www.mas.com.br/Artigos/Principal.htm ] encontro a seguinte pérola:

Open Source e Comunismo - Janeiro/2002 
ATENÇÃO: Devido a enorme quantidade de ofensas e xingamentos recebidas pelo autor da matéria, tiramos esta página do ar. A ditadura e a patrulha ideológica venceram. Viva o Grande Camarada Stalin. Longa vida a Fidel.

Não se preocupe, ó grande combatente da liberdade, da torta de maçã e do EULA! Eu manterei vivas as suas palavras, para que nunca ninguém esqueça qual o brilhante intelecto que as criou!

peczenyj

use strict;
use warnings;
use feature 'say';
use Memory::Stats;

sub multiplicador{ 
    my @ini = (100..999);
    my $fim = 999;
    my @memo;
    while ($fim != 100){

peczenyj

NEW! you can install via cpan: https://metacpan.org/release/PACMAN/Acme-CatFS-0.001

1. you should install LWP::Simple and Fuse:Simple - use cpan or cpanm
2. you should configure the local fuse install to run as root or as common user
3. don't forget 'fusermount -u <mountpoint>' after finish the script

to install dependencies

you can use regular cpan OR cpanminus ( http://search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm )

peczenyj

package Maybe;

use Moo::Role;

has value => (is => 'ro', required => 1);

use overload 
  '>>='=> \&bind;

sub bind {

peczenyj

Keybase proof

I hereby claim:

• I am peczenyj on github.
• I am pacman (https://keybase.io/pacman) on keybase.
• I have a public key whose fingerprint is D9D2 107C 74EB 9F34 71A4 B23E 4783 515E 0FBE EDE5

To claim this, I am signing this object:

peczenyj

2.1.0 :001 > require 'moosex'
 => true 
2.1.0 :015 > class B
2.1.0 :016?>   include MooseX.init(meta: true)
2.1.0 :017?>   has :a
2.1.0 :018?>   has [ :b, :c ]
2.1.0 :019?>   has d: { doc: "d" }
2.1.0 :020?>   has :e, is: :rw, doc: "eeee"
2.1.0 :021?> end
 => nil 

peczenyj

import java.util.Iterator;
import java.util.Queue;
import java.util.LinkedList;
import java.util.NoSuchElementException;

class SingleFrequencyIterator<V> implements Iterator<V>{

	private int counter;
	private V value;