For parsing key-value pairs out of log streams. Example: heroku logs --tail | ./kgrep service

kgrep

#!/usr/bin/env perl

#
# Usage: echo "key=value" | kgrep key
#

while($line = <STDIN>) {
  if($line =~ m/($ARGV[0]+=[^\s]*)/) {
    print "$1\n";
  }
}