27 lines
367 B
Perl
Executable File
27 lines
367 B
Perl
Executable File
#!@@@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);
|