最近老是遇到用Perl来实现一些小需求的脚本，自己对Perl也是新手，想请教一下各位大大们，我想用cqperl来直接运行写的脚本，CQ教材上只是写了 cqperl集成了CPAN上大多数的模块，那我怎么可以知道哪些模块我是可以直接用cqperl来调用的？以及这些模块的相关参数资料？ 这样的话很多需求实现起来就方便多了～不用自己一个一个的写代码的～请大大们指点啊～

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

OK了

谢谢 i子休 的帮忙  ：）


use warnings;
use strict;
use File::Find;

find(
sub {
return unless /\.pm$/;
my $module = $File::Find::name;
foreach(@INC) {
$module =~ s/^$_\///;
}
$module =~ s/\//::/g;
$module =~ s/\.pm//;
print $module, "\n";
},
@INC
);

最佳答案

该回答被楼主/管理员列为正解!