复制内容到剪贴板
代码:
# path of perl executable
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
);运行一下可以列出所有可用的模块,具体的文档可以去CPAN上找找