UNIX for Advanced & Expert Users

#!/bin/ksh
#
# Everything output between "(" and ")" is piped to sort later
(
# Remove suffix from each filename in each file
cat file1|while read FILENAME
do
        basename "${FILENAME}" ".p"
done
cat file2|while read FILENAME
do
        basename "${FILENAME}" ".r"
done
# Eliminate prefixes which appear in both files
) | sort | uniq -u | while read F
do
        # Reverse lookup the original filename
        grep \^"${F}\." file1
        grep \^"${F}\." file2
done