Re: How do I use a template, csv file and script to generate multiple switch configurations

At a glance, it looks like you need to replace < with < and > with > to make it work. Ie.

use strict;
use warnings;
use autodie;

$template_file_name="configtemplate.txt";
while(<>) {

   ($location, $hostname, $ip) 
       = split (/,/);

   open(TFILE, "< $template_file_name") || die "config template file $
+template_file_name: $!\n";
   $ofile_name = $name . ".txt";
   open(OFILE, "> $ofile_name") || die "output config file $ofile_name
+: $!\n";

   while (<TFILE>) {

     s/##location##/$location/;
     s/##hostname##/$name/;
     s/##ip##/$ip/;


     printf OFILE $_;
   }
}
[download]

Some comments:

The line $ofile_name = $name . ".txt"; uses a variable $name which is not defined. Should this be $hostname probably?

In your file with the CSV variables change the first line to # ip,hostname,location and add a line to filter out comment lines starting with # like this:

while(<>) {
  next if /^#/;
...
[download]

I have not run the code as the template file is not present, so there might be glitches in my code.

Comment on Re: How do I use a template, csv file and script to generate multiple switch configurations Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I use a template, csv file and script to generate multiple switch configurations by hvh2000 (Initiate) on Apr 15, 2013 at 20:14 UTC
Hello, The config template looks like this: conf t no ip http server no ip http secure-server service timestamps debug datetime localtime show-timezone service timestamps log datetime localtime show-timezone service password-encryption service compress-config ! hostname ##hostname## ! ! vlan internal allocation policy ascending ! ! interface Vlan1 ip address ##ip## 255.255.255.0 no ip redirects ! snmp-server location ##location## snmp-server contact x1208! ! ! line con 0 logging sync login line vty 0 15 logging sync exec-timeout 360 0 privilege level 15 transport input telnet ssh ntp server 152.38.254.2 prefer banner motd ^ **************** Warning! Warning! Warning! ********************* +* Unauthorized access is a violation of the law. This service may be monitored for administrative and security reasons +. Such monitoring may be reported to law enforcement agencies. By proceeding, you consent to this monitoring. ##hostname## **************** Warning! Warning! Warning! ********************* +* ^ end wr me [download]	[reply] [d/l]
Re^3: How do I use a template, csv file and script to generate multiple switch configurations by hvh2000 (Initiate) on Apr 15, 2013 at 20:18 UTC
Also, I seem to be having a bit of an issue with the perl configuration, or with the way the script is initializing, I get a bunch of odd errors like this: `hvanheerden@NWN-MNC-HVANHEE ~ $ perl makeconfig.pl > configtemplate.conf.txt Global symbol "$template_file_name" requires explicit package name at +makeconfig.pl line 7. Global symbol "$location" requires explicit package name at makeconfig +.pl line 10.` [download]	[reply] [d/l]
Re^4: How do I use a template, csv file and script to generate multiple switch configurations by Laurent_R (Canon) on Apr 15, 2013 at 20:45 UTC
You need to declare your variables before using them, using the "my" function. Change the relevant line to: `my $template_file_name = "configtemplate.txt";` Same things for other variables displaying the same error message.For example: `my ($location, $hostname, $ip) = split ...`	[reply] [d/l] [select]
Re^4: How do I use a template, csv file and script to generate multiple switch configurations by hdb (Monsignor) on Apr 15, 2013 at 21:45 UTC
You also need to call it like `perl makeconfig.pl < file_with_csv_variables.csv`, otherwise you overwrite your template file.	[reply] [d/l]
Re^5: How do I use a template, csv file and script to generate multiple switch configurations by hvh2000 (Initiate) on Apr 15, 2013 at 22:00 UTC