IPC::ShareLite - getting a shares size

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

IPC::ShareLite documentation states that you can get a share's segment size:

my $size = $share->size;
[download]

but $share->size always returns 0.

Example:

use strict;
use warnings;

use IPC::ShareLite;

use Storable qw( freeze thaw );
my $share;

eval {
    $share = IPC::ShareLite->new(
        -key     => 4812,
        -create  => 'yes',
        -destroy => 'no',
        -mode    => 0600,
    );
};

if ($@) {
    warn "Woops: $@";
    exit;
}

# Let's use some memory
my @array = 0 .. 1500000;
$share->store( freeze( \@array ) );

my $size = $share->size;

print "Size: $size\n";

my $num_segments = $share->num_segments;

print "Segments: $num_segments\n";
[download]

which yields:

Size: 0
Segments: 207

Any hints are very appreciated.

Comment on IPC::ShareLite - getting a shares size Select or Download Code

Replies are listed 'Best First'.
Re: IPC::ShareLite - getting a shares size by zentara (Archbishop) on May 17, 2012 at 20:16 UTC
I'm not sure you are interpreting size correctly. It is not the total size of all the memory used, but the segment size you desire. You need to set the segment size in the constructor. You were leaving it as zero by default. #!/usr/bin/perl use strict; use warnings; use IPC::ShareLite; use Storable qw( freeze thaw ); # dosn't show segment size correctly without size set. my $share; eval { $share = IPC::ShareLite->new( -key => 4812, -create => 'yes', -destroy => 'no', -mode => 0600, -size => 5000 ); }; if ($@) { warn "Woops: $@"; exit; } # Let's use some memory my @array = (0 .. 1500000); $share->store( freeze( \@array ) ); my $size = $share->size; print "Size: $size\n"; my $num_segments = $share->num_segments; print "Segments: $num_segments\n"; my $usage = $share->size * $share->num_segments; print "Usage: $usage\n"; [download] OUTPUT: `$ ./971163.pl Size: 5000 Segments: 207 Usage: 1035000` [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l] [select]
Re^2: IPC::ShareLite - getting a shares size by tomfahle (Priest) on May 17, 2012 at 20:56 UTC
Thank you. You made my day.	[reply]


Perl-Sensitive Sunglasses
	PerlMonks