Este exemplo que colocarei aqui foi algo que procurei bastante na internet para um script que eu estava fazendo e não achei nanhuma informação de credibilidade sobre o assunto, achei estranho, ao final acabei fazendo do jeito mais obvio, e na minha cabeça o mais improvável, e não é que deu certo! E já que funcionou tão bem, vou dividir mais este com a galera.

Antes de Começar:

Certifique-se que você tenha conexão com uma base de dados que contenha campos do tipo BLOB. Caso não tenha uma tabela com BLOB ai vai um exemplo:

CREATE TABLE `user` (
`user_id` int(5) unsigned NOT NULL auto_increment,
`user_name` varchar(255) character set latin1 collate latin1_bin NOT NULL default ”,
`user_password` tinyblob NOT NULL,
`user_email` tinytext NOT NULL,
`user_options` blob NOT NULL,
PRIMARY KEY (`user_id`),
UNIQUE KEY `user_name` (`user_name`),
KEY `user_email_token` (`user_email_token`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=30 ;

No exemplo acima definimos o “user_options” como uma série de configurações padrão para criação de um novo usuário que serão lidas por uma aplicação que fará o acesso ao banco através de um arquivo .txt , chamaremos este arquivo de template.txt.

Abaixo vai o código comentado:

#!/usr/bin/perl

#[ Use estes dois aqui sempre, esta lah no livro de boas praticas ]
use warnings;
use strict;
#[ Este aqui eh usado para acessar o banco ]
use DBI;

#[ Outras variaveis ]
my $login = “usertest”;
my $email = “usertest@email.com”;

#[ Variavel que ira receber o arquivo inicialmente zerada ]
my $options = “”;

#[ Abrimos o arquivo e armazenamos em uma variavel ]
open(FILE, “template.txt”) or die “File cannot be read”;
read(FILE, $options, 1153);
close(FILE);

#[ Conecta no banco ]
my $dbh = DBI->connect(“DBI:mysql:nome da tabela“, ‘usuario‘, ‘senha‘) or die “Impossivel conectar no Servidor: $DBI::errstr”;

#[ Inserindo os dados ]
$query = “INSERT INTO nome da tabela.user (user_name,user_email,user_options) VALUES (?, ?, ?, ?)”;
$insert = $dbh->prepare_cached($query);
$insert->execute($login, $email, $options) or die “Impossivel conectar no Servidor: $DBI::errstr”;
print “Usuario $login adicionado com sucesso!\n”;

#[ Desconecta do Banco ]
$dbh->disconnect;

Conciderações finais

Lembre-se que o Perl irá procurar o arquivo no mesmo diretório onde o script se encontra, caso o script e o arquivo a ser carregado estejam em diretórios diferentes altere a linha “open” com o caminho completo do arquivo.

O número que existe na linha “read(FILE, $options, 1153);” significa o tamanho do arquivo em kbites.

Para saber mais

Documentação Oficial do MySQL sobre BLOB
Documentação Oficial do Perl DBI

Coisas que só o dia-a-dia de um Programador pode oferecer…

- Quem escreveu esta porcaria de Código?
- Porque você não olha dentro do SVN (controle de versões)?
- Tenho medo de que ele seja meu

Olá, este é mais um post da série “Dicas de Programação do Titio Plastico” , hoje vou mostrar como você consegue criar sem muito esforço um script que receberá diversos parâmetros pela linha de comando que servirão de informações adicionais para um script se tornar mais dinâmico. O que é algo muito útil para Administradores de Sistema e programadores que querem agilizar ao máximo seu trabalho.

Abaixo vai o código comentado, no exemplo serão passados Nome, email e telefone de um usuário qualquer:

#!/usr/bin/perl

#[ Use estes dois aqui sempre, esta lah no livro de boas praticas ]
use warnings;
use strict;

#[Esta é a classe que deve ser chamada para gerenciar os parâmetros]
use Getopt::Std;

#[Criaremos aqui um array vazio que irá receber os parâmetros]
my %hash = ();

#[Aqui é onde o getopts associa o conteúdo de cada parâmetro ao array]
getopts(“:n:e:t:”, \%hash);

#[Mandando inprimir o resultado]
print ” Nome $hash{n} , email $hash{e} , telefone $hash{t}\n”;

Executando o script:

~$ ./parametros.pl -n Plastico -e plastico@hotmail.com -t 21212121
Nome Plastico , email plastico@hotmail.com , telefone 21212121

Que os equipamentos da Apple são conhecidamente eficazes no que diz respeito a tratamento de imagem isto todo mundo já conhece e não há o que discutir, mas isto não significa que os Macs da vida estão restritos somente a este nicho de mercado, não senhor, muito pelo contrário. Nem todo mundo sabe que o Mac OS X já vem prontinho para começar a desenvolver, tanto que nele já vem instalados as melhores linguagens disponíveis no mercado, estão todas lá. perl, phyton, ruby, php…apenas esperando para serem usadas, aqui vou mostrar como configurar seu Mac para começar a desenvolver para web

O MacOS X sendo um sistema Unix-Like traz todas ou pelo menos a maioria das opções de configuração em linha de comando que podem ser encontradas no Linux incluindo a dupla dinâmica do desenvolvimento Web, Apache+PHP. Claro que a estrutura de diretórios é um pouco diferente, então mostrarei aqui como encontrar os arquivos e diretórios para começar a desenvolver sites dinâmicos no seu Mac.

Primeiramente vamos ao PHP. O PHP já vem instalado nativamente no Snow Leopard, mas caso não esteja baixe o PHP direto do site da Apple. A instalação é feita no jeito Apple de ser, ou seja, bastante simples.

A seguir segue a estrutura de Binários e Arquivos de Configuração do Apache, que também já vem instalado nativamente no Leopard:

ServerRoot /usr
Config /etc/apache2/httpd.conf
DocumentRoot /Library/WebServer/Documents
ErrorLog /var/log/apache2/error_log
AccessLog /var/log/apache2/access_log
cgi-bin /Library/WebServer/CGI-Executables (empty by default)
binaio /usr/sbin/httpd
start/stop /usr/sbin/apachectl (start|stop|restart|fullstatus|status|graceful|graceful-stop|configtest|help)

OK, agora que você está familiarizado com o Apache, vá ao httpd.conf e habilite o módulo do php que não vem habilitado por padão, procure a linha abaixo, descomente-a e salve o arquivo.

#LoadModule php5_module        libexec/apache2/libphp5.so

Em seguida execute um graceful do apache, para que a nova configuração passe a ter valor.

Agora para começar a trabalhar basta salvar seus arquivos dentro da pasta Sites que no Finder é exibida dentro da pasta do seu usuário. O apache lê esta pasta como um dos diretórios de publicação que são autorizados em suas configurações. E para visualizar suas páginas, abra o navegador e digite o endereço da seguinte forma:

http://[ip do computador]/~Usuário/sua_pagina.php

Exemplo:

http://10.0.0.1/~Plastico/teste.php

Bom Divertimento!

Depois que eu comprei meu MacBook, sobre o qual eu falarei por completo logo mais, eu consegui melhorar em muito a minha produtuvidade, e estou tocando alguns projetos pessoais e algumas mudanças que eu queria fazer aqui no blog, e a primeira delas é uma página com todas a Ferramentas que eu desenvolvo nas horas vagas. Estão lá o JsIndexer, o Moneylog.rb e mais algumas, e a lista vai crescer ainda mais, aguardem por mais novidades em breve.

Vida Longa e Próspera!

Vou deixar aqui uma dica bem rápida de programação que é bastante simples mas de grande valor no que se refere a geração e manipulação de datas usando a linguagem Perl.

O Perl é uma linguagem já bem antiga mas ainda assim bastante poderosa e largamente difundida principalmente junto aos Administradores de Sistemas Unix Like por ajudar a automatizar diveras tarefas. Eu costumo usar esta linguagem no meu dia-a-dia, mas quanto mais eu uso, mais eu vejo que tenho muito a aprender.

Uma das coisas que mais me traz dificuldades é trabalhar com datas, não só em Perl, mas em qualquer linguagem esta tarefa é meio complicada. O problema é que Perl tem um jeito todo particular de tratar as datas, seus contadores internos começam sempre com 0 (zero), sendo assim, o mês de Janeiro é o mês Zero por exemplo, logo Dezembro é o mês 11!

Difícil de entender, fala a verdade…a parte boa é que o Perl trabalha muito bem com timestamp, que na minha opinião é a melhor maneira de trabalhar com datas em qualquer lugar.

Numa histórinha rápida o timestamp é um contador que controla a quantidade de segundos que se passaram desde as zero horas do dia Primeiro de Janeiro de 1970.

O timestamp é muito interessante porque nele não existem horas, dias semanas, meses, anos…só segundos, e a partir desta quantidade de segundos você consegue descobrir qualquer data e hora que se deseje.

Para fazer isto em Perl basta inserir no seu script as linhas como no exemplo abaixo:

#!/usr/bin/perl
use POSIX;
my $birthday = POSIX::strftime(“%d/%m/%Y”,localtime(time-1012025181));
print “$birthday\n”;

A mágica toda fica por conta do Modulo Posix que é importado no começo do script, que chama a função strftime que faz a conversão, e o timestamp que foi falado acima é gerado com a função time do perl e sem esforço nenhum você consegue obter qualquer data, no exemplo acima a data que será impressa é 09/10/1977 que é a data do meu nascimento, que eu consegui subtraindo o time pelo número de segundos 1012025181.

Ah, a data no formato dd/mm/yyyy foi conseguida com a inclusão do formato %d/%m/%Y igual no comando date do Linux ;^)

Bom, é isso, espero que os programadores de plantão tenha gostado da dica, um abraço!

#!/usr/bin/perl
while($alive) {
seek(LIFE,LOVE,HAPPINESS);
study($life);
if($day=~”^S” or $weekend) {
sleep($longer);
tell $theworld, “HOORAY!”;
play();
have($fun);
cut $GRASS;
} else {
sub work {
seek(PROBLEMS,0,1) and study;
$solve and $analyze until $done
};
}
}

fonte: Blog do Eli Rios

O Moneylog.rb é um programinha escrito em Ruby que eu fiz com duas finalidades, uma era aprender um pouco mais sobre Ruby que era uma linguagem que eu estava aprendendo na época. A outra finalidade era gerar gráficos para que eu pudesse acompanhar minhas finanças de uma maneira visual, aproveitando a facilidade do MoneyLog Experience escrito pelo Aurélio, que é bastante simples de usar.

Como eu não tenho mais o blog antigo, as pessoas que acessavam o site do Aurélio e se interessavam pelo plugin ficaram sem ter o que acessar, portanto eu aproveitei a hospedagem do blog e criei mais um puxadinho, desta vez para esta ferramenta que eu gostei tento de ter escrito, para os curiosos, dêem uma passadinha lá pra ver como ficou, vou pedir para o Aurélio atualizar o link na página do Moneylog para direcionar para o novo endereço. Ah, o link é http://blogdoplastico.com/moneylog.rb/.

Depois que eu hospedei o blog em um domínio próprio eu tenho “Poder Obsoluto” sobre ele, o que significa que eu não preciso mais ter que me submeter as limitações que o wodpress impunha ao conteúdo que eu tinha vontade de incluir no blog, eu até entendo a proibição do adsense e tudo mais, mas links de submissão, qual o problema de disponibilizar um plugin?

E essa era uma limitação que me incomodava tanto que me fez criar a minha própria solução para contornar esta falta, e assim nasceu o Jsindexer, um programa que gerava os códigos que podiam ser incluidos no blog do wordpress com um simples ctrl+c ctrl+v. Com o tempo eu fui melhorando o desenvolvimento da ferramenta e incluindo novas funcionalidades até chegar na versão 3 que eu considero bem completa.

O problema é que eu agora não preciso mais dele, por possuir um plugin criado pela comunidade do wordpress que cria estes links assim que um novo post é publicado, e este plugin funciona muito bem, obrigado. Então eu decidi, não somente por isso, mas por falta de tempo para dar a devida atenção ao JsIndexer, descontinuar a ferramenta. Eu gostaria muito de poder dar mais atenção a ele, mas meus focos mudaram um pouco, claro que não vou simplesmente excluir tudo o que eu já fiz, tanto porque a codificação ficou tão boa que eu uso a fonte do JsIndexer como exemplo para novos desenvolvimentos.

Como eu sei que ainda tem gente que usa e confia na ferramenta eu resolvi criar um “puxadinho” para ela aqui dentro do blog e criei um novo endereço para o JSIndexer. Lá terá a versão Online da ferramenta e links para download da última versão.

Caso você seja uma pessoa disposta a agregar alguma funcionalidade ao JsIndexer, entre em contato mostrando a mudança que foi feita e se ficar realmente boa eu a incluo na versão oficial da ferramenta com o maior prazer.