| ||||||||||||||||||||||||
![[Date Prev]](/grafix/mhonarc/prev.png)
![[Kronologisk oversigt]](/grafix/mhonarc/up.png)
![[Date Next]](/grafix/mhonarc/next.png)
|
|
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||
Nej det var det nu ikke men ellers tak.
Peter
Christian Sandfeld wrote:
>
> 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.
|
|
|
||||||||||||
|
||||||||||||||
| ||||||||||||||
|
||||||||||||||
|
|
|
||||||||||||