farblich dargestellte Ausgabe - #72930 (Allgemeines zu Perl)

Ronnie

2007-01-09 11:52

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

[quote=opi,09.01.2007, 09:43](...) Deshalb halte ich CGI fÃ¼r veraltet. Das Beispiel
von renee ist makellos.[/quote]
Habe ich auch einige Zeit gedacht, aber CPAN:

CGI zur Konstruktion von HTML geht sehr zÃ¼gig und wenn keine WebDesigner nochmal ran soll, halte ich es fÃ¼r vÃ¶llig legitim.

renees Beispiel fÃ¼r Templating kÃ¶nnte sogar noch minimal vereinfacht werden:

Code: (dl )

1
2

# $class = 1 if $col2 eq 'hallo';
my $class = $col2 eq 'hello' ? 'red' : 'green';

und dann im Template:

Code: (dl )

1
2
3

    <td class="<!-- TMPL_VAR NAME=CLASS -->">
            <!-- TMPL_VAR NAME=VALUE -->
   </td>

Wobei ich die ASP-Style Tags bevorzuge.

Hier noch ein Beispiel fÃ¼r ein Ã¤hnliches Skript mit CPAN:

CGI und

HTML::Table:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use HTML::Table;

my $cgi = CGI->new;
print   # $cgi->header, 
        $cgi->start_html;

my $t = HTML::Table->new( [map {
    s/\b\son/_on/; [split /\s+/]
    } split /\n/, qx/df -h/]);
    
$t->setRowStyle($_, 
    $_ % 2 == 0 ? 'background-color: #ddd;' : 'background-color: #6d6;'
    ) for (1..$t->getTableRows);
$t->setRowStyle(1, 'background-color: Ä† color: #fff;');

print $t, $cgi->end_html;

Ist AFAIR durch Posts von renee und pq inspiriert gewesen - und aus meiner Sicht als LÃ¶sung fÃ¼r eine so simple Problemstellung genauso legitim wie eine Variante mit templating, aber u.U. schneller getippt. Bei grÃ¶Ãeren Dingen gibt es aber auch aus meiner Sicht keine Alternative zu Templating (bevorzugt mit CPAN:

HTML::Template::Compiled).

EDIT: Typo\n\n