Erlang record coupling analyzer

analyzer.sh

#!/bin/bash

ERLS=`find src apps -name '*.erl' 2>/dev/null`
HRLS=`find include -name '*.hrl' 2>/dev/null`
records=

for hrl in $HRLS; do
    records+=$(grep -e '-record(' $hrl | perl -pe 's=-record\(([^,]+).*=\1=')
done

for record in $records; do
    echo -n "#${record} | "
    for erl in $ERLS; do
        cnt=$(grep -E "^[^%]*#'?${record}'?" $erl | wc -l)
        [[ $cnt != 0 ]] && echo -n "${erl},${cnt} "
    done
    echo
done