#! /usr/bin/perl

use Parse;
use Moving;
use File::Copy
my @filelist = ();      # all filenames will go into this global array

my $txt_folder = '/temp/';

&check_folders($txt_folder);

foreach $file (@filelist) {
    print "file is $file\n";
    Parse::parse_file($file);
    Moving::move_file($file);
}
sub check_folders {  #iterate thru directory, this works
   my($dir) = @_;
   local (*FOLDER); # use local for filehandles

   my(@subfiles, $file, $specfile);

    opendir(FOLDER, $dir) or die "cannot open $dir";
    @subfiles = readdir(FOLDER);
    closedir(FOLDER);

   foreach $file (@subfiles) {

      # ignore files beginning with a period
      next if ($file =~ m/^\./);
      #$specfile = $dir . ':' . $file;
      $specfile = $dir . $file;

      if (-d $specfile) {
          print "directory is $specfile\n";
          &check_folders($specfile); # RECURSION
      } elsif (-f $specfile) {
         push(@filelist, $specfile);
         #
         # do your text line stuff here
}#if
   }#for
}#sub

__END__
[download]

package Moving;
use File::Copy;

sub move_file {
    $oldfile = $_[0];
    $newlocation="/data/bst/processed/";
    move($oldfile, $newlocation) or die ("Couldn't move file");
    return $oldfile
}
return 1;
[download]

package Parse;

use File::Copy;
use Cwd;
use Switch;
sub parse_file {

use DBI;
use DBD::mysql;
$dsn = "DBI:mysql:test:localhost";
$dbh = DBI->connect($dsn,"root","",{RaiseError=>1});
$newlocation = "/data/processed/";

$file = $_[0];
print "file is $file\n";

open(INFILE, $file) or die ("Unable to open $file"); 
while ($line = <INFILE> )  {
# parse the file, put stuff in db
}   #end while

print "done parsing\n";
$dbh->disconnect();
close(INFILE);

}  # end function

return 1;
[download]

Since you said the Moving::move_file was never called, so chances are that you have an infinite loop in Parse::parse_file. Try to insert a few print statements to see where it hangs.

Speaking for infinite loops: Once you've got a symbolic link from one directory to a subdirectory you script will loop.

You could circumvent this by checking for symlinks with -l.

And use strict and warnings - really!

---

Perl 6 in German -- Difficult Sudoku

Bingo - that was it - I had put an exit statement in my while loop a long time ago, and it was exiting the Parse.pm script prematurely. Thanks for all the help -

Do you get to the "done parsing" print statement from Parsing.pm? Can you save the return value of parse_file() and print it out so that you can see what it is before starting the move attempt?

And, definitely, use strict and use warnings.