Generate pool stanzas for erl.config files. Use with https://github.com/dizzyd/erlang-mysql-driver

pool_namer.pl

use 5.010;

my $user = 'root';
my $pass = 'pass';
my $host = '10.1.2.3';
my $port = '3306';

my %names = (
    pool1           => 'db_foo',
    pool2           => 'db_bar',
);

my $pool_stanza = qq|
    {pool, '%s',
        [{connection,
         {max, 2},
         {database, "%s"},
           {host, "$host"},
           {port, $port},
           {user, "$user"},
           {password, "$pass"}
        }]
    }|;

say join ",", map { sprintf ($pool_stanza, $_, $names{$_})  } sort keys %names;