FAQ
Hello Stefan,
On Tue, Nov 15, 2011 at 08:10:12AM -0800, Stefan Wiederoder wrote:
Hello list,

I´m using a json config file to read a file with server group
definitions, including group of groups like
this example:

[jdoe@belbo]# cat groups.json
{
"G_Group_PR" : [ "serverA", "serverB" ],
"G_Group_QS" : [ "serverC", "serverD" ],
"G_All" : [ "G_Group_PR", "G_Group_QS" ]
}

now I need to resolve all groups to their member servers to map
actions to them.

this is where I´m stuck with an elegant solution, how can I
effectively parse this hash to
replace all Groups (always starting with G_)?
I'm assuming that you are using an existing CPAN[1] module to
actually parse the JSON data into a Perl data structure. If you
aren't then you should be. You did say "parse" so I wonder if
maybe that is the part that you are stuck on. If so, don't worry
about it, and just use an existing CPAN module to parse the JSON.

Assuming you had an equivalent Perl data structure (loaded by a
CPAN module) you could just do a lookup of groups when fetching
the server name to see if more servers are needed:

#!/usr/bin/perl

use strict;
use warnings;

my %groups = (
G_Group_PR => [ qw/serverA serverB/ ],
G_Group_QS => [ qw/serverC serverD/ ],
G_All => [ qw/G_Group_PR G_Group_QS/ ],
);

sub get_group_servers
{
my ($groups, $group) = @_;

my @servers = @{$groups{$group}};

my %servers;

for my $server (@servers)
{
if(exists $groups{$server})
{
map { $servers{$_} = 1 }
get_group_servers($groups, $server);
}
else
{
$servers{$server} = 1;
}
}

return keys %servers;
}

for my $group (keys %groups)
{
my @servers = get_group_servers(\%groups, $group);

print "Servers for group '$group':\n";

for my $server (@servers)
{
print " $server\n";
}

print "\n";
}

__END__

Output:

Servers for group 'G_Group_QS':
serverD
serverC

Servers for group 'G_Group_PR':
serverA
serverB

Servers for group 'G_All':
serverD
serverC
serverA
serverB

Just how you handle it depends on your use. Maybe it would be
better to preprocess the data and "expand" the group references
instead of looking them up at run-time, for example.

If I'm mistaken about what problem you're having then please
explain in more detail. :)

Regards,


--
Brandon McCaig <bamccaig@gmail.com> <bamccaig@castopulence.org>
Castopulence Software <https://www.castopulence.org/>
Blog <http://www.bamccaig.com/>
perl -E '$_=q{V zrna gur orfg jvgu jung V fnl. }.
q{Vg qbrfa'\''g nyjnlf fbhaq gung jnl.};
tr/A-Ma-mN-Zn-z/N-Zn-zA-Ma-m/;say'


[1] Comprehensive Perl Archive Network AKA cpan.org

Search Discussions

Discussion Posts

Previous

Follow ups

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 2 of 6 | next ›
Discussion Overview
groupbeginners @
categoriesperl
postedNov 15, '11 at 4:11p
activeNov 17, '11 at 9:09p
posts6
users5
websiteperl.org

People

Translate

site design / logo © 2022 Grokbase