perl社工密码字典生成器

#!/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