simple/lspath/lspath.pl

#!@@@perl@@@
use warnings;
use strict;

use Getopt::Long;

my $suffix = "";

GetOptions(
    "suffix:s" => \$suffix,
);


my @pp;
for my $p (@ARGV) {

    my @p = split (/\//, $p);
    for (my $i = 0; $i < scalar(@p); $i++) {
	my $pp = join("/", @p[0..$i]);
	$pp = "/" if $pp eq "";
        $pp .= $suffix;

	push (@pp, $pp);
    }
}
system("/bin/ls", "-fldi", @pp);