mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
c5e268e9f6
Peter Sergeant <pete@clueball.com> reported this mis-behavior. The problem was that the whole hash was feeded to ::Interpolated.pm, but as we all know, perl hashes doesn't preserve the order. So, in our case the module sometimes was unable to resolve variablenames, because they were stored in a different location as it occured in the config. The change is, that Config::General now calls ::Interpolate.pm (new sub: _interpolate()) itself directly on a per-key/value pair basis. The internal varstack is now stored on $this globally. So, now a variable will be known when it occurs. period :- git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@37 be1acefe-a474-0410-9a34-9b3221f2030f
191 lines
4.4 KiB
Perl
191 lines
4.4 KiB
Perl
package Config::General::Interpolated;
|
|
$Config::General::Interpolated::VERSION = "2.0";
|
|
|
|
use strict;
|
|
use Carp;
|
|
use Config::General;
|
|
use Exporter ();
|
|
|
|
|
|
# Import stuff from Config::General
|
|
use vars qw(@ISA @EXPORT);
|
|
@ISA = qw(Config::General Exporter);
|
|
|
|
|
|
sub new {
|
|
#
|
|
# overwrite new() with our own version
|
|
# and call the parent class new()
|
|
#
|
|
|
|
croak "Deprecated method Config::General::Interpolated::new() called.\n"
|
|
."Use Config::General::new() instead and set the -InterPolateVars flag.\n";
|
|
}
|
|
|
|
|
|
|
|
sub _set_regex {
|
|
#
|
|
# set the regex for finding vars
|
|
#
|
|
|
|
# the following regex is provided by Autrijus Tang
|
|
# <autrijus@autrijus.org>, and I made some modifications.
|
|
# thanx, autrijus. :)
|
|
my $regex = qr{
|
|
(^|[^\\]) # $1: can be the beginning of the line
|
|
# but can't begin with a '\'
|
|
\$ # dollar sign
|
|
(\{)? # $2: optional opening curly
|
|
([a-zA-Z_]\w*) # $3: capturing variable name
|
|
(
|
|
?(2) # $4: if there's the opening curly...
|
|
\} # ... match closing curly
|
|
)
|
|
}x;
|
|
return $regex;
|
|
}
|
|
|
|
|
|
sub _interpolate {
|
|
#
|
|
# interpolate a scalar value and keep the result
|
|
# on the varstack.
|
|
#
|
|
# called directly by Config::General::_parse_value()
|
|
#
|
|
my ($this, $key, $value) = @_;
|
|
|
|
$value =~ s{$this->{regex}}{
|
|
my $con = $1;
|
|
my $var = $3;
|
|
if (exists $this->{varstack}->{$var}) {
|
|
$con . $this->{varstack}->{$var};
|
|
}
|
|
else {
|
|
if ($this->{StrictVars}) {
|
|
croak "Use of uninitialized variable \$" . $var . "\n";
|
|
}
|
|
else {
|
|
# be cool
|
|
$con;
|
|
}
|
|
}
|
|
}egx;
|
|
|
|
$this->{varstack}->{$key} = $value;
|
|
|
|
return $value;
|
|
};
|
|
|
|
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
|
|
=head1 NAME
|
|
|
|
Config::General::Interpolated - Parse variables within Config files
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Config::General;
|
|
$conf = new Config::General(
|
|
-ConfigFile => 'configfile',
|
|
-InterPolateVars => 1
|
|
);
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This is an internal module which makes it possible to interpolate
|
|
perl style variables in your config file (i.e. C<$variable>
|
|
or C<${variable}>).
|
|
|
|
Normally you don't call it directly.
|
|
|
|
|
|
=head1 VARIABLES
|
|
|
|
Variables can be defined everywhere in the config and can be used
|
|
afterwards. If you define a variable inside a block or a named block
|
|
then it is only visible within this block or within blocks which
|
|
are defined inside this block. Well - let's take a look to an example:
|
|
|
|
# sample config which uses variables
|
|
basedir = /opt/ora
|
|
user = t_space
|
|
sys = unix
|
|
<table intern>
|
|
instance = INTERN
|
|
owner = $user # "t_space"
|
|
logdir = $basedir/log # "/opt/ora/log"
|
|
sys = macos
|
|
<procs>
|
|
misc1 = ${sys}_${instance} # macos_INTERN
|
|
misc2 = $user # "t_space"
|
|
</procs>
|
|
</table>
|
|
|
|
This will result in the following structure:
|
|
|
|
{
|
|
'basedir' => '/opt/ora',
|
|
'user' => 't_space'
|
|
'sys' => 'unix',
|
|
'table' => {
|
|
'intern' => {
|
|
'sys' => 'macos',
|
|
'logdir' => '/opt/ora/log',
|
|
'instance' => 'INTERN',
|
|
'owner' => 't_space',
|
|
'procs' => {
|
|
'misc1' => 'macos_INTERN',
|
|
'misc2' => 't_space'
|
|
}
|
|
}
|
|
}
|
|
|
|
As you can see, the variable B<sys> has been defined twice. Inside
|
|
the <procs> block a variable ${sys} has been used, which then were
|
|
interpolated into the value of B<sys> defined inside the <table>
|
|
block, not the sys variable one level above. If sys were not defined
|
|
inside the <table> block then the "global" variable B<sys> would have
|
|
been used instead with the value of "unix".
|
|
|
|
Variables inside double quotes will be interpolated, but variables
|
|
inside single quotes will B<not> interpolated. This is the same
|
|
behavior as you know of perl itself.
|
|
|
|
In addition you can surround variable names with curly braces to
|
|
avoid misinterpretation by the parser.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Config::General>
|
|
|
|
=head1 AUTHORS
|
|
|
|
Thomas Linden <tom@daemon.de>
|
|
Autrijus Tang <autrijus@autrijus.org>
|
|
Wei-Hon Chen <plasmaball@pchome.com.tw>
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright 2001 by Wei-Hon Chen E<lt>plasmaball@pchome.com.twE<gt>.
|
|
Copyright 2002 by Thomas Linden <tom@daemon.de>.
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the same terms as Perl itself.
|
|
|
|
See L<http://www.perl.com/perl/misc/Artistic.html>
|
|
|
|
=head1 VERSION
|
|
|
|
2.0
|
|
|
|
=cut
|
|
|