Help for this page

Select Code to Download

Select or download this

    $dataToConnectId   = tie %dataToConnect  ,'MLDBM::Sync', '.shared1
+', O_CREAT|O_RDWR, 0640;
    $dataFromConnectId = tie %dataFromConnect,'MLDBM::Sync', '.shared2
+', O_CREAT|O_RDWR, 0640;

Select or download this

sub getDataFromConnect
{
...
   $dataFromConnectId->UnLock();
   print "entrou 4\n";
}