By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
438,835 Members | 2,305 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 438,835 IT Pros & Developers. It's quick & easy.

Find::File error: Invalid Top Directory

P: 53
hi, I have the following error on a win server:
"Invalid Top Directory perl/lib/file/find.pm line 598

Here's the code and I'll explain what I found until now:
Expand|Select|Wrap|Line Numbers
  1. #!/usr/bin/perl
  2. #
  3. use strict;
  4. use warnings;
  5. use File::Find;
  6. use MSDOS::Attrib qw(get_attribs set_attribs);
  7.  
  8. (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst)=localtime(time);
  9. $year = $year + 1900;           # $year 0 = real year 1900
  10. $mon = $mon + 1;                # $month 0 = January
  11.  
  12. open(LOG, ">>./atd_files_$year-$mon-$mday\.txt")  or die "Can't open LOG: $!";
  13. print LOG ("\n*****************************************      NEW LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";;
  14. printf LOG " Script started at:\n %4d-%02d-%02d %02d:%02d:%02d\n\n", $year,$mon,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";
  15.  
  16. my $homedir = "E:/test_dir";
  17. opendir (IMD, $homedir) or die "Couldn't find dir: IMD ($!)";
  18. my @thefiles= readdir(IMD);
  19. closedir(IMD);
  20.  
  21. my @dirs;
  22. my $x=0;
  23. my $n = 0;
  24.  
  25. foreach my $f (@thefiles){
  26.         if (-d $f && $f !~ /^\.+/){
  27.                 print "$f\n";
  28.                 $dirs[$x]=$f;
  29.                 $x++;
  30.         }
  31. }
  32.  
  33. #print "@dirs\n";
  34. find(\&wanted,  @dirs);
  35.  
  36. sub wanted {
  37.         if (/Project\.atd/){
  38.                 my $attrib = get_attribs($File::Find::name);    
  39.                 if ( $attrib =~ /.H.+/){            
  40.                         $n++;
  41.                         print "$File::Find::name\n";
  42.                 }
  43.         }
  44. }
  45.  
  46. print ("\n\nTotal: $n files\n");
  47.  
  48. print ("\a");
  49. ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
  50. printf LOG "\n\n Script ended at:\n %4d-%02d-%02d %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";
  51. print LOG ("\n*****************************************      END LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";
So, the problem is the $homedir

If I put "c:/blabla/blibli" as homedir, everything's ok.

I tested the same script on a 2000pro with "c:/balbla" and "d:/blabla" everything's ok.

But as soon as I put "E:/blabla" on the server, I got the error. Tested with different directories on E:, everytime I got an error. Not on C: or D:
anyone got an idea? (is it a bad thing to edit with Windows Notepad?? I usually use Jext)

Additional info:
I also got the error with
C:/ ; C:/ADMIN but not with C:/ADMIN/Analyst_Projectatd_RightsHidden

I'm totally lost now!!
Nov 16 '09 #1
Share this Question
Share on Google+
11 Replies


P: 53
Another edit:
on my local machine, where everything was working, it didn't worked with
$homedir = "c:/" or eany other dir

But it works with $homedir = "c:"

Ok, well, I found another error in my script..
$homedir is not working at all.. except if $homedir = the directory where the script is located, then the script functions.

I also noticed a problem with Attrib..
When I do a print $attrib after the getattrib, it displays nothing :s
Nov 16 '09 #2

P: 53
Another edit:
But it works with $homedir = "c:" (well, it doesn't work properly but it doesn't give an error)

I made a check: 15 target files, non hidden, all in log. Changed 1 to hidden.
The log still lists 15 files.

Could be two reasons:
- attrib function is not working properly
- the hidden attribute "H" is not in the second place as I saw on a site. But print $attrib should at least return something in stead of nothing..

I'm completely lost now.. Just a beginner, so maybe I use Find::File and MSDOS::Atrib wrong?? If you need more info, don't hesitate!
Nov 16 '09 #3

P: 53
Update: (sorry about all those updates, but I continue searching)

about attrib..: attrib is working properly
it should be this:
Expand|Select|Wrap|Line Numbers
  1. my $myfile = "$homedir/$File::Find::name";
  2. my $attrib = get_attribs($myfile);
so, the only question left is the File::Find error (as stated in the subject ^^ )
Nov 16 '09 #4

Expert Mod 100+
P: 589
Your posts are all over the map with what is or isn't working and no detail on what changes you made to the script between those posts.

There are a number of problems with your script, but we'll start out with the"Invalid Top Directory" error.

Which var is it working on when you receive this error and exactly what is the value of that var?

Have you checked that the value it's referring to is actually a directory and that you have proper permissions to access that directory?
Nov 16 '09 #5

P: 53
(If I could edit my posts after an hour, there wouldn't be 4 posts ^^)

So, every change I made has been detailed (changes of the $homedir var and changes of the Attrib part). I don't see what I forgot?

The value I'm working on for $homedir is actually a directory (not a mapped drive) and permissions have been set. I posted what worked and what not, and the reason I think why (may be completely wrong). What I understood so far is that the script is only working if the script is in the same directory as $homedir.

I never worked with File::Find before and it's a quite complete module and I just tried to understand what i needed to.

If you need any other info, shoot. I'm glad that someone who has the knowledge can show me the way.
Nov 17 '09 #6

Expert Mod 100+
P: 589
Lets start at the beginning and clean up the script.

Add this to the list of modules to load.
Expand|Select|Wrap|Line Numbers
  1. use POSIX qw(strftime);
Change this:
Expand|Select|Wrap|Line Numbers
  1. (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst)=localtime(time);
  2. $year = $year + 1900;           # $year 0 = real year 1900
  3. $mon = $mon + 1;                # $month 0 = January
  4.  
  5. open(LOG, ">>./atd_files_$year-$mon-$mday\.txt")  or die "Can't open LOG: $!";
  6. print LOG ("\n*****************************************      NEW LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";;
  7. printf LOG " Script started at:\n %4d-%02d-%02d %02d:%02d:%02d\n\n", $year,$mon,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";
  8.  
To this:
Expand|Select|Wrap|Line Numbers
  1. my $logfile = strftime("atd_files_%Y-%m-%d.txt", localtime);
  2. open my $LOG, '>>', $logfile or die "Can't open <$logfile> $!";
  3.  
  4. print $LOG "\n", '*' x 25, '      NEW LAUNCH      ', '*' x 25, "\n";
Get rid of this unnecessary and inefficient code (which is the source of your problem).
Expand|Select|Wrap|Line Numbers
  1. opendir (IMD, $homedir) or die "Couldn't find dir: IMD ($!)";
  2. my @thefiles= readdir(IMD);
  3. closedir(IMD);
  4.  
  5. my @dirs;
  6. my $x=0;
  7. my $n = 0;
  8.  
  9. foreach my $f (@thefiles){
  10.         if (-d $f && $f !~ /^\.+/){
  11.                 print "$f\n";
  12.                 $dirs[$x]=$f;
  13.                 $x++;
  14.         }
  15. }
And change your call to the find function to this:
Expand|Select|Wrap|Line Numbers
  1. find(\&wanted,  $homedir);
Change this:
Expand|Select|Wrap|Line Numbers
  1. ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
  2. printf LOG "\n\n Script ended at:\n %4d-%02d-%02d %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";
  3. print LOG ("\n*****************************************      END LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";
To this:
Expand|Select|Wrap|Line Numbers
  1. print $LOG strftime("\n\n Script ended at:\n %Y-%m-%d %H:%M:%S\n", localtime),
  2.            "\n", '*' x 25, '      END LAUNCH      ', '*' x 25, "\n";
Nov 17 '09 #7

P: 53
Well, all I have to say is .. thank you very much!!!!

It works great and the script is 2x smaller.
And POSIX strftime is easier to work with than the other one.

And I also learned new things about logging and the print command!
Thanks again!!! This is what I call a great answer to a problem ^^
Nov 18 '09 #8

Expert Mod 100+
P: 589
@ezechiel
You're welcome.

The wanted sub could be cleaned up a little, but it's not too bad, so I left it alone.

But if you're interested, here's the cleaned up version.
Expand|Select|Wrap|Line Numbers
  1. sub wanted {
  2.     return unless /Project\.atd/;
  3.  
  4.     my $hidden = substr(get_attribs($File::Find::name), 1, 1);    
  5.  
  6.     if( $hidden eq 'H' ) {
  7.         $n++;
  8.         print "$File::Find::name\n";
  9.     }
  10. }
Nov 18 '09 #9

P: 53
ok, thanks for the info. I'll check out the substr() function.

About this one:
Expand|Select|Wrap|Line Numbers
  1. open my $LOG, '>>', $logfile or die "Can't open <$logfile> $!";
Don't I need to close the log at the end? I suppose it is like this?:
Expand|Select|Wrap|Line Numbers
  1. close $LOG;
Nov 19 '09 #10

Expert Mod 100+
P: 589
Filehandles that use a lexical var instead of a bareword will automatically close when they go out of scope. However, it is best practice to explicitly close them when they are no longer needed.
Nov 19 '09 #11

P: 53
ok,
thanks for all this precious info Ron ;)
It helped me a lot!
Nov 20 '09 #12

Post your reply

Sign in to post your reply or Sign up for a free account.