Programando uma Intranet com Apache, MySQL e Perl (parte 2)

InstrutorTIC

Acessando o MySQL com o Perl. Muita coisa pode ser feita na web sem um banco de dados. Porém, em algum momento, você pode se deparar com a necessidade de armazenar certos dados dos seus clientes e usuários em um local seguro e altamente disponível. Este local será, com certeza, um banco de dados.

[ Hits: 22.081 ]

Por: Thiago Glauco Sanchez em 02/06/2010

0 0

Denuncie Favoritos Indicar Impressora

Criando tabelas no MySQL com o Perl

Para criar tabelas no banco com o Perl DBI, criamos uma string com o valor do código SQL que queremos adicionar, então usamos o método 'do' pertencente ao nosso objeto $dbh, como o código abaixo:

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:mysql:vivaolinux:localhost", 'root','')
   or die ("Não foi possível fazer conexão: " . $DBI::errstr);

my $sql = qq{CREATE TABLE itens (
   id   INT NOT NULL,
   Item  VARCHAR(255),
   Descr VARCHAR(255),
   Preco REAL,
   Vid   INT NOT NULL)};

my $return = $dbh->do($sql);

if($return) {
   print "Table addition successful!\n";
}
else {
   print "\n\nERROR! $DBI::errstr\n";
}

$dbh->disconnect();

Saída:

Table addition successful!

Veja que o procedimento foi extremamente simples. E a vantagem que temos definindo a query sql em uma string $sql é a versatilidade do Perl. A string pode ser gerada dinamicamente no código conforme nossa necessidade e algoritmo.

Para alterarmos o valor uma tabela basta modificar a variável $sql:

my $sql = "ALTER TABLE itens ADD Qta VARCHAR(20)";

e para remover uma tabela completa:

my $sql = "DROP TABLE itens";

Página anterior Próxima página

Páginas do artigo

   1. Apresentando... DBI e DBD::MySQL
   2. Conectando-se com o banco de dados
   3. Criando tabelas no MySQL com o Perl
   4. Populando a tabela

Outros artigos deste autor

Programando uma Intranet com Apache, MySQL e Perl (parte 1)

Leitura recomendada

Perl e MySQL

Catalyst Framework Perl - Parte III

Programando em Perl (parte 1)

Twittando com o Perl (parte 1)

Autenticação mútua SSL em servidores de NF-e e CT-e

Comentários

[1] Comentário enviado por hellsdragon em 02/06/2010 - 12:14h

Olá

Amigo qual distro você usou para montar essa Intranet?

Até mais

H'D

0 0

[2] Comentário enviado por instrutorTIC em 02/06/2010 - 12:37h

Cara, os ítens de artigo eu utilizo o Ubunto ou o Debian, mas tomo cuidado para manter a interoperabilidade entre sistemas o mais próxima de 100%. O que é bem simples graças a capacidade multiplataforma do Perl, do mySQL e do Apache. A intranet dos artigos são fictícias, baseadas em casos reais de clientes.
Mas Intranets implantada eu já fiz em Solaris, Redhat e - pasme :-O - em Windows.

mais sobre a TICursos: http://ticursos.net

0 0