Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Contact Us
Online Help
Domain Status
Man Pages

Virtual Servers

Topology Map

Server Agreement
Year 2038

USA Flag



Man Pages

Manual Reference Pages  -  CONFIG::MODEL::LOADER (3)

.ds Aq ’


Config::Model::Loader - Load serialized data into config tree



version 2.082


 use Config::Model;

 # define configuration tree object
 my $model = Config::Model->new;
    name    => "Foo",
    element => [
        [qw/foo bar/] => {
            type       => leaf,
            value_type => string

 $model ->create_config_class (
    name => "MyClass",

    element => [

        [qw/foo bar/] => {
            type       => leaf,
            value_type => string
        hash_of_nodes => {
            type       => hash,     # hash id
            index_type => string,
            cargo      => {
                type              => node,
                config_class_name => Foo
        [qw/lista listb/] => {
                              type => list,
                              cargo =>  {type => leaf,
                                         value_type => string
 ) ;

 my $inst = $model->instance(root_class_name => MyClass );

 my $root = $inst->config_root ;

 # put data
 my $step = foo=FOO hash_of_nodes:fr foo=bonjour -
   hash_of_nodes:en foo=hello
   ! lista=foo,bar lista:2=baz
     listb:0=foo listb:1=baz;
 $root->load( step => $step );

 print $root->describe,"\n" ;
 # name         value        type         comment
 # foo          FOO          string
 # bar          [undef]      string
 # hash_of_nodes <Foo>        node hash    keys: "en" "fr"
 # lista        foo,bar,baz  list
 # listb        foo,baz      list

 # delete some data
 $root->load( step => lista~2 );

 print $root->describe(element => lista),"\n" ;
 # name         value        type         comment
 # lista        foo,bar      list

 # append some data
 $root->load( step => q!hash_of_nodes:en foo.=" world"! );

 print $root->grab(hash_of_nodes:en)->describe(element => foo),"\n" ;
 # name         value        type         comment
 # foo          "hello world" string


This module is used directly by Config::Model::Node to load serialized configuration data into the configuration tree.

Serialized data can be written by the user or produced by Config::Model::Dumper while dumping data from a configuration tree.


    new ( )

No parameter. The constructor should be used only by Config::Model::Node.

load string syntax

The string is made of the following items (also called actions) separated by spaces. These actions can be divided in 4 groups:
o navigation: moving up and down the configuration tree.
o list and hash operation: select, add or delete hash or list item (also known as id items)
o leaf operation: select, modify or delecte leaf value
o annotation: modify or delete configuration annotation (aka comment)


- Go up one node
! Go to the root node of the configuration tree.
xxx Go down using xxx element. (For node type element)
/xxx Go up until the element xxx is found. This search can be combined with one of the command specified below, e.g /a_string="foo bar"

    list and hash operation

xxx:yy Go down using xxx element and id yy (For hash or list element with node cargo_type). Literal \n will be replaced by real \n (LF in Unix).
xxx:~yy Go down using xxx element and loop over the ids that match the regex specified by yy. (For hash).

For instance, with OpenSsh model, you could do

 Host:~"/.*" user=foo-guest

to set foo-user users for all your debian accounts.

The leading and trailing ’/’ may be omitted. Be sure to surround the regexp with double quote if space are embedded in the regex.

Note that the loop ends when the load command goes above the element where the loop is executed. For instance, the instruction below will try to execute DX=BV and int_v=9 for all elements of std_id hash:

 std_id:~/^\w+$/ DX=Bv int_v=9

In the examples below only DX=BV is executed by the loop:

 std_id:~/^\w+$/ DX=Bv - int_v=9
 std_id:~/^\w+$/ DX=Bv ! int_v=9

The loop is done on all elements of the hash when no value is passed after ":~" (mnemonic: an empty regexp matches any value).

xxx:-yy Delete item referenced by xxx element and id yy. For a list, this is equivalent to splice xxx,yy,1. This command does not go down in the tree (since it has just deleted the element). I.e. a ’-’ is generally not needed afterwards.
xxx:-=yy Remove the element whose value is yy. For list or hash of leaves. Will not complain if the value to delete is not found.
xxx:-~/yy/ Remove the element whose value matches yy. For list or hash of leaves. Will not complain if no value were deleted.
xxx:=~s/yy/zz/ Substitute a value with another. Perl switches can be used(e.g. xxx:=~s/yy/zz/gi)
xxx:<yy or xxx:.push(yy) Push yy value on xxx list
xxx:>yy or xxx:.unshift(yy) Unshift yy value on xxx list
xxx:@ or xxx:.sort Sort the list
xxx:.insert_at(yy,zz) Insert zz value on xxx list before <B>indexB> yy.
xxx:.insert_before(yy,zz) Insert zz value on xxx list before <B>valueB> yy.
xxx:.insert_before(/yy/,zz) Insert zz value on xxx list before <B>valueB> matching yy.
xxx:.insort(zz) Insert zz value on xxx list so that existing alphanumeric order is preserved.
xxx:=z1,z2,z3 Set list element xxx to list z1,z2,z3. Use ,, for undef values, and "" for empty values.

I.e, for a list (a,undef,,c), use a,,"",c.

xxx:yy=zz For hash element containing leaf cargo_type. Set the leaf identified by key yy to value zz.

Using xxx:~/yy/=zz is also possible.

xxx:.copy(yy,zz) copy item yy in zz

    leaf operation

xxx=zz Set element xxx to value yy. load also accepts to set elements with a quoted string. (For leaf element) Literal \n will be replaced by real \n (LF in Unix). Literal \\ will be replaced by \.

For instance foo="a quoted string" or foo="\"bar\" and \"baz\"".

xxx=~s/foo/bar/ Apply the substitution to the value of xxx. s/foo/bar/ is the standard Perl s substitution pattern.

If your patten needs white spaces, you will need to surround the pattern with quotes:

  xxx=~"s/foo bar/bar baz/"

Perl pattern modifiers are accepted


xxx~ Undef element xxx
xxx.=zzz Will append zzz value to current values (valid for leaf elements).


xxx#zzz or xxx:yyy#zzz Element annotation. Can be quoted or not quoted. Note that annotations are always placed at the end of an action item.

I.e. foo#comment, foo:bar#comment or foo:bar=baz#comment are valid. foo#comment:bar is <B>notB> valid.


You can surround indexes and values with double quotes. E.g.:

  a_string="\"foo\" and \"bar\""


You can use cme to modify configuration with cme modify command.

For instance, if Config::Model::Ssh is installed, you can run:

 cme modify ssh ControlMaster=auto ControlPath="~/.ssh/master-%r@%n:%p"

To delete Host * entry:

 cme modify ssh Host:-"*"

To specify 2 Host with a single command:

 cme modify ssh Host:"foo* bar*" ForwardX11=yes HostName="" - Host:baz HostName=""

Note the ’-’ used to go up one node before "Host:baz. In this case, up one node leads to the root node, so ! could also be used instead of -":

 cme modify ssh Host:"foo* bar*" ForwardX11=yes HostName="" ! Host:baz HostName=""

Let’s modify now the host name of using a .org domain instead of .com. The :~ operator uses a regexp to loop over several Host entries:

 cme modify ssh Host:~/ba[rz]/ HostName=~s/.com$/.org/

Now that ssh config is mucked up with dummy entries, let’s clean up:

 cme modify ssh Host:-"baz" Host:-"foo* bar*"


    load ( ... )

Load data into the node tree (from the node passed with node) and fill values as we go following the instructions passed with step. (step can also be an array ref).

Parameters are:
node node ref of the root of the tree (of sub-root) to start the load from.
step A string or an array ref containing the steps to load. See above for a description of the string.
check Whether to check values while loading. Either yes (default), no or skip. Loading with skip will discard bad values.


Dominique Dumont, (ddumont at cpan dot org)




Dominique Dumont


This software is Copyright (c) 2005-2016 by Dominique Dumont.

This is free software, licensed under:

  The GNU Lesser General Public License, Version 2.1, February 1999

Search for    or go to Top of page |  Section 3 |  Main Index

perl v5.20.3 CONFIG::MODEL::LOADER (3) 2016-04-03

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.