Написал простенький скрипт, с помощью которого портирую всех юзеров в адресную книгу Outlook. Как можно єто все автоматизировать?? хелп!
#cat mail_user.pl
Код: Выделить всё
#!/usr/bin/perl
print "Name;E-mail Address\n";
open(PASS, "</etc/passwd") || die "File not found";
while(<PASS>)
{
($login, $namber, $pass, $uid, $name, $home_dir, $shell) = split(':');
print "$name\;$login\@mydomain\n";
}
close(PASS);
