in reply to use strict and require
script.pl:#!/usr/local/bin/perl use warnings; use strict; use vars qw(%SETTINGS); $SETTINGS{name}="bob dobbs"; $SETTINGS{type}="surreal"; 1; # modules need to end with a true value
This prints#!/usr/bin/perl use warnings; use strict; use include; print "$_ : '$SETTINGS{$_}'\n" for (keys %SETTINGS);
name : 'bob dobbs' type : 'surreal'
|
|---|