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

my ( $templateText, %hash );
my $template_file_name = 'rtr-template.txt';
my @vars = split "\n", <<END;
##location##
##rtrname##
##loop0-ip##
##frame-ip##
##frame-DLCI##
##eth0-ip##
END

{
	local $/;
	open my $fh, '<', $template_file_name or die "$template_file_name: $!";
	$templateText = <$fh>;
	close $fh;
}

while (<>) {
	chomp;
	@hash{@vars} = split /,/;
	
	my $templateTextCopy = $templateText;
	$templateTextCopy =~ s/$_/$hash{$_}/g for keys %hash;

	my $ofile_name = $hash{'##rtrname##'} . '.txt';

	open my $fh, '>', $ofile_name or die "$ofile_name: $!";
	print $fh $templateTextCopy;
	close $fh;
}