Ich möchte einen Zellenwert in der Tabelle mit seinem Header verknüpfen. Der Header ist nicht bekannt, da er durch eine SQL-Abfrage generiert wurde.

Größen als Header stammen aus dem SQL-Rückgabeergebnis. Also stelle es in ein Array,

@sizes = qw(S36 S37 S38 S39 S40 S41 S42);

Nun, wenn James Größe S38 hat.

Ich möchte sie als HTML-Tabelle mit Größenüberschrift drucken:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+
|        |        |  James |       |       |       |       |
+--------+--------+--------+-------+-------+-------+-------+

Ich weiß, wie das geht, wenn Größen Teil einer Zeile oder eines Ergebnisses sind, aber als Tabellenüberschrift?

Wie manipuliere ich das mit Perl?

BEARBEITET:

Ich versuche den Code, den ich versucht habe, zusammenzufassen ...

SQL-Abfrage:

select size from articles where order_number = "3";

Kommen Sie in ein Array:

while(my $ref = $sth->fetchrow_hashref()) {
    $size = "$ref->{'size'}";
    push @sizes, $size;
}

Sagen,@sizes ist:

@sizes = qw(S36 S37 S38 S39 S40 S41 S42);

Erstellen Sie einen HTML-Header basierend auf den Größen:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+

Nun, sagen wir aus einer anderen SQL-Abfrage, ich weiß, dass James S38 hat. Wie man es in die rechte Zeile der obigen Tabelle setzt. Es wäre:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+
|        |        |  James |       |       |       |       |
+--------+--------+--------+-------+-------+-------+-------+