如何在Perl中连接到数据库

Question

I am a newbie in Perl and Eclipse and i am trying to connect my Perl script to my database but it gives me an ERROR: "FILE DOES NOT EXIST"

#!/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";
}

Please Help me out.

Answer 1

I am more inclined to trust Perl that the file doesn't exist than your assurances that it does !

You should print the value of $parmfil and see if it's what you expect it to be.

You can also add this

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

to get a "second opinion".

Answer 2

This dosn't look right

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

GetFullPathName in list contect will return pathname and filename as you require, but the reguler expression match will change that, can't see that its needed. If you want to manipulate the path then think its best to do so after the values have been returned.

Answer 3

Try this code:

use strict;
use FindBin qw($Bin);

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