azuma, kuniyuki azumakuniyuki

## colorsyslog.pl
#!/usr/bin/perl
# xtetsuji 2015/11/05

use v5.10;
use strict;
use warnings;

use Term::ANSIColor;

my $syslog_re = qr/^(?<date>\w\w\w [ \d]\d) (?<time>\d\d:\d\d:\d\d) (?<host>\S+) (?<process>\S+): (?<message>.*)/;
	#!/usr/bin/perl
	# xtetsuji 2015/11/05

	use v5.10;
	use strict;
	use warnings;

	use Term::ANSIColor;

	my $syslog_re = qr/^(?<date>\w\w\w [ \d]\d) (?<time>\d\d:\d\d:\d\d) (?<host>\S+) (?<process>\S+): (?<message>.*)/;