如何才能知道自己装了哪些Perl模块？

最新推荐文章于 2021-05-13 21:11:54 发布

原创最新推荐文章于 2021-05-13 21:11:54 发布 · 558 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#perl #file #go

收录于

本文提供了一个Perl脚本，用于列出系统中已安装的所有Perl模块。通过提供的代码，用户可以根据名称模式筛选并显示所需的模块信息。

如何才能知道自己装了哪些Perl模块？复制内容到剪贴板代码: #!/usr/bin/env perl # pminst -- find modules whose names match this pattern # tchrist@perl.com BEGIN { $^W = 1 } use Getopt::Std qw(getopts); use File::Find; getopts('ls') || die "bad usage"; if (@ARGV == 0) { @ARGV = ('.'); } die "usage: $0 [-l] [-s] pattern/n" unless @ARGV == 1; $pattern = shift(); $pattern =~ s,::,/,g; no lib '.'; use vars qw($opt_l $opt_s); for $startdir (@INC) { find(/&wanted, $startdir); } sub wanted { if (-d && /^[a-z]/) { # this is so we don't go down site_perl etc too early $File::Find::prune = 1; return; } return unless //.pm$/; local $_ = $File::Find::name; ($tmpname = $_) =~ s{^/Q$startdir/}{}; return unless $tmpname =~ /$pattern/o; if ($opt_l) { s{^(/Q$startdir/E)/}{$1 } if $opt_s; } else { s{^/Q$startdir/}{}; s//.pm$//; s{/}{::}g; print "$startdir " if $opt_s; } print $_, "/n"; }