n $discard
for ( my $i = 0; $i < $stat[7]; $i++ ) {
my $r = sysread( $T, $discard, 1 );
if ( $r != 1 ) {
close $T;
return 0;
}
}
close $T;
return 1;
}
and I cut the meta data checking part in the previous post.
Thanks
Frank
On Sun, Dec 11, 2011 at 12:39 AM, Peter Scott wrote:
> On Sat, 10 De
hi,
I'm reading the book of "automating system administration with perl" and
having doubts about this code snippets about file health check.
# attempt to read the directory entry for this file
my @stat = stat($name);
if ( !$stat[4] && !$stat[5] && !$stat[6] && !$stat[7] && !$stat[8] ) {
return 0;
i believe most group policy deployments doesn't allow personal created files
on root directory of system disk.
On Tue, Oct 18, 2011 at 5:16 PM, Natxo Asenjo wrote:
> On Oct 18, 2011 3:07 PM, "Remy Guo" wrote:
> >
> > hi all,
> > I have a Perl script in Windows but my system administrator doesn't
