getting file size

[oinky]

I am having some trouble getting the file size operator to work right. I have something like:
--------------------------------------
$myfolder = "c:/test";
opendir(DIR, $myfolder) or die "cant open $myfolder $!";
while (defined ($filename = readdir(DIR)))
{
$sum = -s $filename;
print "sum: $sum file: $filename\n";
}

---------------------------------------
It gets the file names correctly, however, it seems that
it cannot return the size of the file. I was pretty sure that "-s $filename" would work, but it returns nothing.
If any1 have an idea whats going on here please help. Thanks.

 

[tsdragon]

Since you didn't actually change to the directory you are reading, the -s is looking for $filename in the CURRENT directory, not the one you are reading. Try this:

$sum = -s $myfolder.'/'.$filename;

What are you indicating by calling the variable $sum? If you want to accumulate the total size, you need += instead of just =, but then you wouldn't want to display it for each file.

ALSO - you should have some code in there to omit the . and .. directory entries. Something like this:

   next if $filename =~ /^\.{1,2}$/;

OR
   next if $filename eq '.';
   next if $filename eq '..';

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[oinky]

cool that worked. Thanks a lot. 8)