I have not used Perl in several years and decided it would be the best choice for my project; I am not getting any output or warnings any assistance would be greatly appreciated.
hosts.csv data:
R17N6340-C04-1;10.1.70.1
R17N6340-C04-2,10.1.70.2
R17N6340-C04-3,10.1.70.3
#!/usr/bin/perl
#use strict;
#use warnings;
my $xml_file = 'template.txt';
my $list_file = 'hosts.csv';
my $out_file = 'newhost.xml';
#
open( XML, '<:utf8', $xml_file );
open( LIST, '<:utf8', $list_file );
open( OUT, '>>:utf8', $out_file );
my $xml;
{ local $/ = undef; $xml = <XML>; };
my $line;
foreach $line ( <LIST> ) {
# Skipping if the line is empty or a comment
next if $line =~ /^\s*$/ ;
next if $line =~ /^\s*#/ ;
my ($hostname, $interface) = split(/,/, $lin);
$xml =~ s/hostname/$hostname/g;
$xml =~ s/interface/$interface/g;
}
print XML $xml;
close
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.