User Tools

Site Tools


perl:ansi_color

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
perl:ansi_color [2009/08/13 09:57]
tkbletsc Page moved from ansi_color to perl:ansi_color
perl:ansi_color [2009/09/04 09:20] (current)
tkbletsc
Line 30: Line 30:
  );  );
  my $r = join(';',​map {$colors{$_}} split(/​\W+/,​$c));​  my $r = join(';',​map {$colors{$_}} split(/​\W+/,​$c));​
- return $r ? "​\e[${r}m"​ : '';​+ return ​length($r? "​\e[${r}m"​ : '';​
 } }
 </​code>​ </​code>​
perl/ansi_color.txt ยท Last modified: 2009/09/04 09:20 by tkbletsc