#!/usr/bin/perl -w
use Math::Combinatorics qw(permute);
#引入排列模块
if (@ARGV == 0){
die "错误:No parameter!Enter \"?\" for help.\n";
}
#若无参数,提示错误并退出
if (@ARGV == 1){
if ($ARGV[0] eq '?'){
&help;
}else{die "Error:At least 2 parameter!\n"}
}
#若只有一个参数,判断是否为“?”。若是则调用help函数,否则提示错误并退出
my @parameter_array = @ARGV;
die "Error:Missing \"-o\" parameter!\n" unless(grep(/^-o$/,@parameter_array));
#若参数中没有“-o”,提示错误并退出
my @words_array;
my @numbers_array;
my $filename;
while(@parameter_array){
#处理每一个参数
my $parameter = shift @parameter_array;
if($parameter eq '-w'){
my $para = shift @parameter_array;
&checkword($para);
push @words_array,$para;
#将“-w”后的字符串加入数组@words_array中
}elsif($parameter eq '-d'){
my $para = shift @parameter_array;
&checknum($para);
push
perl社工密码字典生成器
最新推荐文章于 2024-05-15 00:14:43 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)