METANET: Perl Umgebungs-Informationen

$fontServer Pfade

${font}Perl Executable: ${font}$^X

${font}Perl Version: ${font}$]

${font}Betriebssystem: ${font}$^O

${font}GID ${font}$<

${font}Location of Perl: ${font}~;foreach $loc(@perlloc){ print "$loc
\n";} print qq~

${font}Location of Sendmail: ${font}~;foreach $ml(@mailloc){ print "$ml
\n";} print qq~

${font} Directory locations searched for perl executables $font~;foreach $item(@INC){ print "$item
\n";} print qq~

$fontUmgebungsvariablen

~;foreach $fieldname(keys %ENV){ print qq~ ~;} print qq~
${font}$fieldname ${font}$ENV{$fieldname}

$fontInstallierte Module

~;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 "
";foreach $mod(@foundmods){ chomp $mod; $count++;if ($count <= $third){ print qq~~; } else {push (@mod1,$mod)}}print "
${font}$mod
";$count = 0;foreach $mod1(@mod1){ chomp $mod1; $count++;if ($count <= $third){ print qq~~; } else {push (@mod2,$mod1)}}print "
${font}$mod1
";$count = 0;foreach $mod2(@mod2){ chomp $mod2; $count++;if ($count <= $third){ print qq~~; }}print qq~
${font}$mod2

${font}

~;exit;sub vars {$dev="METANET";use File::Find;$bgcolor = "#efefef";$program="perl diver";$version="1.1";}sub wanted { $count = 0; if ($File::Find::name =~ /\.pm$/){ open(MODFILE,$File::Find::name) || return; while(){ if (/^ *package +(\S+);/){ push (@foundmods, $1); last; } } }}

${font}Perl Executable:	${font}$^X
${font}Perl Version:	${font}$]
${font}Betriebssystem:	${font}$^O
${font}GID	${font}$<
${font}Location of Perl:	${font}~;foreach $loc(@perlloc){ print "$loc \n";} print qq~
${font}Location of Sendmail:	${font}~;foreach $ml(@mailloc){ print "$ml \n";} print qq~
${font} Directory locations searched for perl executables	$font~;foreach $item(@INC){ print "$item \n";} print qq~