Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use DBI;
- my $dsn = "DBI:mysql:database=testdb;host=localhost";
- my $user = "username";
- my $password = "password";
- my $dbh = DBI->connect($dsn, $user, $password) or die "Não foi possível conectar ao banco de dados: $DBI::errstr";
- my $sth = $dbh->prepare("SELECT * FROM tabela");
- $sth->execute();
- while (my $row = $sth->fetchrow_arrayref) {
- print "@$row\n";
- }
- $dbh->disconnect();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
