nicht angemeldet
Bounjoun Gary,
Hab es wieder runtergelöscht. Hoffentlich hats keiner gesehen...
Du kannst sie wieder hochladen, wenn Du über Dein System Infos brauchst. Aber nicht verlinken ;)
In Perl kannst Du auch sowas machen. Hier ein Skript, was zum Perl-Lernen eher ungeeignet ist (kein »strict«, kein use vom CGI-Modul, kein valides HTML in der Ausgabe) - war bei 1&1 nebst info.php und info.py (Python) dabei:
info.pl
#!/usr/bin/perl
use File::Find;
print "Content-type: text/html\n\n";
print qq~ <html><head>
<style type="text/css">
<!--
th {font:bold 16px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; color:#fff; background-color:#0A328C; padding:5px 0; }
td {font:12px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; line-height:1.5em; vertical-align:top;}
.leftcol {width:35%; background-color:#E9F0FA; padding-left:5px;}
.rightcol {width:65% }
a:link {font:12px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; color:#002276; text-decoration: none;}
a:visited {font:12px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; color:#002276; text-decoration: none;}
a:active {font:12px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; color:#000; text-decoration: underline;}
a:hover {font:12px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; color:#000; text-decoration: underline;}
h1 {font:bold 24px Arial,"Lucida Grande","Lucida Sans Unicode","Bitstream Vera Sans",Verdana,Futura,Helvetica,sans-serif; margin:10px 0 4px;}
table {margin:30px 0 0;}
-->
</style>
<title>Perl Configuration</title>
</head>
<body>
<h1 style="text-align: center">Perl Configuration</h1>
<table width="100%">
<tr><th colspan="2">Program Paths</th></tr>
<tr><td class="leftcol"><b>Perl Version</b></td><td class="rightcol">$]</td></tr>
<tr><td class="leftcol"><b>Perl Executable</b></td><td class="rightcol">$^X</td></tr>
<tr><td class="leftcol"><b>PERL compile version OS</b></td><td class="rightcol">$^O</td></tr>
<tr><td class="leftcol"><b>Location of Perl</b></td><td class="rightcol">~;
foreach $location ( split(" ",`whereis perl`) ) {
print "$location<br>\n";
}
print qq~
</td></tr>
<tr><td class="leftcol"><b>Location of Sendmail</b></td><td class="rightcol">~;
foreach $location ( split(" ",`whereis sendmail`) ) {
print "$location<br>\n";
}
print qq~
</td></tr>
<tr><td class="leftcol"><b>Directory locations searched for perl executables</b></td><td class="rightcol">~;
foreach $location (@INC){
print "$location <br>\n";
}
print qq~
</td></tr>
</table>
<table>
<tr><th colspan="2">Environment Variables</th></tr>~;
foreach $var(keys %ENV){
print qq~ <tr><td class="leftcol"><b>$var</b></td><td class="rightcol">$ENV{$var}</td></tr>~;
}
print qq~
</table>
<table width="100%">
<tr><th colspan="3">Installed Perl Modules</th></tr>~;
find(\&wanted,@INC);
$modcount = 0;
foreach $line(@foundmods){
$match = lc($line);
if ($found{$line}[0] >0){
$found{$line} = [$found{$line}[0]+1,$match]
} else {
$found{$line} = ["1",$match];$modcount++
}
}
@foundmods = sort count keys(%found);
sub count {return $found{$a}[1] cmp $found{$b}[1]}
$third = $modcount/3;
$count=0;
print qq~ <tr><td width="33%" valign="top"><table>~;
foreach $mod(@foundmods){
chomp $mod;
$count++;
if ($count <= $third){
print qq~ <tr><td class="rightcol">$mod</td></tr>~;
} else {
push (@mod1,$mod)
}
}
print qq~ </table></td><td width="33%" valign="top"><table>~;
$count = 0;
foreach $mod1(@mod1){
chomp $mod1;
$count++;
if ($count <= $third){
print qq~ <tr><td class="rightcol">$mod1</td></tr>~;
} else {
push (@mod2,$mod1)
}
}
print qq~ </table></td><td width="33%" valign="top"><table>~;
$count = 0;
foreach $mod2(@mod2){
chomp $mod2;
$count++;
if ($count <= $third){
print qq~ <tr><td class="rightcol">$mod2</td></tr>~;
}
}
print qq~
</table></tr>
</table>
</body>
</html>~;
exit;
sub wanted {
$count = 0;
if ($File::Find::name =~ /\.pm$/){
open(MODFILE,$File::Find::name) || return;
while(<MODFILE>){
if (/^ *package +(\S+);/){
push (@foundmods, $1);
last;
}
}
}
}
Das Skript listet Dir nebst Environment-Variablen alle installierte Module auf.
Adiou.
Der Martin