Глава 18: Преобразование других программ в Perl-программы
18.4 Упражнение

cat /etc/passwd I
awk -F: '(print $1, $6)' |
while read user home
  do
  newsrc="$home/.nevsrc"
  if [ -r $newsrc ] then
    if grep -s "'соmp\.lang\.perl\.announce:' $newsrc then
      echo -n "$user is a good person, ";
      echo "and reads comp.lang.perl.announce!"
    fi
  fi
done