removed KISS directory

[biopieces.git] / code_perl / Maasha / Filesys.pm

diff --git a/code_perl/Maasha/Filesys.pm b/code_perl/Maasha/Filesys.pm
index 481cefd55abcf146d02dab17f04a8aba0b202b26..7b959c9681b3f61758738cd4152a5003dff3b9c7 100644 (file)
--- a/code_perl/Maasha/Filesys.pm
+++ b/code_perl/Maasha/Filesys.pm
@@ -391,6 +391,33 @@ sub ls_dirs
 }
 
 
+sub ls_dirs_base
+{
+    # Martin A. Hansen, November 2009.
+
+    # Returns all directory basenames execpt . and ..
+    # from a given directory.
+
+    my ( $path,
+       ) = @_;
+
+    # Returns a list.
+
+    my ( @dirs, $dir, @list );
+
+    @dirs = Maasha::Filesys::ls_dirs( $path );
+
+    foreach $dir ( @dirs )
+    {
+        next if $dir =~ /\/\.\.?$/;
+
+        push @list, ( split "/", $dir )[ -1 ];
+    }
+
+    return wantarray ? @list : \@list;
+}
+
+
 sub ls_files
 {
     # Martin A. Hansen, June 2007.