Programando uma Intranet com Apache, MySQL e Perl (parte 2)
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.
Parte 4: 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:
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.
#!/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();
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
Amigo qual distro você usou para montar essa Intranet?
Até mais
H'D