FreeBsd下如何查看已经安装的perl模块

congcong

UID: 35624
帖子: 98
积分: 225
在线时间: 13 小时

1^# congcong 发表于 2006-05-16 14:06

FreeBsd下如何查看已经安装的perl模块

FreeBsd下如何查看已经安装的perl模块
FreeBsd下如何查看已经安装的perl模块??
请求帮助?

菜田守望者

UID: 5194
帖子: 189
积分: 434
在线时间: 2 天

2^# 菜田守望者发表于 2006-05-16 14:49

[quote]--#!/usr/bin/pe.
[quote]
#!/usr/bin/perl
# find_perl_modules.pl 2006.05.16
use File::Find;

find(\&wanted,@INC);

sub wanted
{
return unless ($File::Find::name =~ /\.pm$/);
open(MOD,$File::Find::name) or return;
while(<MOD>)
{
if (/^ *package +(\S+);/)
{
print $1 . "\n";
}
};
close(MOD);
};
[/quote]

congcong

UID: 35624
帖子: 98
积分: 225
在线时间: 13 小时

3^# congcong 发表于 2006-05-16 16:35

thank you very much!.
thank you very much!