SQLログをカラー表示

gistfile1.pl

#!/bin/perl
#$str = $_;
#$str =~ s/\[SQL\]/\033\[1;36m$&\033\[0m/g;
#$str =~ s/INSERT.+\n/\033\[1;32m$&\033\[0m/g;
#$str =~ s/SELECT.+\n/\033\[1;33m$&\033\[0m/g;
#print $str;

use strict;
use warnings;
while(<>) {
  s/\[SQL\]/\033\[1;36m$&\033\[0m/g;
  s/INSERT.+\n/\033\[1;32m$&\033\[0m/g;
  s/UPDATE.+\n/\033\[1;34m$&\033\[0m/g;
  s/SELECT.+\n/\033\[1;33m$&\033\[0m/g;
  s/DELETE.+\n/\033\[1;33m$&\033\[0m/g;
  print;
}