<div>Bom dia, pessoal. Estou dando os primeiros passos no MySQL e já começaram os problemas.. Tenho uma BD de teste e agora, estou tentando fazer uma conexão utilizando o DBD::mysql, mas quando eu executo o código abaixo, é exibida essa mensagem de erro:</div>
<div> </div>
<div>Can't connect to data source mysql:database=teste;host=localhost;port=3306, no database driver specified and DBI_DSN env var not set at dbi.pl line 15<br> </div>
<div>O que pode estar ocorrendo? Vlw..</div>
<div> </div>
<div>-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------<br>#!/usr/bin/perl</div>
<div>
<p>use warnings;<br>use strict;<br>use DBI;</p>
<p>my $database = 'teste';<br>my $hostname = 'localhost';<br>my $port = '3306';<br>my $user = 'rafael';<br>my $password = 'senha';</p>
<p>my $dsn = "DBI::mysql:database=$database;host=$hostname;port=$port";<br>my $dbh = DBI->connect($dsn, $user, $password, {RaiseError => 1});</p></div>