подскажите несложный скрипт на bash

файл есессно вот такой 
user1;pwd1
user2;pwd2

форматирование не выбрал.

Как на bash не знаю, если пойдёт на perl-е, то вот:

#!/usr/bin/perl
$upfile="userpass"; #имя файла с содержимым вида юзер;пароль

open (USERS,"$upfile");
@lines=<USERS>;
close USERS;

foreach $line (@lines) {
($user, $pass) = split(/;/, $line);
$user=lc($user);
system ("htpasswd -b /etc/squid/users $user $pass");
}

0;

За 

open (USERS,"$upfile");
@lines=<USERS>;
close USERS; 

стрелять надо.

Вся программа должна выглядеть так:

#!/usr/bin/perl 

while (<>) {
my ($u,$p) = split /;/;
system ("htpasswd -b /etc/squid/users ".lc($u)." $p")
}

так

1) короче
2) потребляет гораздо меньше памяти
3) позволяет стандартным образом редирект ввода/вывода
4) корректно с точки зрения use strict

Укоротим еще :-)

cat user.list | perl -F';' -ane 'system ("htpasswd -b /etc/squid/users ".lc($F[0])." $F[1]")'

>стрелять надо.

Если Вы всех новичков в кодинге перестреляете, кто ж Вам на смену то придёт? :)

За Ваш код и пояснения спасибо - буду знать.

И без perl_a :-)

cat users.list | awk -F';' '{system ("htpasswd -b /etc/squid/users " tolower($1)" " $2)}'

И то правда, если пошел perl -F, то можно уже и на awk переписывать 8)

awk -F\; '{print tolower($1) " "$2}' | xargs -n2 htpasswd -b /etc/squid/users

(посчитав) нет, так на 5 символов длиннее 8(

всем спасибо за помощь :)