I have a script that parses a file that looks like this:

<server>
printserver1
default
cups
cups
</server>
<server>
printserver2
no
aix
rsh
</server>
[download]

and Id like it to dump the following:

printserver1,default,cups,cups
printserver2,no,aix,rsh
[download]

instead it only prints the first line and exits. conceptually I know what Im doing wrong, Im just not sure how to fix it. I need it to iterate over each server as a seperate entity.

Here is the code

#!/usr/bin/perl -w
use strict;
use diagnostics;
#use Data::Dumper;

my $config="/var/www/cgi-bin/prt.cfg";
open (CFGFILE,$config) || die "unable to open $config: $!\n";
my ($machine, $default, $type, $connect);
my $object=0;
my @server;
while (my @CFG = <CFGFILE>)
{
 foreach $_(@CFG)
 {
   chomp;
   next if /^#/;
   next if /^\s/;
   if (/<server.*?>/i ... /<\/server.*?/i)
   {
     next if /<.?server>/i;
     $object++;
     push (@server, $_);
   }
   ($machine, $default, $type, $connect) = @server;
 }
 print "$machine,$default,$type,$connect\n";
}
[download]

Thanks in advance for pointing me in the right direction.
Ted

**update** I changed the format of the config file to:

printserver1,default,cups,cups
printserver2,no,aix,rsh
[download]

and the code to:

#!/usr/bin/perl -w
use strict;
use diagnostics;
#use Data::Dumper;

my $config="/var/www/cgi-bin/prt.cfg";
open (CFGFILE,$config) || die "unable to open $config: $!\n";
my ($machine, $default, $type, $connect);
my (@server,@arrayref);
while (my @X=<CFGFILE>)
{
  foreach $_(@X)
  {
   next unless /^\w/i;
   push (@server, $_);
   ($machine, $default, $type, $connect)=split(/,/,$_);
   print "$machine, $default, $type, $connect";
  }
}
[download]

This makes it much easer to deal with. Thanks for the suggestions.

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.