#!/usr/bin/perl -w 
open (HOSTLIST, hosts");
while ($host = <HOSTLIST>) {
 chomp ($host);
#foreach $host ( 'hosta','hostb' ) {

   print "$host\n";
    open (INQ_ET, "$host");

   $, = ' ';               # set output field separator
   $\ = "\n";              # set output record separator

   foreach (<INQ_ET>) {
       if (/\/dev/) {
       s/://g;
       ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6) = split(' ', $_, 9999);
       printf ("'%s','%s','%s','%s','%s'\n", $Fld1, $Fld2, $Fld3, $Fld6, $host);
       
       }
   }

  close (INQ_ET);

  
}