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

• Download testmysql.pl
• Enviar nova versão

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";

DBIx::Custom para acesso ao Banco de Dados

DBI Básico - Banco de Dados Perl

Enviando notificações do Nagios para o MSN

Fatorial

ping Aviso

Nenhum coment�rio foi encontrado.