user Rhys <h2>Tutorial</h2> Check out the Net-SNMP Tutorial I wrote and tell me if there's anything hideous in it. It's here: [id://396223] <h2>Latest Perl Conundrum</h2> Some of these are simple, some quite complex. All of them are real problems I'm trying to solve for one reason or another. (Usually, I'm trying to tighten code from N lines to N/5 lines.) <p> So here's the latest one. In many of my applications using SNMP, I have to use the structure below over and over, almost verbatim. The general structure is always the same, but certain parts - that I hope are clearly marked below - change to suit the particular task. Anyway, here goes: <p> <code> $mib = 'someMibObject'; $vb = new SNMP::Varbind([$mib]); LOOP: while ( 1 ) { $var = $sess->getnext($vb); # Get the next instance. if ( $sess->{ErrorNum} ) { # There was an error. Print $sess->{ErrorStr}, then: last LOOP; } if ( $vb->tag ne $mib ) { # This happens when we've read past the end of this # MIB object. last LOOP; } # If we get here, we use $vb->iid or $var or both to do # something useful with the response. } </code> <p> So the conundrum is whether or not there's a shorter way of doing this. Perhaps with <code>$vb->tag eq $mib</code> in the <code>while</code> test, but that creates other issues. <p> Another way of doing this that is successful, but actually duplicates code (though is still a bit more succint and doesn't have the dreaded 'while 1') is like this: <p> <code> $mib = 'someMibObject'; $vb = new SNMP::Varbind([$mib]); # Note the duplicate getnext()'s... LOOP: for ( $var = $sess->getnext($vb) ; ($vb->tag eq $mib) and (not $sess->{ErrorNum}) ; $var = $sess->getnext($vb) ) { # If we get here, we use $vb->iid or $var or both to do # something useful with the response. } if ( $sess->{ErrorNum} ) { # There was an error. Print $sess->{ErrorStr} and/or # croak() or whatever. } </code> <p> Please /msg if you have any ideas. If they're big, post to your scratchpad? I'm mostly looking for style/efficiency opinions and insight, although if you come up with some genius method that eliminates four lines, I'll engrave your PM home node URL into the credits of all scripts that use your method. :-) <p> <h2>General Stuff About Rhys</h2> Net admin, net security guy, sys admin, Perl hacker, jack of all trades. Perl hacker means 'Perl hacker'. I usually try to just figure it out rather than look it up. <P> Fortunately, that's just the code, not the algorithm. Design once, code five or six times is the idea. :-) </P> <P> I'm a <A HREF="http://www.linux.org">Linux</A> fan, a <A HREF="http://www.usanetwork.com/series/thedeadzone/">Dead Zone</A> fan, and hope <A HREF="http://www.microsoft.com">these guys</A> and <A HREF="http://www.aol.com">these other guys</A> are out of business by 2010. </P> <P> Oh, yeah. I highly recommend <A HREF="http://www.islamic-knowledge.com/">this</A> to anybody still looking, although you can't put too much faith in a Web site on the topic. Like anything else, there's a lot of (ahem) discussion on most of the more interesting topics. All I can say is there's way too much arguing. </P> <P> And it's often worth watching <A HREF="http://www.ugcs.caltech.edu/st-tng/">these</A>, if only because every now and then, you learn something about yourself. </P> <P> By the way, I'm boycotting any store that already has freakin' Christmas decorations up. (Posted 11/3/2003.) That includes <A HREF="http://www.target.com">Target</A> and <A HREF="http://www.jcpenney.com">JC Penney</A>. Starting early is how the accountants boost their 'Christmas Sales' figures. It's all crap, so I'm not playing. <p> <h2>Picture Explanation</h2> <p> This <i>fat</i> cat is Josephine ('Jo the Cat'). We don't really know much about Jo, except that she's a typical, sorta-neurotic, very opinionated female cat. I picked her up in the [http://iccm.missouri.org|mosque] parking lot one day last January and have been taking care of her ever since. <p> Jo likes fighting with Snowplow (picture pending), waking everyone up at 4:00am, and generally forcing her way onto my lap. Laptops, books, food, etc. are not obstacles. I'm convinced she has created and fixed several Perl bugs with her keyboard dancing. <p> The picture above is Jo in full catness: napping in the warm spot on the carpet on a cold Missouri March afternoon. What's amazing is that she wasn't in the laundry basket off to the bottom right... <p> <h2>Nodes I Think Are Handy</h2> <p> Hundreds of monks have 'handy nodes' sections! This is one of them! <p> [id://391416]<br> [id://392124]<br> [id://389028]<br> [id://392350]<br> [borg's belly] (point and stare)<br> [id://236827]<br> [id://8874]<br> [id://386413]<br> 2010-12-28 12:07:39 765 388824 392208 72 Columbia, MO America/Chicago