diff options
Diffstat (limited to 'sample/fullpath.pl')
-rw-r--r-- | sample/fullpath.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/sample/fullpath.pl b/sample/fullpath.pl deleted file mode 100644 index a07b90edd4..0000000000 --- a/sample/fullpath.pl +++ /dev/null @@ -1,22 +0,0 @@ -#! /usr/local/bin/perl -# convert ls-lR filename into fullpath. - -$path = shift; -if (!defined $path) { - $path = ""; -} -elsif ($path !~ /\/$/) { - $path .= "/" -} - -while (<>) { - if (/:$/) { - chop; chop; - $path = $_ . "/"; - } elsif (/^total/ || /^d/) { - next; - } elsif (/^(.*\d )(.+)$/) { - print $1, $path, $2, "\n"; - } -} - |