Re: flushing shm keys

[Khen1950fx]

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 );

You can reset to 0 by putting $id = 0; at the EOF.

[vijesh]

Thanks you very much.. this works. Vijesh