Teste de conexão com MySQL

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

[ Hits: 7.197 ]

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

Password List 1.0

Configurar ADB no linux

Randomize MP3


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts