Perl3r has asked for the wisdom of the Perl Monks concerning the following question:
Hello, I have the following code that I am trying to get to work.. There are a couple of components; 1. The .pl script (see contents below) 2. A template file rtr-template.txt (which contains the variables listed below - ie ##location##, ##rtrname## etc 3. A CSV file that contains all the variables.. What is suppose to happen, is that when you run the script, it processes the CSV, line by line, and creates an individual file called ("rtrname.txt") for each line.. What is currently happening, is that when I run it, it creates the first file fine.. but then stops after that, and doesn't process the subsequent lines..
#!/usr/bin/perl # use warnings; $template_file_name="rtr-template.txt"; while(<>) { ($location, $name, $lo0ip, $frameip, $framedlci, $eth0ip) = 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/##rtrname##/$name/; s/##eth0-ip##/$eth0ip/; s/##loop0-ip##/$lo0ip/; s/##frame-ip##/$frameip/; s/##frame-DLCI##/$framedlci/; printf OFILE $_; } }
Would any one be able to shed some light on what might be my issue? I am running; Perl Version 5, version 12, subversion 4 (v5.12.4), on a MAC OS X 10.8.2