perl 生成html,如何突出顯示使用Perl生成的HTML表格的最後一行？

下面的代碼將@stat_array分解爲四部分，然後 再次將字段打印到HTML表格中，OCOMsg2單元格爲紅色 - - 只是電子郵件表格的一個單元格。如何突出顯示使用Perl生成的HTML表格的最後一行？

老闆告訴我說，他希望與OCOMsg2 紅色整行 - 所以下面的陣列，所有的元素

"ibfarm102 - localtick", 'New York", "hibmis100 - procHKHD2 - Hongkong", "OCOMsg2"

必須是紅色。

有沒有辦法做到這一點，無需重寫整個塊 - 我真的很喜歡這個塊。

@stat_array = ("ibfarm102 - localtick", "Boston" , "hibmis100 - procHKHD2 - Hongkong", "PidMonRsp",

"eufarm102 - localtick", "London", "hibmis100 - procHKHD2 - Hongkong" , "PidMonReq" ,

"ibfarm102 - localtick", "New York" , "hibmis100 - procHKHD2 - Hongkong", "PidMonRsp",

"ibfarm102 - localtick", 'New York", "hibmis100 - procHKHD2 - Hongkong", "OCOMsg2");

my @stat_array_rows = @stat_array;

while (my @stat_array_rows = splice(@stat_array_rows, 0 , 4)) {

print MAIL "

\n";while (my @stat_array_rows = splice(@stat_array_rows, 0 , 4)) {

print MAIL "

\n";

for my $stat_row(@stat_array_rows) {

if ($stat_row =~ /OCCOMsg2/){

print MAIL "

$stat_row[0]\n";

}

else {

print for my $stat_row(@stat_array_rows) {

if ($stat_row =~/OCAlive2/){

print MAIL "

$stat_row[0]\n";

}

else {

print MAIL "

$stat_row\n";

}

}

print MAIL "

\n";

}

這些塊的結果：

ibfarm102 - localtick Boston hibmis100 - procHKHD2 - Hongkong PidMonRspeufarm102 - localtick London hibmis100 - procHKHD2 - Hongkong PidMonReqibfarm102 - localtick New York hibmis100 - procHKHD2 - Hongkong PidMonRspibfarm102 - localtick New York hibmis100 - procHKHD2 - Hongkong OCOMsg2

我有點想要Perl打印的一切，我的OCOMsg2塊紅色的，而不僅僅是細胞。

2011-07-26

capser

+0

>下面的代碼打破了@stat_array到四肢，然後 >打印出的字段中的HTML表格王氏的OCOMsg2細胞紅色 - >再次 - 通過電子郵件發送的表只是一個細胞。 >老闆告訴我，他希望整條線與OCOMsg2 >紅色 - 所以下面的數組，所有元素 - >「ibfarm102 - localtick」，「紐約」，「hibmis100 - procHKHD2 - >香港「，」OCOMsg2「 >需要紅色。 >有沒有辦法做到這一點，而不是重寫整個塊 - 我>真的很喜歡這個塊(謝謝ysth).. –

+0

請編輯你的問題與該信息 –

+0

看起來更像是一個html問題，而不是perl。 –