cbq.pl

#!/usr/bin/perl

use strict;
use warnings;
use 5.12.0;

use File::Util;

my @lista = (
	"DEVICE=eth0,100Mbit,10Mbit", "RATE=64Kbit", "WEIGHT=6Kbit", "PRIO=5",
	undef, "BOUNDED=yes", "ISOLATED=yes"
);

for ( my $i = 1 ; $i <= 5 ; $i++ ) {
	my $rule = "RULE=192.168.1.$i/32";
	$lista[4] = $rule;

	foreach my $lista (@lista) {
		my ($f) = File::Util->new();
		$f->write_file(
			'file'    => "cbq-000$i.estacao$i-in",
			'mode'    => 'append',
			'content' => "$lista\n"
		);
	}

}