Colored ls with separators.

coloredls.pl

#!/usr/bin/perl -w
use strict;


# Dear world,
#
# this is what your code will look like when you're too tired to
# actually write code. So, remember, kids: Sleep early, sleep often. :-)
#
# Happy hacking.


# Use this in a pipe. Like:
#
#	ls -Fla --block-size="'1" --color=always --group-directories-first \
#		-q "$@" | coloredls.pl

my $line;
my $cols = int(`tput cols`);

my $COL_BOLD = `tput bold`;
my $COL_RESET = `tput sgr0`;
my $COL_BLACK = `tput setaf 0`;
my $COL_RED = `tput setaf 1`;
my $COL_GREEN = `tput setaf 2`;
my $COL_BROWN = `tput setaf 3`;
my $COL_BLUE = `tput setaf 4`;
my $COL_MAGENTA = `tput setaf 5`;
my $COL_CYAN = `tput setaf 6`;
my $COL_WHITE = `tput setaf 7`;

my $COL_LINE;
if (int(`tput colors`) >= 256)
{
	$COL_LINE = `tput setaf 235`
}
else
{
	$COL_LINE = `tput setaf 0; tput bold`
}

my $total = <>;
chomp($total);
my $firstNonDir = -1;

while (<>)
{
	my $type = substr($_, 0, 1);
	my @toks;
	if ($type eq "c" || $type eq "b")
	{
		$_ =~ m/^(.)(...)(...)(...)( +[^ ]+)( +[^ ]+)( +[^ ]+)( +[^,]+, +[^ ]+)( +[^ ]+ +[^ ]+ +[^ ]+)(.*)/;
		@toks = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);
	}
	else
	{
		$_ =~ m/^(.)(...)(...)(...)( +[^ ]+)( +[^ ]+)( +[^ ]+)( +[^ ]+)( +[^ ]+ +[^ ]+ +[^ ]+)(.*)/;
		@toks = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);
	}

	if ($toks[0] ne "d" && $firstNonDir < 0)
	{
		$firstNonDir = $.;
		print $COL_LINE . "─"x$cols . $COL_RESET . "\n";
	}

	if ($. == 4 && $. != $firstNonDir)
	{
		print $COL_LINE . "─"x$cols . $COL_RESET . "\n";
	}

	$toks[0] =~ s/[^-]/$COL_BLUE$&$COL_RESET/g;
	$toks[1] =~ s/[^-]/$COL_BROWN$&$COL_RESET/g;
	$toks[2] =~ s/[^-]/$COL_CYAN$&$COL_RESET/g;
	$toks[3] =~ s/[^-]/$COL_GREEN$&$COL_RESET/g;

	for (my $i = 0; $i <= 3; $i++)
	{
		$toks[$i] =~ s/-/$COL_LINE-$COL_RESET/g;
	}

	print
	$toks[0] .
	$toks[1] .
	$toks[2] .
	$toks[3] .
	$COL_RED . $toks[4] .
	$COL_BOLD . $COL_BROWN . $toks[5] . $COL_RESET .
	$COL_BROWN . $toks[6] .
	$COL_BOLD . $COL_GREEN . $toks[7] . $COL_RESET .
	$COL_BLUE . $toks[8] . $COL_RESET .
	$COL_LINE . " │" . $COL_RESET .
	$toks[9] . $COL_RESET . "\n";
}

print $COL_LINE . "─"x$cols . $COL_RESET . "\n";
print $COL_BOLD . $COL_BLACK . $total . $COL_RESET . "\n";