RE: Printing directory sizes

[Wagner, David --- Senior Programmer Analyst --- CFS]

________________________________

        From: lauri.nikki...@gmail.com [mailto:lauri.nikki...@gmail.com]
On Behalf Of Lauri Nikkinen
        Sent: Tuesday, March 03, 2009 13:00
        To: Chas. Owens
        Cc: Wagner, David --- Senior Programmer Analyst --- CFS; Perl
Beginners
        Subject: Re: Printing directory sizes
        
        
        Thanks Chas!
        
        On windows side this seems to work
        
        C:\>perl -MFile::Find -le "print 'ok'"
        ok
        
        and it seems that File::Find module is installed though ppm
won't locate it (ppm query File::Find). And I don't know why.
        
        On mac's side I followed Chas's orders, but I can't get any
output
        
        ~ > perl -MFile::Find -le 'print "ok"'
        ok
        ~ > cat Print_directory_sizes.pl 
        #!/usr/bin/perl
        
        use warnings;
        use strict;
        use File::Find;
        
        my $dir = defined $ARGV[0] ? $ARGV[0] : '.';
        my $size;
        
        find( sub { -f and ( $size += -s _ ) }, $dir );
        ~ > perl Print_directory_sizes.pl
        ~ > 
        
        or
        
        ~ > perl Print_directory_sizes.pl Documents/
        ~ > 
        
        Do you know why? 
            You are not printing anything in your script. You add to
$size, but you must either do a print or printf depending on what you
want to display the results...
                 If you have any questions and/or problems, please let
me know. 
                 Thanks. 
          
        Wags ;) 
        David R. Wagner 
        Senior Programmer Analyst 
        FedEx Freight 
        1.719.484.2097 TEL 
        1.719.484.2419 FAX 
        1.408.623.5963 Cell 
        http://fedex.com/us 

           
        
        -L
        
        
        2009/3/3 Chas. Owens <chas.ow...@gmail.com>
        

                On Tue, Mar 3, 2009 at 14:47, Lauri Nikkinen
<lauri.nikki...@iki.fi> wrote:
                > I uninstalled ActiveState Perl via Add/Remove Programs
and installed it
                > (ActivePerl 5.10.0 Build 1004) again from here
                >
                > http://www.activestate.com/activeperl/
                >
                > and I got the same answer from ppm query File::Find. I
don't know if it has
                > something to do with the Windows 'cause I'm running
Windows XP via Parallels
                > Desktop (as a virtual computer) on my Macbook Pro. I
haven't had any
                > difficulties with other programs.
                
                snip
                
                File::Find is part of Core Perl.  If it weren't
installed by
                Activestate's Perl installer many people would be up in
arms.  Try
                writing a simple script using it or saying
                
                perl -MFile::Find -le "print 'ok'"
                
                in cmd.exe.
                

                --
                Chas. Owens
                wonkden.net
                The most important skill a programmer can have is the
ability to read.