Re^3: Invalid top directory at C:/Perl/lib/File/Find.pm line 598

It was my understanding that line 154 gets all files within the input directory. I got this from http://perl.about.com/od/filesystem/qt/perlglob.htm . Initially, I was writing this script on W7 and the line didn't include quotations, then I switched to an XP machine and had to include the quotations for it to work.

I changed the line as you suggested, but the program enters an infinite loop.

After some debugging, testing both lines:

my @files = <"$inputDir"*>

and

my @files = glob "$inputDir*";

only output the topic directory path, whereas

my @files = <*>

and

my @files = glob "*";

actually output the files within the present working directory.

Comment on Re^3: Invalid top directory at C:/Perl/lib/File/Find.pm line 598 Select or Download Code

Replies are listed 'Best First'.
Re^4: Invalid top directory at C:/Perl/lib/File/Find.pm line 598 by Anonymous Monk on Sep 20, 2011 at 19:21 UTC
Maybe it's easier to change `#find(\&processTimestamp, @directories_to_search);#$inputDir);` to: `find(\&processTimestamp, ($inputDir) );` and delete the whole @directories_to_search initialisation.	[reply] [d/l] [select]
Re^5: Invalid top directory at C:/Perl/lib/File/Find.pm line 598 by JHermida (Initiate) on Sep 21, 2011 at 16:44 UTC
Yes, it is a lot easier to do that but it results in the script entering an infinite loop. Has anyone tried running the script on their machine?	[reply]