Есть файлик такого содержимого
user1 pass1
user2 pass2
.....
около 100 юзеров.
Нужно выполнить следующие команды:
ejabberdctl register user1 hostname pass1
ejabberdctl register user2 hostname pass2
и.т.д
Пробую сделать так:
#!/usr/bin/perl
$hostname = myhostname;
open(f,"userpass");
while (<f>) {
$user = system ("echo $_ | awk {print $1}");
$pass = system ("echo $_ | awk {print $2}");
system ("ejabberdctl register $user $hostname $pass");
}
close(f);
Но так не работает. Подскажите как можно переделать скрипт на Перле или на баше?