#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadPassword; #隐藏密码
=pod
注册用户
passwd file ./switch 是存放用户名密码的数据文件
数据文件的格式:用户名 密码
=cut
print "\n\nWelcome to Jackm's word\n\n";
my (%user_info,$passwd,$re_passwd);
open(WL,'>>','./switch'); #写入新的用户和密码的信息
sub check_info
{
注册新用户(perl)
最新推荐文章于 2021-05-07 01:50:26 发布