Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Inter-Process Communication

by Nitrox (Chaplain)
on Jul 21, 2002 at 06:18 UTC ( #183790=note: print w/replies, xml ) Need Help??

in reply to Re: Re: Re: Inter-Process Communication
in thread Inter-Process Communication

Thanks for the tip perigeeV I think I found my solution, albeit not as elegant as I had hoped.

I couldn't use the shared memory function because IPC::ShareLite won't compile on Win32 and is required. But Cache::Cache will still compile with it.

So my solution is to use Cache::FileCache. I've include two quick proof of concept scripts to demonstrate:

First run the 'writer':

# Program 1 use Cache::FileCache; my $cache = new Cache::FileCache({ 'namespace' => 'SharedCache', 'defa +ult_expires_in' => 600 } ); my $passed_data = "This is a passed string"; $cache->set( "Data", $passed_data, "10 minutes" );
Then run the 'reader':
#Program 2 use Cache::FileCache; my $cache = new Cache::FileCache( { 'namespace' => 'SharedCache', 'def +ault_expires_in' => 600 } ); my $passed_data = $cache->get("Data"); print "$passed_data\n";
Looks like a winner, and only after about 18hrs of banging my head against the pile of soda cans on my desk!


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://183790]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2023-09-21 22:22 GMT
Find Nodes?
    Voting Booth?

    No recent polls found