#!/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]
\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;