[Terminal] tailでのlog監視時にErrorやWarningの行の色を変えてエラーに気づきやすくする - Qiita#!/usr/bin/perl use strict; use warnings; use utf8; # @see https://perldoc.perl.org/Term/ANSIColor.html use Term::ANSIColor qw(:constants); my %setting = (); my $reset = RESET; my @regexList = (); # check arguments my $isInvalid = (@ARGV == 0) || ($ARGV[0] eq '') || (@ARGV % 2 != 0); if ($isInvalid) { &printErrMsg(); exit 1; } # preparation while (my $regex = shift) { my $color = shift; my $isInva
![[Terminal] tailでのlog監視時にErrorやWarningの行の色を変えてエラーに気づきやすくする - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/7d2d02785ea0d78d20b08aba042037beed943a9b/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZ0eHQ9JTVCVGVybWluYWwlNUQlMjB0YWlsJUUzJTgxJUE3JUUzJTgxJUFFbG9nJUU3JTlCJUEzJUU4JUE2JTk2JUU2JTk5JTgyJUUzJTgxJUFCRXJyb3IlRTMlODIlODRXYXJuaW5nJUUzJTgxJUFFJUU4JUExJThDJUUzJTgxJUFFJUU4JTg5JUIyJUUzJTgyJTkyJUU1JUE0JTg5JUUzJTgxJTg4JUUzJTgxJUE2JUUzJTgyJUE4JUUzJTgzJUE5JUUzJTgzJUJDJUUzJTgxJUFCJUU2JUIwJTk3JUUzJTgxJUE1JUUzJTgxJThEJUUzJTgyJTg0JUUzJTgxJTk5JUUzJTgxJThGJUUzJTgxJTk5JUUzJTgyJThCJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz1mZTc5MDc2YTRiYzJiZGZiMTI4MjZjZGViZGRmYmVjNA%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwbWFzYWhhcnUtc3VpenUmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTVhMjEzNjJjMTY3M2MzN2ZiZjIzNjhkOWJjODQ3MDBj%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D5d089b15c806dc6744a1a3dd60e20c70)
