Comment puis-je créer des tableaux HTML en Perl?

J'ai besoin de créer 2 tables au format HTML. Chacun dispose de 5 lignes:

1ère Table

1ère ligne a FRUITS en elle, occupant toutes les colonnes
À la 2e rangée a janvier(mois), occupant toutes les colonnes
3ème ligne a les noms de quelques 6 fruits (pomme, orange, raisin,...), Ces noms ne changent pas. donc cette ligne a 6 colonnes
4e ligne a taux pour chaque fruit ( 10,20,30..) donc, cela a 6 colonnes.
5ème ligne a message correspondant pour chaque fruit de montrer Disponible ou pas.

2ème Tableau

Si elle est disponible, la couleur de fond de la cellule doit être vert et si pas de ROUGE.

1ère ligne a les LÉGUMES dans l', occupant toutes les colonnes
À la 2e rangée a février(mois), occupant toutes les colonnes
3ème ligne a les noms de quelques 6 légumes (tomate, pomme de terre..)Ces noms ne changent pas. donc cette ligne a 6 colonnes
4e ligne a taux pour chacun de ces légumes ( 10,20,30..) donc, cela a 6 colonnes.
5ème ligne a message correspondant pour chaque légume en montrant comme Disponible ou pas.Si elle est disponible, la couleur de fond de la cellule doit être vert et si pas de ROUGE.

Toutes ces données sont lues à partir d'un fichier ayant un format particulier, il est

<nom de fruits et de légumes> prix <disponible ou ne pas>

Les noms de fruits et de légumes ne changent pas , ça sera la même pour les deux tables.
Toutefois, il pourrait être possible que les données pour un particulier de fruits et de légumes n'est pas présent.
si ce n'est pas la colonne qui devrait montrer N/A avec un fond blanc.

Je ne peux pas utiliser MIME:Lite pour cela.
Besoin d'utiliser print <<ENDHTML;

Si c'est les devoirs, veuillez étiqueter comme tels.
Où serait MIME::Lite même venir dans l'image? De toute façon, catb.org/~esr/faqs/smart-questions.html
Qu'avez-vous essayé jusqu'à présent? Il doit y avoir des millions d'exemples de ce type dans Google. La recherche pour "table html perl" a ce que le troisième coup: osstips.wordpress.com/2005/12/13/...

InformationsquelleAutor anon | 2010-03-19

html-generation perl

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();

InformationsquelleAutor user3434522

Vous devez vous connecter pour publier un commentaire.