in reply to Re: Re: Re: Re: Stumped with File::Find and -s
in thread Stumped with File::Find and -s

Suggestion: Modify the find in the following way. This will cause the names and sizes of the files found to be printed to STDERR. If you run your script locally from the command line and redirect STDOUT to a file or the null device, then you will see exactly what files are being found and sized. 

find(sub { print STDERR $_, -s, $/; $total_size = -s }, $upload_dir );

[download]

If you have to run this remotely, the output should become part of your webserver log file. Take a look and see what files are being found, that should help you isolate the problem.

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: Stumped with File::Find and -s
by bsexton1qBob Sexton (Novice) on Nov 24, 2002 at 17:54 UTC
    Hello, I ran as you said. The values listed below. 
    .4096 BandWPainting1.htm441 BandWPainting2.htm441 ColorPainting1.htm43
+9 ColorPainting2.htm439

    [download]
    The 441+441+439+439 = 1760, which is what I am looking for. The 4096 + 1760 = 5856. is the erroneous value I reported. Is the '.' mean it is reading the hidden area?
[reply]
[d/l]

      . represents the current directory. The size of the directory is usually a fixed amount, on your system its 4096 bytes. To fix your problem, substitute this line. 

      find(sub { $total_size += -s if -f }, $upload_dir );

      [download]

      Please also read perlfunc:_X.

      Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
      Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
      Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
      Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

[reply]
[d/l]
        Success, thank you. Also I read the Perlfunc: X, thanks. Any suggestions on a good NEWBIE book, for Perl?
[reply]

In Section Seekers of Perl Wisdom