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: 21.942 ]

Por: Thiago Glauco Sanchez em 02/06/2010

0 0

Denuncie Favoritos Indicar Impressora

Populando a tabela

Para enviar dados para uma tabela, temos que executar o método 'prepare' do DBI antes do 'execute', como você vê 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 = "INSERT INTO itens (id,Item,Descr,Preco,Vid,Qta) " .
"VALUES ('01','Curso Perl','Curso Perl do Basico ao Profissional',".
"'90.00','10','20')";

my $query = $dbh->prepare($sql);
$query->execute or die("\nErro executando query! $DBI::errstr");

print "Query $sql executada com sucesso.";

$dbh->disconnect();

Saída:

Query INSERT INTO itens (id,Item,Descr,Preco,Vid,Qta) VALUES ('01','Curso Perl','Curso Perl do Basico ao Profissional','90.00','10','20') executada com sucesso.

Conclusão

O Perl, como uma das mais poderosas linguagens de programação da atualidade unido com o módulo DBI apresenta uma interface de programação muitíssimo poderosa e prática para o uso com MySQL, permitindo a crianção de aplicações sólidas com pouco esforço.

Bibliografia

Perl Database Programming, byBrent Michalski
ISBN:0764549561
John Wiley & Sons © 2003 (552 pages)
http://www.perl.org
http://search.cpan.org/~timb/DBI-1.611/DBI.pm
http://www.ticursos.net/perl.html

Página anterior

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 1)

Impressão remota via WEB

Manipulação de sockets em Perl usando o IO::Socket::INET

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