printserver1 default cups cups printserver2 no aix rsh ##

##

printserver1,default,cups,cups
printserver2,no,aix,rsh

##

##

#!/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 = )
{
 foreach $_(@CFG)
 {
   chomp;
   next if /^#/;
   next if /^\s/;
   if (//i ... /<\/server.*?/i)
   {
     next if /<.?server>/i;
     $object++;
     push (@server, $_);
   }
   ($machine, $default, $type, $connect) = @server;
 }
 print "$machine,$default,$type,$connect\n";
}

##

##

printserver1,default,cups,cups
printserver2,no,aix,rsh

##

##

#!/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=)
{
  foreach $_(@X)
  {
   next unless /^\w/i;
   push (@server, $_);
   ($machine, $default, $type, $connect)=split(/,/,$_);
   print "$machine, $default, $type, $connect";
  }
}