Hi Rob,
2008/7/7 Rob Dixon <[EMAIL PROTECTED]>:
> Hi Dermot.
>
> Does this help?
>
> Rob
>
>
> use strict;
> use warnings;
>
> use Config::General;
>
> my $config = Config::General->new( -ConfigFile => \*DATA);
> my %config = $config->getall;
>
> print $config{model}{connect_info}{'dbi:SQLite'};
>
> __DATA__
> name myApp
> <model>
> <connect_info>
> dbi:SQLite __HOME__/database.db
> </connect_info>
> </model>
>
There something sneaky about that solution. But I like it and it works.
Thanx Rob,
Dp.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
