http://www.perlmonks.org?node_id=1037581

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

Hello Experts, Appreciate your help here. what is the command to flush shmget-key? At times, I see that when I use same used key, it is still pointing to old value. How do I flush it/reinitialize to null value. Thanks, Vijesh 

my $key=int(rand(900))+5;
my $size = 100;
$id = shmget($key, $size, &IPC_CREAT | 0777 );

[download]

Replies are listed 'Best First'.
Re: flushing shm keys
by Khen1950fx (Canon) on Jun 07, 2013 at 07:08 UTC
    To flush the key: 
    #!/usr/bin/perl -l

use strict;
use warnings;
use IPC::SysV qw(IPC_CREAT IPC_RMID);

$| = 1;

my $key  = int( rand(900) ) + 5;
my $size = 100;

my $id = shmget( $key, $size, &IPC_CREAT | 0777 );
print "creating shm key $id";

print "flushing shm key $id";
shmctl( $id, IPC_RMID, 1 );

    [download]
    You can reset to 0 by putting $id = 0; at the EOF.
[reply]
[d/l]
[select]

      Thanks you very much.. this works. Vijesh

[reply]

Back to Seekers of Perl Wisdom