D******n 发帖数: 2836 | 1 If you don't have perl installed, this won't help you.
#!/usr/bin/perl -w
$0=~/.*\/(.*)/;
use Term::ANSIColor;
die "\nUsage: $1 \n\n" if @ARGV!=1;
my @content = `cat $ARGV[0]`;
for (@content)
{
if ($_=~/NOTE:/)
{ print color 'bold blue';}
elsif ($_=~/WARNING:/)
{ print color 'bold yellow';}
elsif ($_=~/ERROR/)
{ print color 'bold red';}
print $_;
print color 'reset';
} |
k*****u 发帖数: 1688 | |
s*r 发帖数: 2757 | |
s*r 发帖数: 2757 | 4 似乎还depends on cygwin
如果log file所在的目录有空格的话,cgywin的msg会跳出来
dos window下没看到彩色,只有这样的字,不知道是哪里没设好
←[0m←[1;34mNOTE: DATA statement used (Total process time):
←[0m real time 0.61 seconds
←[0m cpu time 0.58 seconds |
D******n 发帖数: 2836 | 5 1。文件名或者目录名有空格在unix里面是highly unrecommended. 因为会引起很多混
乱。
2.dos下面可能不work。
【在 s*r 的大作中提到】 : 似乎还depends on cygwin : 如果log file所在的目录有空格的话,cgywin的msg会跳出来 : dos window下没看到彩色,只有这样的字,不知道是哪里没设好 : ←[0m←[1;34mNOTE: DATA statement used (Total process time): : ←[0m real time 0.61 seconds : ←[0m cpu time 0.58 seconds
|
s*r 发帖数: 2757 | 6 o. 我是在xp下运行这些的
【在 D******n 的大作中提到】 : 1。文件名或者目录名有空格在unix里面是highly unrecommended. 因为会引起很多混 : 乱。 : 2.dos下面可能不work。
|
D******n 发帖数: 2836 | 7 刚在cygwin下试了,work啊。
纯windows就不知道了。
【在 s*r 的大作中提到】 : o. 我是在xp下运行这些的
|
l******t 发帖数: 2243 | 8 thanks
发信人: DaShagen (Unbearable lightness), 信区: Statistics
标 题: PERL code to view SAS log in color in UNIX
发信站: BBS 未名空间站 (Sat Jan 22 13:26:18 2011, 美东)
If you don't have perl installed, this won't help you.
#!/usr/bin/perl -w
$0=~/.*\/(.*)/;
use Term::ANSIColor;
die "\nUsage: $1 \n\n" if @ARGV!=1;
my @content = `cat $ARGV[0]`;
for (@content)
{
if ($_=~/NOTE:/)
{ print color 'bold blue';}
elsif ($_=~/WARNING:/)
{ print color 'bold yellow';}
elsif ($_=~/ERROR/)
{ print color 'bold red';}
print $_;
print color 'reset';
}
【在 D******n 的大作中提到】 : 刚在cygwin下试了,work啊。 : 纯windows就不知道了。
|
b*****e 发帖数: 223 | |