Hello All, I follow all your advice and finally I got the HTML page that I want with the cell change color based on condition, now I do not want table width = 100% and I want fix size for all the cells I am stucked. When I changed the table width to auto and cells to some px all the headings just jumps. any idea please? 

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;   

#for testing
my $dest = "C:/Perl-Script/Network Faults/";

# current date/time
my $t = localtime;
my $date = $t->wdayname.' '.$t->dmy('/');
my $time = $t->hms;

# input data
my %hdata = build_hash($dest."RoomName.txt");
my $href = build_sqlData();
my @lrooms=();

foreach my $room (sort keys  %{$href}){
    #print "room is $room\n";
    #print "status is ${$href}{$room}\n";
    push @lrooms, $room;
    #print "num is @lrooms\n";
}

# output html
open OUT, ">". $dest."ICT Report.html" or die "$!";
print OUT qq(
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
  "http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
   <title>Bulletin</title>
    <style type="text/css">
     h4   { color: #0; font-size: 1em; }  
   </style>     

    <meta name="viewport" content="width=device-width, initial-scale=1
+">
    <link rel="stylesheet" type='text/css' media='screen' href="/Perl-
+Script/Extra/w3.css"> 
    
</head>
<body>
    <div class="w3-container w3-blue">
    <h4>NewYork Time</h4>
    <h4>Report Date $date  $time</h4>
    </div>
    <div class="w3-control-bar"></div>

);

foreach my $key (sort keys %hdata) {
        
      my $h4 = $key;
    $h4 =~ s/[\"\$]//g;
    print OUT qq!<h4>$h4</h4>
    <table border="1" width="100%" style="border-color:#e0e0e0" cellpa
+dding="5" align="left">\n!; #how to change width of table here????
                
    my @arrays = @{$hdata{$key}}; 
    for my $i (1..$#arrays) {
      print OUT '<tr>';
      my @col = split(/,/,$arrays[$i]);
                    
      for my $j (0..$#col) {
        $col[$j] =~ s/\"Period\"/\"Class\"/g;   
        $col[$j] =~ s/"//g;
        my $bg = "bgcolor=#e0e0e0";
        #print @lrooms;

         if ($col[$j] ~~ @lrooms) {
              $bg = (${$href}{$col[$j]} =~ /Pending/) ? "bgcolor=#FF00
+00" :  
                     (${$href}{$col[$j]} =~ /InProgress/) ? "bgcolor=#
+FFFF00" :
                  "";        
         }

        print OUT "<td $bg align=left>$col[$j]</td>"; # how to set the
+ fixed width of cells ???
      };
      print OUT "</tr>";      
    };
    print OUT "</table>&nbsp;<br>\n";
}
print OUT "</body></html>";
close OUT;

#-------------------------------------
# This subroutine split text file to 
# a hash of arrays for data processing
# -------------------------------------
sub build_hash{
  
  my $infile = shift;
  my %data;
  my $last ='';
  open my $ifh,'<',$infile or die "$!";
  while (my $line=<$ifh>) { 
    chomp $line; 
    if ( substr($line,0,2) eq '"$' 
      || substr($line,0,1) eq '$') { 
      $last = $line; 
    } 
    push @{$data{$last}},$line;   
  }
  close $ifh;
  return %data;
}

#--------------------------------------------
# This subroutine extracts data from sql server 
# to an array of arrays for data processing
# -------------------------------------------
sub build_sqlData{
use Data::Dumper;
use DBI;

# establish the connection
my $dbh = DBI->connect('dbi:ODBC:myDSN','user','pass',
      { RaiseError => 1, 
        PrintError => 1 } )
   or die "Could not connect to database: $DBI::errstr";
   
# sql query statement
my $sql =<< "SQL";
  SELECT RTRIM(location),RTRIM(CompletionStatus) 
  FROM ewNetworkFaults
  WHERE Type like '%Room Audio Visual%'
    AND CompletionStatus not like '%Completed%'
SQL
  
my $table = $dbh->selectall_arrayref($sql);
print Dumper $table;

my $last_index = $#${table};
my $count = scalar @$table;
print "
records = $count
last_index = $last_index\n";
my %hdata;
for my $row (@$table) {
    my $location = $row->[0];
    my $status = $row->[1];
    $hdata{$location} = $status;
}

#print Dumper \%hdata;
return \%hdata;
}

[download]
Nirvana is Now or Never

In reply to Re^4: how to save data to new array after retrieving from sql server by mhoang
in thread how to save data to new array after retrieving from sql server by mhoang

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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:
    & &amp;
    < &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.