A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Kill old $Id$ command dating from CVS
[simgrid.git]
/
tools
/
tesh
/
colorize.pl
1
#!/usr/bin/perl -w
2
use Term::ANSIColor qw{:constants};
3
$Term::ANSIColor::AUTORESET = 1;
4
5
while(<>){
6
if($_ =~ m/^(\d+\:\s)?[-]\s.*/){
7
print BOLD RED $_;
8
}elsif ($_ =~ m/^(\d+\:\s)?[+]\s.*/){
9
print BOLD GREEN $_;
10
}else{
11
print BOLD $_;
12
}
13
}
14
15