#!/usr/bin/perl

# sls - Super ls - Prints out the 
# Made by: Ranok
# Email: discipleofranok@gmail.com

use strict;

my $dir = @ARGV[0];

if(!$dir) {
    print "Usage: sls.perl [-la] <dir>\n\tPrints out the ls [-la] information and appends the pwd in front\n";
    exit();
}
my $flags = '';
if($dir =~ /^-/) {
    $flags = $dir;
    $dir = @ARGV[1];
}

my $pwd = `cd $dir && pwd`;
chomp($pwd);
my $ls = `cd $dir && ls $flags`;
if($flags eq '') {
    if($pwd eq '/') {
	$ls =~ s/^/$pwd/gim;
    } else {
	$ls =~ s/^/$pwd\//gim;
    }
} else {
    if($pwd eq '/') {
	$ls =~ s/[0-9]{2}:[0-9]{2}/$1$pwd/gim;
	$ls =~ s/$pwd /$pwd/gim;
    } else {
	$ls =~ s/[0-9]{2}:[0-9]{2}/$1$pwd\//gim;
	$ls =~ s/$pwd\/ /$pwd\//gim;
    }
}
print $ls;