Как подключиться к базе данных в Perl

Question

Я новичок в Perl и Eclipse, и я пытаюсь соединить мой сценарий Perl в моей базе данных, но это дает мне сообщение об ошибке: «Файл не существует»

#!/usr/bin/perl 

use XML::Simple; 
use DBI; 
use strict; 
use Data::Dumper; 
use constant {false=>0,true=>1}; 

my ($exec_dir, $exec_file) = 
(Win32::GetFullPathName($0) =~ /^(.*)\\([^\\]*)$/); 

my $parmfil = $exec_dir . "\\parms\\parms.xml"; 
my $p_ref = XMLin($parmfil); 

my ($dsn,$dbusr,$dbpwd) = ($p_ref->{"DSN"} 
          ,$p_ref->{"db_user"} 
           ,$p_ref->{"db_pwd"} 
); 
my $dbh = DBI->connect( "dbi:ODBC:$dsn", $dbusr, $dbpwd) 
     or die "SDM Database connect error - $DBI::errstr\n"; 
$dbh->{LongReadLen} = 1024 * 1024; 

if (true) 
{ 
    print "true\n"; 
} 

Пожалуйста, помогите мне.

Answer 1

Попробуйте этот код:

use strict; 
use FindBin qw($Bin); 

my $parmfil = $Bin . "/parms/parms.xml"; 
my $p_ref = XMLin($parmfil); 

Answer 2

Это dosn't выглядеть правильно

my ($exec_dir, $exec_file) = 
(Win32::GetFullPathName($0) =~ /^(.*)\\([^\\]*)$/); 

GetFullPathName в списке Contect будет возвращать путь к файлу и имя файла, как вам требуется, но матч выражение reguler изменит, не может видеть, что это необходимо. Если вы хотите манипулировать дорожкой, тогда подумайте, что лучше всего сделать это после того, как значения будут возвращены.

Answer 3

Я больше склонен доверять Perl, что файл не существуют, чем ваши гарантии того, что он делает !

Вы должны напечатать значение $parmfil и посмотреть, действительно ли это то, что вы ожидаете.

Вы также можете добавить

print "\$parmfil %s exist\n", -f $parmfil ? 'DOES' : 'DOESN'T'; 

, чтобы получить "второе мнение".