Need help Win#2 Directory Walk and testing for file access

[Gallagher, Tim F \(NE\)]

I need to move 3TB of data to a new SAN.  I have to make sure that I
have the correct tights to move the data so I want to test my data
before the move.  I want to walk the data and see if I have access to
all the files.  I am not sure how to test the files to see if I have
access or not.  I don't need to know what access I need to know if
anyone took my group out.  I can still stat a file but how can I test
for write access without writing to a file.  Here is what I have

 

use File::DirWalk;

my $dw = new File::DirWalk;

$dw-onFile(sub {

my ($file) = @_;

if(length($file)  1)

{

print  #!!!### -- Paused File =
$file\n;

$pause = STDIN;

}



print $file . \n;

return File::DirWalk::SUCCESS;

});

 

my($walkPath) = @ARGV;

chomp($walkPath);

$dw-walk($walkPath);

 

I used a length comparison to see if files that I don't have access too
returns a length.  Any Ideas?

 

Thanks

 

-T

 

 

Re: Need help Win#2 Directory Walk and testing for file access

[D. Bolliger]

Gallagher, Tim F (NE) am Dienstag, 12. September 2006 20:39:
 I need to move 3TB of data to a new SAN.  I have to make sure that I
 have the correct tights to move the data so I want to test my data
 before the move.  I want to walk the data and see if I have access to
 all the files.  I am not sure how to test the files to see if I have
 access or not.  I don't need to know what access I need to know if
 anyone took my group out.  I can still stat a file but how can I test
 for write access without writing to a file.  Here is what I have

 use File::DirWalk;
 my $dw = new File::DirWalk;
 $dw-onFile(sub {
 my ($file) = @_;
 if(length($file)  1)

I don't work on windows anymore, but what about 

  if (-r $file) # is file readable?

See perldoc -f -X

(I don't quite understand why you should have to test for *write* access of 
files to copy ?!? If you have to: Try the -w test)


 {
 print  #!!!### -- Paused File =
 $file\n;
 $pause = STDIN;
 }
 print $file . \n;
 return File::DirWalk::SUCCESS;
 });

 my($walkPath) = @ARGV;
 chomp($walkPath);
 $dw-walk($walkPath);

 I used a length comparison to see if files that I don't have access too
 returns a length.  Any Ideas?

Hope this helps

Dani

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response