其实这个功能 perldoc 与 cpan 都有,只不过学习perl 想练练手。
程序的功能是实现使用 正则表达式 查找 perl 中的内置 package,然后输出匹配的结果;如输入参数为空,则提示无参数;如输入参数中含有 /all 则输出所有的 package。
代码如下:
#!/usr/bin/perl
use strict;
use utf8;
use 5.010;
use Data::Dumper;
use Module::CoreList;
use List::Util qw /first max/;
sub checkArgs {
my (@args) = @_;
my $happy = first {/\/all/} @args;
if($happy){
@args = undef;
}
@args;
}
sub lengthstr {
my (@args) = @_;
foreach (@args){
$_ = length $_;
}
@args;
}
my %modules = %{$Module::CoreList::version{5.014}};
my $maxNum = max lengthstr keys %modules;
foreach my $key (sort keys %modules){
@ARGV = checkArgs @ARGV;
if(!@ARGV){
say "No arguments.";
last;
}
chomp($key);
chomp(my $value = $modules{$key});
foreach my $temp (@ARGV){
if($key =~ /(.*($temp).*)/){
printf "%${maxNum}s\t%s\n", $key, $value;
}
}
}
#print Dumper(@ARGV);
使用时,运用如下方式;
./pModules.pl [pattern] | all
可以输入若干个 pattern ,但只要有一个 /all ,则会输出所有的 package。
分享到:
相关推荐
perl padwalker package
使用perl进行查找和替换.pdf使用perl进行查找和替换.pdf
分析了LKM后门实现隐藏进程的机理。针对后门设计存在的缺陷,结合/proe文件系统特点,提出了一种接顺序遍历...最后给出采用Perl语言实现此查找功能的流程图。实验表明该方法能准确、有效地发现被LKM后门隐藏的进程。
《使用perl实现系统管理自动化.第二版(中文版)》不仅提供了可用于工作的恰当工具,还给出了许多建议,帮助你解决特定问题以及安全地自动处理重复事务。 这一版的“水獭书”经过更新和扩充,涵盖了最新的操作系统、...
perl实现报表功能
使用perl的基本函数实现下载百度top100的歌曲到本地。
用 perl 实现文件上传
Perl进程处理函数、数学函数、字符串处理函数等各类,perl的内置特殊变量还有很多的,例如常用的还有@_、@ARGV、$ARGV、%INC、%ENV等等,有很多,不可能一一列举了,这里给出一个比较有总结性的列表,是chinaunix上...
perl 实现的rpc-server源码 有POE技术
搜索分词:perl实现代码,perl代码
使用Perl实现系统管理自动化(第二版) 中文版
PERL 内置变量 使用内置变量可以是编程更简洁
perl实现的中文词性标注 读入按“中国/n 人民/n”方式分好词的文件训练 再读入分词文件测试 输出标好词性的文件
perl实现多线程详解[整理].pdf
用PERL实现一个简单的NIDS 用PERL实现一个简单的NIDS
如果你从事任何系统管理方面的工作,就必须应对日益复杂的工作环境以及...《使用Perl实现系统管理自动化 第二版》不仅提供了可用于工作的恰当工具,还给出了许多建议,帮助你解决特定问题以及安全地自动处理重复事务。
其包含了包括有 Perl for Win32、Perl for ISAPI、PerlScript、Perl Package Manager四套开发工具程序,可以让用户编写出适用于unix,windows,linux系统的CGI程序来。 安装的只是perl的一个解释程序啦,外观上也...
ActivePerl一个可以让你任意执行 Perl 程序的工具软件,其包含了包括有 Perl for Win32、Perl for ISAPI、PerlScript、Perl Package Manager四套开发工具程序,可以让你编写出适用于 unix, windows, linux系统的 CGI...
文档包括Linux系统中用 Perl 实现的有用单行程序, 适合用于无法用简单shell语句完成的命令. 包括文本处理, 系统命令, 字符串处理等. 比如: # 判断一个数是否是质数: perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && ...
文档包括Linux系统中用 Perl 实现的有用单行程序, 适合用于无法用简单shell语句完成的命令. 包括文本处理, 系统命令, 字符串处理等. 比如: # 判断一个数是否是质数: perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && ...