|
Модераторы: ginnie, korob2001 |
|
tooncheg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 20.5.2013 Репутация: нет Всего: нет |
#!/usr/bin/perl -w
open (PASSWD, '~./passwd.mig5') or die $!; my @users; while (<PASSWD>) { chomp; next if /^\s*#/; # ignore comments my @f = split /:/, $_; my %hash; @hash{'username','password','uid','gid','gecos','home','shell'} = @f; push @users, \%hash; } foreach my $user (@users) { print crypt ("test8", "\$6\$");//так он его создает но не могу передать его в вызываемую программу system("useradd -m -s $user->{shell} -p ????????? $user->{username}"); } Задача перенести из файла passwd пользователей и дать им пароли, которые имеются в отдельном файлике в не зашифрованном виде. но проблема возникла, надо в useradd пароль передавать в уже зашифрованном виде. не получается и я не понимаю что ему нужно. Не могу передать его в вызываемую программу |
|||
|
||||
tzirechnoy |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 1173 Регистрация: 30.1.2009 Репутация: 0 Всего: 16 |
Я не понял, в каком месте Вы споткнулись (в чём в настоящий момент у Вас проблема), но лучшэ используйте какой-нибудь ужэ существующий chpasswd.
|
|||
|
||||
alezzz |
|
|||
сплю... Профиль Группа: Участник Сообщений: 499 Регистрация: 17.8.2009 Репутация: нет Всего: 14 |
А зачем crypt выводите print-ом? Сохраняйте в переменную и передавайте в system вместо знаков вопроса.
|
|||
|
||||
tooncheg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 20.5.2013 Репутация: нет Всего: нет |
perl давно не открывал. в общем я записал в переменную результат crypt в цикл foreach и не срабатывало ничего. вынес из цикла и все заработало.
|
|||
|
||||
tzirechnoy |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 1173 Регистрация: 30.1.2009 Репутация: 0 Всего: 16 |
"Полный крах всех надежд, шесть букв, вторая "и"
|
|||
|
||||
Правила форума "Perl: Системное программирование" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Системное программирование | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |