값에 따라 각 셀의 배경색을 동적으로 변경

Oracle 데이터베이스에서로드하는 두 개의 열이있는 테이블이 있습니다.

한 열에 포함 employee_name되고 다른 열은phone_no

이메일 css로 html테이블 을 보내기 위해 perl 에서 스크립트를 실행하고 있습니다 . 그러나 사용자 친화적 인 방식으로 테이블을 표현하고 싶습니다.

예 :

1. 열 1 셀의 bg 색상을 빨간색으로 변경하고 싶습니다 emplpyee_name=steven.

2. 열 2 셀의 bg 색상을 빨간색으로 변경하고 싶습니다. phone_no=null

bgcolour로드 하는 동안 동적으로 변경하고 싶습니다 . 나는 jQuerycss / html에서만 가능합니까?

#!/efs/dist/perl5/core/5.8/exec/bin/perl

use EFSPerl::Version (
'DBD-Oracle' => '1.19',
'DBI' => '1.58'
);


use DBI;
use CommonFunctions;

my @HTML        =();


$STYLE=<<STYLE;
<style type="text/css">
.myTable { background-color:#E6F0FF;border: 1px solid blue;border-collapse: collapse; }
.myTable th { background-color:#0066FF;color:white;font-size: 100%; }
.myTable td { padding:3px;border:1px solid #0066FF; }

</style>
STYLE
    push(@HTML,"$STYLE");


    push(@HTML,"<table class=\"myTable\" border=1>\12<tr bgcolor=708090><th>EMPLOYEE_NAME</th><th>PHONE_NO</th></tr>");

    $retCode=executeSQL(" SELECT EMPLOYEE_NAME, PHONE_NO FROM EMPLOYEE_TABLE");
 push(@HTML,"</table>\12\12");

 if($retCode) {
    push(@HTML,"<tr><td>&nbsp;</td><td><td></td>");
    push(@HTML,"<td></td><td></td></tr>\12");
    }


&sendMail;

sub sendMail
{

$sub="test report";
$from='[email protected]';
$to='[email protected]';

    open(MAIL, "|/usr/lib/sendmail -t");
            print MAIL "From: $from \12"; print MAIL "To: $to \12";print MAIL "Cc: $Cc \12";
            print MAIL "Subject: $sub \12";
            print MAIL "Content-Type: text/html \12";
            print MAIL "Content-Disposition:inline \12";
            print MAIL @HTML;
 close(MAIL);
}
sub executeSQL
{
    my $SQL=$_[0];chomp($SQL);
    print "$SQL\12";



    my $dsn = "dbi:Oracle:host=server.com;sid=sample;port=1111;";
    my $dbuser = "username";
    my $dbpass = 'password';
    my $dbh = DBI->connect($dsn, $dbuser, $dbpass, { RaiseError => 1, AutoCommit => 0 });

    my $sth=$dbh->prepare($SQL);
    $sth->execute or die "EXEC ERROR $sth->errstr";
    $count=0;
    while (@ary = $sth->fetchrow_array) {
            $count++;
            push(@HTML,"<tr>");
            foreach(@ary) {
                    chomp($_);
                    push(@HTML,"<td>$_</td>");
                    print "$_,";
            }
            push(@HTML,"</tr>\12");
    }
    $dbh->disconnect();



print "COUNT : $count\12";
    return 1 if($count==0);

}