переписать с perl на bash

[Krjd]

Доброго времени суток
переделывая чужой скрипт на bash под себя, наткнулся на строчку с perl
perl я к сожалению не знаю и изучать не планировал
кто-нибудь может помочь переписать строчку на bash (если возможно и это не слишком громоздко) или хотя бы точно описать что именно делает эта строчка

Код: [Выделить]

for user in "${USERS[@]}"; do
    homedir=$(cat /etc/passwd | perl -ne "if(/^(\S+):.*:.*:.*:.*:(.+):.*/ && \\$1 eq "$user"){print \\$2;}")
    ...
done
я понимаю что она примерно должна делать - вытаскивать путь до папки юзера, но поскольку я плохо знаком со структурой /etc/passwd хотелось бы использовать уже кем-то отлаженный код, что бы избежать возможных ошибок

Пользователь решил продолжить мысль [time]18 Январь 2015, 20:06:46[/time]:и еще вот эту

Код: [Выделить]

list=$(cat $homedir/.backup-list | perl -ne "print \"'${homedir:1}/\"; chomp; print; print \"' \";")если возможно...

[Azure]

Как на меня корявый perl-скрипт… (он работает и в bash). Присваивает переменной homedir  домашнюю директорию соответствующего пользователя user (берется циклом из массива USERS), которую находит поиском по файлу /etc/passwd

Код: (bash) [Выделить]

for user in "${USERS[@]}"; do
    homedir=$(sed -nr "/^$user/s/([^:]*:){5}([^:]+):.*/\2/p" /etc/passwd)
    ...
doneНу что Вы как маленький… Посмотрите echo $list или выполните cat $homedir/.backup-list | perl -ne "print \"'${homedir:1}/\"; chomp; print; print \"' \";"и всё станет ясно. И покажите что в $homedir/.backup-list

[whatdoyouneed]

perl - read-only язык 

Домашний каталог вытаскивает

Код: [Выделить]

cat /etc/passwd  | cut -d: -f6

[Krjd]

Azure,

Ну что Вы как маленький… Посмотрите echo $list или выполните cat $homedir/.backup-list | perl -ne "print \"'${homedir:1}/\"; chomp; print; print \"' \";"и всё станет ясно. И покажите что в $homedir/.backup-list

это понятно, но я не могу просто так взять и придумать все возможные ситуации, которые, я надеюсь, обрабатывает эта команда
суть моего вопроса не в том, что получится на выходе, а какие ситуации предусмотрены в этой строке

perl - read-only язык 

Домашний каталог вытаскивает

Код: [Выделить]

cat /etc/passwd  | cut -d: -f6

т.е. путь всегда должен быть в 6 поле?

[whatdoyouneed]

)))
Да

[Krjd]

Andrey.,
хм, тогда...зачем тут кто-то запихал perl?..
странно, ну ладно, спасибо

[Azure]

Andrey.,
Если быть до конца точным, то cut -d: -f6 /etc/passwd выводит $HOME-пути для всех пользователей системы, а нам нужен один — для конкретного пользователя.
D101101,
Да какие "ситуации"? Это просто обработка текста. А боитесь — оставьте как есть, перловые скрипты под bash прекрасно работают.
Пользователь решил продолжить мысль 18 Января 2015, 20:52:46:Что касается 2-го скрипта то, по-моему, он просто "раскладывает" в строчку содержимое $homedir/.backup-list отделяя элементы «;» и дописывая путь $homedir вначале. Точнее — только опытным путём. На вкус и цвет… мне удобнее tr а кому-то perl…

[Krjd]

Andrey.,
Если быть до конца точным, то cut -d: -f6 /etc/passwd выводит $HOME-пути для всех пользователей системы, а нам нужен один — для конкретного пользователя.

Код: [Выделить]

cat /etc/passwd  | grep ^"$user": | cut -d: -f6
думаю так должно быть нормально

на счет второго, в .backup-list список файлов или папок относительно домашней директории, по одному файлу или папке на строку
в итоге в list попадает

Код: [Выделить]

'home/sergey/.builds/' 'home/sergey/.config/' 'home/sergey/.dosbox/' 'home/sergey/Документы/' 'home/sergey/Изображения/' 'home/sergey/.backup-list'

[Azure]

Код: (bash) [Выделить]

sed "s|.*|\'${homedir#\/}&\'|" "$homedir/.backup-list" | tr '\n' ' 'И тогда уже если sed-скрипт не понравился

Код: (bash) [Выделить]

grep "^${user}:" /etc/passwd | cut -d: -f6

[Krjd]

Azure,
спасибо