#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
# Creation Date: Tue Feb 13 02:05:45 PST 2007
# Last Modified: Tue Feb 13 02:05:45 PST 2007
# Filename:      /project/mazurka/website/info/dyn/dynbeat100/extractcleanlist
# Syntax:        perl 5
#
# Description:
#

use strict;

my $basedir = $ARGV[0];


my @pids = getPidList($basedir);


print "@pids";


###########################################################################


##############################
##
## getPidList --
##

sub getPidList {
   my ($basedir) = @_;
   opendir (BDIR, $basedir) or die "Cannot find directory $basedir";

   my $file;
   my @output;

   while ($file = readdir(BDIR)) {
      next if $file =~ /^\./;
      next if $file !~ /^pid/;
      next if !-d "$basedir/$file";
      $output[@output] = $file;
   }

   closedir BDIR;

   return @output;

}