lspath

2000-01-20 13:24:53 +00:00 · 2000-01-20 13:24:53 +00:00 · 8158f1a3b0
parent 66dab29703
commit 8158f1a3b0
1 changed files with 14 additions and 0 deletions
--- a/lspath/lspath
+++ b/lspath/lspath
@ -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);
+    }
+}