Help for this page
%CFG = ( 'servers' => { ... }, 'temp' => 'remove me' );
# Read a configuration file # The arg can be a relative or full path, or ... print(STDERR $err, "\n"); exit(1); }
# Add last access time $CFG::CFG{'servers'}{'SRV1'}{'last_access'} = time(); ... print(STDERR "ERROR: Failure opening log file: $!\n"); exit(1); }
use Data::Dumper; ... print(STDERR $err, "\n"); exit(1); }
perl -c my_cfg.cfg
www.com | www.net | www.org
No recent polls found