Re^2: How to implement CSS in perl script.

Hi Gangabass, I need to print the output in a simple HTML format..for example using cascading stylsheet i want to create a table with the variable names on the left coulum and there values on the right with some suggestion. Thanks.

Comment on Re^2: How to implement CSS in perl script.

Replies are listed 'Best First'.
Re^3: How to implement CSS in perl script. by Gangabass (Vicar) on Dec 01, 2007 at 02:27 UTC
Maybe you need something like this: `print "<table><thead><tr><th>Slave_IO_State</th><th>Master_host</th><t +h>Slave_IO_Running</th><th>Slave_SQL_Running</th></tr></thead><tbody> +"; while ( my @val = $mas_hos->fetchrow_array() ) { print "<tr><td>$val[0]</td>"; print "<td>$val[1]</td>"; print "<td>$val[10]</td>"; print "<td>$val[11]</td>"; #print "<td>$val[33]</td>"; print "</tr>\n" } print "</tbody></table>\n";` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: How to implement CSS in perl script.
by Gangabass (Vicar) on Dec 01, 2007 at 02:27 UTC

Maybe you need something like this:

print "<table><thead><tr><th>Slave_IO_State</th><th>Master_host</th><t
+h>Slave_IO_Running</th><th>Slave_SQL_Running</th></tr></thead><tbody>
+";
while ( my @val = $mas_hos->fetchrow_array() ) {

    print "<tr><td>$val[0]</td>";
    print "<td>$val[1]</td>";
    print "<td>$val[10]</td>";
    print "<td>$val[11]</td>";
    #print "<td>$val[33]</td>";
    print "</tr>\n"
}
print "</tbody></table>\n";
[download]

[reply]
[d/l]