[英]Perl - script to automatically add username and password to the Linux system
再會! 我只是想幫助解決一個問題。 我在 CentOS Linux 命令行中創建了 Students.txt 列表,如下所示:
said:123456
taha:456789
我創建了 perl 文件,其中有一個腳本:
#!/usr/bin/perl
$filename = 'students.txt';
open(FILE, $filename);
while(<FILE>)
{
chomp;
($user, $passcode) = split(/:/, $_);
system "useradd $user -m -p $passcode";
}
close FILE;
print "Users are created successfully :) \n";
運行 perl 文件后,它會添加用戶名而不是密碼。 我也是 Perl 的新手。 先感謝您。
#!/usr/bin/perl
$filename = 'students.txt';
open(FILE, $filename) or die $!;
while($line = <FILE>) {
chomp $line;
($user, $passcode) = split(/:/, $line);
system "useradd $user -m";
}
close FILE;
system "chpasswd < students.txt";
print "Users are created successfully :) \n";
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.