Galera segue um exemplo basico do uso do perl com meu banco predileto, postgres:)
#!/usr/bin/perl
use DBI;
use strict;
use warnings;
system("clear");
my $DB_name = 'myBase';
my $DB_user = 'mrsantos';
my $DB_pwd = 's3nh4Secret4';
my $conn = DBI->connect("dbi:Pg:dbname=$DB_name","$DB_user","$DB_pwd");
my ($sql);
my (@row);
$sql = "
SELECT
id,
name,
idade,
profissao
from
Tnames
limit 15
";
my $query = $conn->prepare($sql);
$query->execute();
print "-" x 61 . "\n";
print sprintf("%-2s%-5s %-2s %-22s %-2s %-12s %-2s %-6s %-2s", "|", "ID", "|", "Name", "|", "Idade", "|", "Profissao", "|" ), "\n";
print "-" x 61 . "\n";
while (@row = $query->fetchrow_array())
{
my ($id, $name, $idade, $profissao) = @row;
print sprintf("%-2s%-5s %-2s %-22s %-2s %-12s %-2s %-6s %-2s", "|", $id, "|", $name, "|", $idade, "|", $profissao, "|"), "\n";
}
print "-" x 61 . "\n";
$query = undef;
$conn->disconnect();
$conn = undef;
O teu exemplo de perl conectando a um banco de dados postgres é excelente!
A muito estava procurando alguma forma de integrar essa linguagem que estou aprendendo ( perl) com postgres. Eu acho muita coisa tanto em sites como em livros para conectar perl a a mysql mas postgres é muito difícil de achar.
Agora abusando um pouquinho….
Como tu faz a inserção de dados e alteração?
Andei quebrando a cabeça por alguns dias mas não consegui fazê-lo, poderia me dar uma forcinha?!