blink has asked for the wisdom of the Perl Monks concerning the following question:
Here's a snippet of code and the config file data:
The config file data:#!/usr/local/bin/perl -w use strict; use Data::Dumper; use Mozilla::LDAP::Conn; use Mozilla::LDAP::Utils; use Config::General; my @path = qw(/usr/lib/perl /export/home/bills/); my $rcfile = "/export/home/bills/acct.cfg"; my $conf = new Config::General(-ConfigFile => "acct.cfg", -ConfigPath +=> \@path); my %config = $conf->getall(); $conf->save_file("new"); print Dumper(\%config); exit;
<user jsearle> <server psdbsrv1> why lastLogin Never logged in approved exp shell email_1_date email_2_date </server> <server psdev1> why lastLogin Never logged in approved exp shell email_1_date email_2_date </server> <server psbeta1> why lastLogin Never logged in approved exp shell email_1_date email_2_date </server> <server orafinalpha1> why lastLogin Never logged in approved exp shell email_1_date email_2_date </server> </user>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Help with Config::General
by PodMaster (Abbot) on Nov 21, 2003 at 04:49 UTC |