hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lspath

This commit is contained in:
hjp 2000-01-20 13:24:53 +00:00
parent 66dab29703
commit 8158f1a3b0
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lspath/lspath Executable file
View File

@ -0,0 +1,14 @@
#!/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);
}
}