Leprechaun's Perl Edition:
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 my $package = shift;
5 my @res = `pacman -Ss $package`;
6 foreach(@res){
7 if (/^(\S+?)\/(\S+)\s+(.+)$/){
8 print "\033[1;31m $1\033[0;37m/\033[1;36m$2\033[0;37m\033[1;34m $3\033[0;37m\n" if $1 eq "core";
9 print "\033[1;32m $1\033[0;37m/\033[1;36m$2\033[0;37m\033[1;34m $3\033[0;37m\n" if $1 eq "extra";
10 print "\033[1;35m $1\033[0;37m/\033[1;36m$2\033[0;37m\033[1;34m $3\033[0;37m\n" if $1 eq "community";
11 }
12 }Bash Edition:
1 #!/bin/bash
2 echo -e "$(pacman -Ss $@ | sed \
3 -e 's#\(core/\)\(.*\)#\\033[31m\1\\033[0;37m\\033[36m\2\\033[0;37m#g' \
4 -e 's#\(extra/\)\(.*\)#\\033[32m\1\\033[0;37m\\033[36m\2\\033[0;37m#g' \
5 -e 's#\(community/\)\(.*\)#\\033[35m\1\\033[0;37m\\033[36m\2\\033[0;37m#g' \
6 -e 's#^.*/.* [0-9].*#\\033[0;36m&\\033[0;37m#g' )"