A=$(FILE=/var/log/myfile.log; cat $FILE | perl -p -e 's/.*,([A-Z]+)[\:\+].*/$1/g' | sort -u | while read LINE; do grep "$LINE" $FILE | wc -l | perl -p -e 's/[^0-9]+//g'; echo -e "\t$LINE"; done;);echo "$A"|sort -nr
SELECT COUNT(x), x FROM y GROUP BY x ORDER BY count DESC;$A=$( FILE=/var/log/myfile.log cat $FILE | perl -p -e 's/.*,([A-Z]+)[\:\+].*/$1/g' | sort -u | while read LINE; dogrep "$LINE" $FILE |wc -l | perl -p -e 's/[^0-9]+//g';echo -e "\t$LINE";done;);echo "$A" |sort -nr