Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Global vars not accessable globaly

by theroninwins (Friar)
on Sep 20, 2004 at 09:38 UTC ( #392313=note: print w/replies, xml ) Need Help??


in reply to Global vars not accessable globaly

ok here is a short form:
#open ipfile open IPFILE, "ipfile2.txt" or die "Can't get IPs - $!\n"; open NAMES, "namefile2.txt" or die "Can't get IPs - $!\n"; open ERASER, ">finallist.txt"; close ERASER; + #Sets knots und community my $community = 'public'; my $ifSer = '.1.3.6.1.2.1.47.1.1.1.1.11'; my $ifPart = '.1.3.6.1.2.1.47.1.1.1.1.13'; while ( $ip = <IPFILE>, $name = <NAMES> ) { my @final1; chomp $ip; chomp $name; $name =~ s/\.bc\.de\.bic$//; print "Got: $ip\n"; + #open session my ( $s, $e ) = Net::SNMP->session( -hostname => $ip, -community => $community, -port => 161 ); if (!defined($s)) { print ("Falsch nix is!"); } -------------------------------------------------------
Ok here it gets interesting:
my @args = ( -varbindlist => [$ifSer] ); my @args2 = ( -varbindlist => [$ifPart] ); if ($s->version == SNMP_VERSION_1) { while (defined($s->get_next_request(@args))) { $_ = (keys(%{$s->var_bind_list}))[0]; if (!oid_base_match($ifSer, $_)) { last; } $response=($s->var_bind_list->{$_}); @final1 = $response; @args = (-varbindlist => [$_]); } while (defined($s->get_next_request(@args2))) { $_ = (keys(%{$s->var_bind_list}))[0]; if (!oid_base_match($ifPart, $_)) { last; } $response2 = ($s->var_bind_list->{$_}); @final2 = $response2; @args2 = (-varbindlist => [$_]); } } -------------------------------------------------------
Here is the print that must work at the end:
#@final2 = grep { $_ ne "" } $response2; open OUTPUT, ">>finallist.txt"; for my $i (0 .. $#final1) { print "$ip;$name;$final1[$i];$final2[ +$i]\n" } close OUTPUT; print $ip;print $name; # Let the user know about any errors #if ($s->error() ne '') { # _exit($s->error()); #} # Close the session #$s->close(); } exit 0;
And the result should be :
ip1;name1;serial1;part1 ip1;name1;serial2;part2 ip2;name2;serial1;part1 ........
the ip and the name is already ok I only need the serial (final1) and the part (final2) thing to work

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2022-01-20 02:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (56 votes). Check out past polls.

    Notices?