Teste de conexão com MySQL

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

[ Hits: 8.082 ]

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

Descubra se seu e-mail ou conta foi "pwned"

Exemplo de uso do módulo Term::InKey

HAT Googler


  

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