create_pc_tab_users.pl

==> config.pl


use strict;
use warnings;
our (%example);

# Config
%example = (
  center1 => {
    lan => '172.16.0',
    cant_pcs_user => '69',
    cant_tab_user => '20',
  },
  center2 => {
    lan => '172.17.0',
    cant_pcs_user => '69',
    cant_tab_user => '20',
  },
);


==> pc_tab_users.pl

#!/usr/bin/perl
use strict;
use warnings;

our (%example);
my $arch_conf = "/home/user/config.pl";
open CONF, $arch_conf
  or die "Can't read config file: $arch_conf\n";
my $config = join '', <CONF>;
close CONF;

eval $config;
die "Can't read configuration: $@\n" if $@;

# Paths
my $bind_ns1_conf_dir = '/home/user/';

foreach my $center ( sort keys %example ) {
    my $lan = $example{$center}{'lan'};
    my $cant_pcs_user = $example{$center}{'cant_pcs_user'};
    my $cant_tab_user = $example{$center}{'cant_tab_user'};

    for ( my $i=1 ; $i<=$cant_pcs_user+1 ; $i++ ) {
      printf DB_EXAMPLE_COM "pc%02d-l-%s         IN   A    %s.1%02d\n", $i, $center, $lan, $i;
    }

    for ( my $i=1 ; $i<=$cant_tab_user+1 ; $i++ ) {
      printf DB_EXAMPLE_COM "tb%02d-a-%s         IN   A    %s.1%02d\n", $i, $center, $lan, $i;
    }
}