This works:
my $obj = $finder->obj(folder => '/Users/pudge/Movies'); my $size = $finder->data_size($obj);
Chris, what is the data_size?
The correct size of the folder is (from Finder info) 8.6MB on disk (4,001,454 bytes)
rickm% perl -e 'use Mac::Glue; $finder=new Mac::Glue "Finder"; print $finder->data_size( $finder->obj( folder => $ARGV[0] ) )' /path/to/folder
442
rickm% perl -e 'use Mac::Glue; $finder=new Mac::Glue "Finder"; $obj=$finder->obj( folder => $ARGV[0] ); print $obj->prop("physical_size")->get' /path/to/folder
9088512
Which is 8.667MB, the size I'm looking for.
Cheers! Rick
Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
