Re^3: Reading and Writing Perl Config Files

Hi,

I'm trying to apply code and have problems. Would kindly ask for help.

I have this in Log.conf :

# Defines logging groups in terms of room: if device's room maatches r
+oom name or if device name is listed separately in hash, then is logg
+ed into same log:        
%Log_rooms = (
               "gallery"  => { 'BM_shutts_south_00' => 1, 'BM_shutt_no
+rth_00' => 1  },
               "kitchen"  => {   },
               "office"  => { },
               "living"  => { },
               "utility"  => { },
               "kurilnica"  => {},
               "lobby"  => { },
               "toilet"  => { }
              );
[download]

I'd like to read that hash definition into Perl program :

use Data::Dumper;
 use Safe;
my %Log_rooms;
  my $config_file ="./Log.conf";

  if (-e $config_file) {
    print "File Exists!";
#        my $comp = new Safe;
#        my $return =$comp->reval($config_file);

        my $return = do $config_file ;

        warn "couldn't parse $config_file: $@" if $@;
        warn "couldn't do $config_file: $!"    unless defined $return;
        warn "couldn't run $config_file"       unless $return;

  } else {
        %Log_rooms = (
               "default"  => { 'BM_shutts_south_00' => 1, 'BM_shutt_no
+rth_00' => 1  }
                    );

  };  
  

print "###############################################################
+#################\n";
print Data::Dumper::Dumper(%Log_rooms);
[download]

but I don't get anything in %Log_rooms (default works if config file is missing).

I'd also like to implement safer way with using Safe, but it also doesn't work. I'd kindly ask for some help...

Thanks in advance,

Rob.

Comment on Re^3: Reading and Writing Perl Config Files Select or Download Code

Replies are listed 'Best First'.
Re^4: Reading and Writing Perl Config Files by Anonymous Monk on Apr 20, 2009 at 20:52 UTC
You will have to use `$comp->rdo` instead of `$comp->reval` when using a file name. Uncomment the two Safe lines and comment the 'do' line. then try this print statement: `print Data::Dumper::Dumper(%Safe::Root0::Log_rooms);` [download] You can set the name space to something more readable too. `my $comp = new Safe 'CFG'; print Data::Dumper::Dumper(%CFG::Log_rooms);` [download] pvb.	[reply] [d/l] [select]
Re^4: Reading and Writing Perl Config Files by Anonymous Monk on Mar 06, 2011 at 09:31 UTC
With the line: `$comp->reval($config_file)` [download] you are trying to evaluate the file name of the config file. You'd have to open it You want to use rdo instead of reval (or first read the file into a string).	[reply] [d/l]