18.4 Exercise

See Appendix A, Exercise Answers for the answer.

1. Convert the following shell script into a Perl program:

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