#!/usr/bin/perl 

use CGI qw(:standard);
use strict;
my (@tab,@list_printer,@list_server);
my (%printer_info,%server_info,%location_server);
my $html=new CGI;
my ($name, $building, $type, $server, $support);
my ($value,$prev,$name_server,$name_printer);

##### array with the datas for testing ############
$tab[0]="ecmain109:ecmain:HP LaserJet 4050:ecserv1:Level I Support";
$tab[1]="ecmain112:ecmain:Epson 1500:none:Level II Support";
$tab[2]="ecmain144:ecmain:HP LaserJet 4050TN:ecserv1:Level I Support";
$tab[3]="ecmain145:ecmain:Lexmark 800:ecserv2:No Support";
$tab[4]="ecmain147:ecmain:HP LaserJet 8000:ecserv1:Level I Support";
$tab[5]="ecmain152:ecmain:HP LaserJet II:none:No Support";
$tab[6]="ecmain158:ecmain:HP LaserJet 4050N:ecserv2:Level I Support";
$tab[7]="ecmain159:ecmain:HP LaserJet 4MQ:ecserv1:Level I Support";
$tab[8]="ecgw110cp:Gateway:Tektronix 850:ecserv3:Level I Support";
$tab[9]="ecgw116:Gateway:HP LaserJet 4050N:ecserv3:Level I Support";
####################################################
print $html->header,
      $html->start_html;

foreach $value(@tab) {
  ($name, $building, $type, $server, $support) = split ":",$value;
  $printer_info{$name}=$name." :: ". $type." :: ".$support;
  $server_info{$name}=$server;
  $location_server{$server}=$building;
  push (@list_printer,$name);
  push (@list_server,$server);
}
###### sorting and removing duplicatas #############
@list_server=sort (@list_server);
$prev="not equal";
@list_server=grep($_ ne $prev && ($prev=$_),@list_server);

@list_printer=sort (@list_printer);
$prev="not equal";
@list_printer=grep($_ ne $prev && ($prev=$_),@list_printer);
#####################################################
foreach $name_server (@list_server) {
  print $html->start_table({-border=>'3'}),
        $html->Tr(
                  td("$name_server"),
                  td("$location_server{$name_server}")
                 );
  print $html->start_Tr,
  $html->start_td({-colspan=>'2'});
  foreach $name_printer (@list_printer) {
    if ($server_info{$name_printer} eq $name_server) {
    print "$printer_info{$name_printer}",
           $html->br;
    }
  }     
  print $html->end_td,
  $html->end_Tr,
  $html->end_table,
  $html->br;
}
print $html->end_html;
[download]