Teste de conexão com MySQL

Publicado por Daniel Lara Souza (última atualização em 23/08/2013)

[ Hits: 8.100 ]

Homepage: http://danniel-lara.blogspot.com/

Download testmysql.pl




Um simples script para teste de acesso ao banco de dados MySQL.

  



Esconder código-fonte

#!/usr/bin/perl
use strict;
use warnings;

use DBI;

 print "Digita o usuário do banco:\n";
 my $user = <>;
 chomp $user;   
 print "Digita a senha do banco:\n";
 my $pass = <>;
 chomp $pass; 
 print "Digite o Servidor:\n";
 my $host = <>;
 chomp $host ;

 my $dbh = "DBI:mysql:host=$host";

 $dbh = DBI->connect($dbh, $user, $pass)
 or die ("Não foi possível fazer conexão: " . $DBI::errstr);

 print "Conexão realizado com sucesso\n";

Scripts recomendados

DBIx::Custom para acesso ao Banco de Dados

DBI Básico - Banco de Dados Perl

Email UserAdmin

Calculando a média entre dois valores

Data por extenso


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts