1

HTML形式で2つのテーブルを作成する必要があります。それぞれに 5 つの行があります。

ファーストテーブル

  • 1 行目に FRUITS があり、すべての列を占めています
  • 2 行目に 1 月 (月) があり、すべての列を占めています
  • 3 行目には 6 つの果物の名前 (りんご、オレンジ、ぶどうなど) があります。これらの名前は変わりません。したがって、この行には6つの列があります
  • 4 番目の行には各果物 (10,20,30..) の割合があるため、6 列になります。
  • 5 行目には、利用可能かどうかを示す各果物に対応するメッセージがあります。

セカンドテーブル

セルの背景色が利用できる場合は緑、利用できない場合は赤になります。

  • 1行目に野菜があり、すべての列を占めています
  • 2 行目に 2 月 (月) があり、すべての列を占めています
  • 3行目には6種類の野菜（トマト、じゃがいもなど）の名前があり、これらの名前は変わりません。したがって、この行には6つの列があります
  • 4 番目の行には各野菜の割合 (10、20、30 など) があるため、6 つの列があります。
  • 5 行目には、各野菜に対応するメッセージがあり、利用可能かどうかを示しています。利用できる場合はセルの背景色を緑に、そうでない場合は赤にします。

このデータはすべて、特定のフォーマットを持つファイルから読み取られます。

<果物/野菜の名前> 価格 <あり/なし>

果物と野菜の名前は変わらず、両方のテーブルで同じです。ただし、特定の果物/野菜のデータが存在しない可能性があります。存在しない場合は、その列に N/A と白い背景が表示されます。

これにはMIME:Liteを使用できません。使用する必要がありますprint <<ENDHTML;

4

1 に答える 1

1 
use HTML::TagTree;
use strict;

my $html = HTML::TagTree->new('html');
$html->head->title('Fruits');

my $table = $html->body->table();
$table->tr->td('Fruits','colspan=6');
$table->tr->td('February','colspan=6');
my @fruits = qw(apples bananas coconut dates figs guava);
my @rates = (10,20,30,40,50,60);
my $tr_fruits = $table->tr;
my $tr_rates = $table->tr;
my $tr_available = $table->tr;
for (my $col=0; $col<6; $col++) {
   $tr_fruits->td($fruits[$col]);
   $tr_rates->td($rates[$col]);
   # Randomly make available
   my $available = int(rand(1000)/500 + .5);
   if ($available) {
      $tr_available->td('Available','style=background-color:green');
   } else {
      $tr_available->td('Out of Stock','style=background-color:red');
   }
}
print $html->print_html();
于 2014-07-13T03:11:59.227 に答える