Initial commit.

dirlist.pl

@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+#
+# slow implementation of recursive dir listing
+#
+
+use strict;
+use warnings "all";
+
+sub getfilenames;
+sub help;
+
+help unless defined($ARGV[0]);
+
+my @files = ();
+getfilenames($ARGV[0]);
+my $file = "";
+
+while($file = pop (@files)){
+        print "$file\n";
+}
+
+exit 0;
+
+sub getfilenames {
+    my $path    = shift;
+
+    opendir (DIR, $path) or return "";
+    my @localfiles;
+    @localfiles =
+        map { $path . '/' . $_ }
+        grep { !/^\.{1,2}$/ }
+        readdir (DIR);
+    @files = (@files, @localfiles);
+
+    foreach (@localfiles) {
+            next if(-l $_);
+            if( -d $_){
+                getfilenames($_);
+            }
+    }
+
+}
+
+sub help {
+        print "Usage: $0 dir\n";
+        exit 0;
+}