Removed lspath (automatically generated from lspath.pl)
This commit is contained in:
parent
2bd035374f
commit
4cc50060b2
|
@ -1,14 +0,0 @@
|
||||||
#!/usr/bin/perl -w
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
|
|
||||||
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 "";
|
|
||||||
|
|
||||||
system("/bin/ls", "-ld", $pp);
|
|
||||||
}
|
|
||||||
}
|
|
Loading…
Reference in New Issue