Select Code to Download

#!/usr/bin/perl 
# sharetest - test shared variables across forks
...
        $handle->shunlock();
    }
}

- Segmentos da memória compartilhada -
chave      shmid      proprietário perms      bytes      nattch     st
+atus      
...
0x00000000 983059     jackal     600        393216     2          dest
+         
0x00000000 1015828    jackal     600        393216     2          dest
+         
0x00000000 1212437    jackal     666        65536      1

$buffer{test}  = "inoangrnglkdtghnlkhnl";
$buffer{test1} = [ 'one', 'two' ];
$buffer{test2} = [ 'one', 'two' ];
$buffer{test3} = [ 'one', 'two' ];
$buffer{test4} = [ 'one', 'two' ];

- Segmentos da memória compartilhada -
chave      shmid      proprietário perms      bytes      nattch     st
+atus      
...
0x00000000 1540120    jackal     666        65536      0              
+         
0x00000000 1572889    jackal     666        65536      0              
+         
0x00000000 1605658    jackal     666        65536      0