Thank you! I'm trying to create a system-wide config area where I'll place a simple config file and the database file, however, I'm getting all kinds of errors (module not installed and etc)
#!/usr/bin/perl
use strict;
use File::UserConfig;
#use File::ShareDir ':ALL';
use File::Read;
my $username = getlogin();
print "user: $username\n";
#my $configdir = File::UserConfig->configdir;
my $configdir = File::UserConfig->new(
dist => 'Map-Energy',
dirname => '.map_energy',
module => 'Map::Energy',
)->configdir;
#my $dir = dist_dir('map_energy');
#my $config_file = dist_file( 'map_energy', 'config/data.txt');
#my $db_file = dist_file( 'map_energy', 'db/mapdata.db');
#my $mapsettings = read_file({ as_root => 1, skip_comments => 1, skip_
+blanks => 1 }, $config_file);
#print "map settings: $mapsettings\n";
exit;
|