It's code I used:
#!/usr/bin/perl
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
print << "[END]";
Content-type: text/html
<html><head>
<title>Information about Perl</title>
<style type="text/css">
BODY {
background-color: #FFFFFF;
color: #000000;
}
.normal {
font-family: Verdana;
font-size: 12px;
}
.forms {
font-family: MS Sans Serif;
font-size: 11px;
}
</style>
</head>
<body leftMargin=0 topMargin=0 marginwidth=0 marginheight=0 bgcolor=white>
<br><p align=center class=normal><b>Detail information</b></p>
[END]
print "<ul><li><p class=normal>Version Perl: $]</p></li>";
for($i=0;$i<scalar(@INC);$i++) {
$outinc.="\"$INC[$i]\"<br>";
}
print "<li><p class=normal>Directory:<br>$outinc</p></li>";
print "<li><p class=normal>established modules:</p></li></ul>";
print "<table border=1 width=100%>";
print "<tr class=forms><td align=center bgcolor=#F0F0F0>Name</td>";
print "<td align=center bgcolor=#F0F0F0>Ver</td>";
print "<td align=center bgcolor=#F0F0F0>Used files</td></tr>";
for($i=0;$i<scalar(@modules);$i++) {
my $version = $inst->version($modules[$i]) || "???";
my @all_files = $inst->files($modules[$i]);
for($a=0,$outfiles='';$a<scalar(@all_files);$a++) {
$outfiles.="$all_files[$a]<br>";
}
print "<tr class=normal><td valign=top>$modules[$i]</td>";
print "<td valign=top>$version</td>";
print "<td>$outfiles</td></tr>";
}
print "</table></body></html>";
---
Best regards
AlexBel
On Fri, 17 Jan 2003 09:32:44
Rumpf, Christopher wrote:
>Hi.
>
>I just inherited a perl installation with a ton of modules included in it
>and want to check each module to see which version is installed.
>
>I know that this cmd:
>find `perl -e 'print "@INC"'` -name '*.pm' -print
>
>will show me the list of installed modules - but anyone know how to check
>each module for a version string?
>
>Thanks for the help!
>
>/* ---
> Christopher M. Rumpf
> --- */
>
>
_____________________________________________________________
Get 25MB, POP3, Spam Filtering with LYCOS MAIL PLUS for $19.95/year.
http://login.mail.lycos.com/brandPage.shtml?pageId=plus&ref=lmtplus
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
