Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (15 sloc) 276 Bytes
#!/usr/bin/perl
use strict;
my $i = 0;
for(split(/:/, $ENV{LS_COLORS})) {
my($ft,$color) = $_ =~ /\*\.(.+)=(.+)/;
if(!@ARGV) {
printf("\e[$color%s %10s\e[m\n", 'm', $ft);
$i++;
}
else {
open(my $fh, '>', "ls_color.$ft");
close($fh);
}
}
print "\n";