Opened by Gast at 2006-12-15 20:40
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Hinweis: Wenn du use strict; verwendest musst du auch deine Variable mit my deklarieren. Das \n bei deinem system-Befehl ist unnötig. Wobei es sinnvoller ist qx zu verwenden.
Experimentiere erstmal topegs Antwort. Hier noch ein etwas fortgeschrittener (aber leicht fehlerhafter Ansatz):
\n\n
<!--EDIT|Ronnie|1166215263-->
Experimentiere erstmal topegs Antwort. Hier noch ein etwas fortgeschrittener (aber leicht fehlerhafter Ansatz):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/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 {[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;
<!--EDIT|Ronnie|1166215263-->