Re^3: initial walkthrough

Please see threads::shared on how to share information between two threads. Usually a newly created copy of a process (fork) or a newly created copy of the Perl interpreter (threads) do not share data structures by default.

Perl would not complain while accessing shared data (neither warn you) - but you usually do not want to read information that is in the process of being manipulated by another thread at the same time. So, you need to synchronise access to this data (more details via link above). Is there a requirement, that the SNMP thread clears the information before starting another round? Otherwise, I do not understand the stale argument, since each information belonging to a certain IP is valid until updated? You might want to mark updated values with a flag or a time-stamp, but I would consider this too complicated. Why not simply let the SNMP thread use a callback to update the GUI whenever a network entry has been updated?

Sorry, I don't understand your sub. A HoH-entry is set to something seemingly constant unless this entry does not already exists. So the only information conveyed here between the threads is the existance of a newly found IP? Maybe you can describe a little bit more what is updated (sum of RX/TX values per IP?) and how it must be treated to produce a proper GUI update?

Comment on Re^3: initial walkthrough

Replies are listed 'Best First'.
Re^4: initial walkthrough by vortmax (Acolyte) on Oct 09, 2008 at 21:27 UTC
I actually figured out the sub. All that it does is check list of active IP's pulled in from SNMP against the hash and adds the new ones. I still need to add the part to strip out the old ones. anyway, the working code is: `sub loadIPs { my $datahashref = shift; my $parmhashref = shift; my $IPs = '1.3.6.1.2.1.10.127.1.3.3.1.3'; my ($session, $error) = Net::SNMP->session(%$parmhashref); my $reply = $session->get_table(-baseoid=> $IPs); my %reply = %$reply; while ( my ($oid, $ip) = each(%reply) ) { my %tmpHash = ('rx'=>undef, 'tx'=>undef); $$datahashref{$ip} = %tmpHash unless exists $$datahashref{$ip}; } }` [download] it was the $$ reference I wasn't grasping. When I mentioned stale data, I didn't mean it as a bad thing; just a word to differentiate it from the new stuff, and I want the script to just update the hash on the fly. No clearing out the whole thing and starting fresh. I was actually hoping to keep the GUI refresh rate higher then the time it takes to query all the modems. On a large plant, the query process can take a full minute or two, and I'd like to be able to watch the changes trickle in. I'll have to read up on the threads::shared mod thanks	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: initial walkthrough
by vortmax (Acolyte) on Oct 09, 2008 at 21:27 UTC

sub loadIPs {

  my $datahashref = shift;
  my $parmhashref = shift;
  my $IPs   = '1.3.6.1.2.1.10.127.1.3.3.1.3';

my ($session, $error) = Net::SNMP->session(%$parmhashref);

my $reply = $session->get_table(-baseoid=> $IPs);
my %reply =  %$reply;

while ( my ($oid, $ip) = each(%reply) ) {

  my %tmpHash = ('rx'=>undef, 'tx'=>undef);
  $$datahashref{$ip} = %tmpHash unless exists $$datahashref{$ip};

    }
}
[download]

[reply]
[d/l]