HI All,

Is anyone familiar with the workings of Config::General?

I am struggling to get my configuration values out of a file.

My config file looks like this:

name myApp
<model>
   <connect_info>
        dbi:SQLite __HOME__/database.db
   </connect_info>
</model>


When I use Data::Dumper to dump the whole config I see this

                 'content' => [
                                'name myApp',
                                '<model>',
                                '<connect_info>',
                                'dbi:SQLite __HOME__/database.db',
                                '</connect_info>',
                                '</model>
...
                 'DefaultConfig' => {
                                      'model' => {
                                                             'connect_info' => {

          'dbi:SQLite' => '__HOME__/database.db'
                                                                               }
                                                           },
...
                 'model' => {
                                        'connect_info' => []
                                      },


It's this last item that is returned when I ask for it as
$config->{'model'}->{'connect_info'} and it' always empty. Below are
some debug messages I've put in and what the print.

print STDERR Dumper($config->{'model'});
print STDERR scalar(@{$config->{'model'}->{'connect_info'}}),"\n";
print STDERR "DSN=$dsn INFO=$config->{'model'}->{'connect_info'}->[0]\n";
for (@{$config->{'model'}->{'connect_info'}} ) {
        print STDERR "$_ \n";
}
#print Dumper($config);


$VAR1 = {
          'connect_info' => []
        };
Use of uninitialized value in substitution (s///) at
script/import-tabfile.pl line 22.
0
Use of uninitialized value in concatenation (.) or string at
script/import-tabfile.pl line 25.
Use of uninitialized value in concatenation (.) or string at
script/import-tabfile.pl line 25.
DSN= INFO=


Bit of a long shot I know and a very specific but I can't see anything
wrong with the file of the way I reference it.
Any help appreciated.
Dp.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to