| ||||||||||||||||||||||||
![[Date Prev]](/grafix/mhonarc/prev.png)
![[Kronologisk oversigt]](/grafix/mhonarc/up.png)
![[Date Next]](/grafix/mhonarc/next.png)
|
|
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||
Hej Peter,
Jeg har et lille script jeg bruger til at finde "environment" variabler på
de WEB servere jeg arbejder med. Scriptet lister %ENV hashens keys
alfabetisk, med tilhørende values. Er det noget i den stil du er ude efter?
/Christian
#!/usr/bin/perl
$cellcolor1 = "#CCCCCC";
$cellcolor2 = "#DDDDDD";
$cellcolor = $cellcolor1;
print "Content-type:text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE></TITLE>\n";
print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">\n";
print "<TABLE BGCOLOR=\"#000000\" BORDER=\"0\" CELLPADDING=\"2\"
CELLSPACING=\"1\">\n";
foreach $key (sort {lc($a) cmp lc($b)} keys (%ENV)) {
print " <TR>\n";
print " <TD NOWRAP BGCOLOR=\"$cellcolor\"><FONT FACE=\"Verdana,
Arial, Helvetica\" SIZE=\"1\"><B>$key</B></FONT></TD>\n";
print " <TD NOWRAP BGCOLOR=\"$cellcolor\"><FONT FACE=\"Verdana,
Arial, Helvetica\" SIZE=\"1\"> $ENV{$key}</FONT></TD>\n";
print " </TR>\n";
if ($cellcolor eq $cellcolor1) {
$cellcolor = $cellcolor2;
} elsif ($cellcolor eq $cellcolor2) {
$cellcolor = $cellcolor1;
}
}
print "</TABLE>\n";
print "</BODY>\n";
print "</HTML>\n";
----- Original Message -----
From: Peter Lindstrøm <sslug@sslug>
> Er det muligt at lave en rutine der kan tage en af disse hashes som
> argument og printe indholdet af hashen ud på en pæn måde. Jeg
> forestiller mig at udprintet indeholder 1 værdi pr linie og navnet på de
> keys der giver denne værdi.
|
|
|
||||||||||||
|
||||||||||||||
| ||||||||||||||
|
||||||||||||||
|
|
|
||||||||||||