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 3: 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:
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:
e para remover uma tabela completa:
#!/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();
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";
Amigo qual distro você usou para montar essa Intranet?
Até mais
H'D