Perl RSS Perl RSS

Perl SNMP Help

Reply

•
•
Join Date: Mar 2008
Posts: 63
Reputation: lAmoebal is an unknown quantity at this point 
Solved Threads: 1
lAmoebal lAmoebal is offline Offline
Junior Poster in Training

Perl SNMP Help

 
0
  #1
Mar 7th, 2008
Hi guys, I'm writing a simple script that uses snmpget statements to check the errors received by ports on a router and have the results going to a file. I've never worked with Perl before but one of my coworkers had a really basic script that I've been trying to rework into something better suited to this and I have a few questions regarding it.

1. Is there a way to make the IP addresses and OID's dynamic? Could I do an snmpwalk or something similar until it didn't find an OID? The reason I'm asking is because we're going to need to put this script on many client's machines and want little to no configuration required.

2. As of now, if the snmpget command times out trying to reach a router, you have to wait ~10 seconds before it tries the next OID it's given. Is there a way to check if the host is available before? Or if the IP isn't available, read back in the output from the console window somehow and have a simple if/else statement to skip that router?


I think that's it for now. Here's a copy of the code that I have so far. Like I said, I've never worked with Perl, but it's what he had a simple script written in and I tried to port it to C++ but had LOTS of problems with snmp libraries and could never get them to link correctly. Any help would be appreciated.

perl Syntax (Toggle Plain Text) 
  1. #!perl -w
  2. use strict;
  3.  
  4. open LOG, ">>C:/log.txt";
  5. my $now = localtime time;
  6. print LOG "----------------------------------\n";
  7. print LOG "$now\n----------------------------------\n";
  8. my $SNMP_Get_Cmd = "snmpget -v1 -c wdpfRO -Ovq";
  9. my $IP_Target;
  10. my $SNMP_OID = ".1.3.6.1.2.1.2.2.1.14.";
  11. my $Switch_Port = 0;
  12. my $row = 0;
  13. my $col = 0;
  14. my $noRows = 3;   # Number of Rows
  15. my $noCols = 25;  # Number of Columns
  16. my $temp;
  17. my @Error_Count = ( #IP ADDRESS, PORT: 1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24 
  18.                   ["192.168.3.1",     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"],
  19.                   ["192.168.3.2",     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"],
  20.                   ["192.168.3.17",    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"]
  21.                   );
  22.  
  23.   # Retrieve Data From Switches
  24.    for($row = 0; $row<$noRows; $row++)
  25.    {
  26.       $IP_Target = $Error_Count[$row][0];
  27.       $temp = 'ping_check';
  28.       chomp($temp);
  29.       unless($temp=1)
  30. 	{$row++;}
  31.  
  32.  
  33.       #If (output = "Timeout: No Response from " IP ".");
  34.       #$row++;
  35.  
  36.       for($col = 1; $col<$noCols; $col++)
  37.       {  # The column is the port number
  38.          $temp = `${SNMP_Get_Cmd} ${IP_Target} ${SNMP_OID}${col}`;
  39.          chomp($temp);
  40.          $Error_Count[$row][$col] = $temp;
  41.       }
  42.    } 
  43.  
  44.  
  45.    # Print A Table of all errors
  46.       print LOG "\n\t\t${Error_Count[0][0]}\t${Error_Count[1][0]}\t${Error_Count[2][0]}\n";
  47.  
  48.       for($col = 1; $col<$noCols; $col++)
  49.       {
  50.          print LOG "Port ${col}: \t${Error_Count[0][$col]}\t\t${Error_Count[1][$col]}\t\t${Error_Count[2][$col]}\n";
  51.       }
  52. print LOG "____________________________________________________________________\n\n\n";
  53. close LOG;
Last edited by lAmoebal; Mar 7th, 2008 at 2:07 pm.
Reply With Quote Quick reply to this message  
•
•
Join Date: Mar 2008
Posts: 63
Reputation: lAmoebal is an unknown quantity at this point 
Solved Threads: 1
lAmoebal lAmoebal is offline Offline
Junior Poster in Training

Re: Perl SNMP Help

 
0
  #2
Mar 7th, 2008
Also, this needs to be usable in both Windows and Solaris. I'm not familiar with Solaris, but would the open file command and such work with it?

Can you append to the beginning of a file too? Since this is going to be a diagnostic tool run like once a week, it would be better to have the newest dates at the top rather then the oldest.
Last edited by lAmoebal; Mar 7th, 2008 at 3:17 pm.
Reply With Quote Quick reply to this message  
•
•
Join Date: Mar 2006
Posts: 898
Reputation: KevinADC has a spectacular aura about KevinADC has a spectacular aura about 
Solved Threads: 67
KevinADC's Avatar
KevinADC KevinADC is offline Offline
Practically a Posting Shark

Re: Perl SNMP Help

 
0
  #3
Mar 7th, 2008
There are a lot of SNMP modules already written that you should probably take a look at:

http://search.cpan.org/search?query=snmp&mode=all
Reply With Quote Quick reply to this message  
•
•
Join Date: Mar 2008
Posts: 63
Reputation: lAmoebal is an unknown quantity at this point 
Solved Threads: 1
lAmoebal lAmoebal is offline Offline
Junior Poster in Training

Re: Perl SNMP Help

 
0
  #4
Mar 7th, 2008
I already downloaded a module that allows me to use the snmp functions, but it's just a matter of implementing them correctly that I have questions about. Unless you linked something completely different and I just missed the point. ><
Reply With Quote Quick reply to this message  
•
•
Join Date: Mar 2006
Posts: 898
Reputation: KevinADC has a spectacular aura about KevinADC has a spectacular aura about 
Solved Threads: 67
KevinADC's Avatar
KevinADC KevinADC is offline Offline
Practically a Posting Shark

Re: Perl SNMP Help

 
0
  #5
Mar 7th, 2008
OK, but the code you posted is not loading any modules so I thought you were trying to do it all by hand. As far as Windows/Solaris goes the open() command works on both. You can prepend to a file but it is much easier to append to a file. To prepend you can use perls inplace editor or open a new file and add the new data, then open the old file and add the old file data to the new file, then delete the old file and rename the new file to the old file.
Reply With Quote Quick reply to this message  
•
•
Join Date: Mar 2008
Posts: 63
Reputation: lAmoebal is an unknown quantity at this point 
Solved Threads: 1
lAmoebal lAmoebal is offline Offline
Junior Poster in Training

Re: Perl SNMP Help

 
0
  #6
Mar 10th, 2008
I see what you mean about the modules now. What I had downloaded before was Net SNMP but not the module for perl so I now am running that and am starting to get general grasp on the code. I reworked it a little but I have one question.

perl Syntax (Toggle Plain Text) 
  1. #!perl -w
  2. use strict;
  3. use Net::SNMP;
  4. use POSIX qw(strftime);
  5.  
  6.  
  7. my $now = localtime time;
  8. my $filename = (strftime "%Y%m%d", localtime(time)) . ".txt";     #yyyymmdd.txt 
  9. open  LOG, ">>/SNMP Script Logs/$filename";                       #C:/SNMP Script Logs/Date.txt
  10. print LOG "----------------------------------\n";
  11. print LOG "$now\n----------------------------------\n";
  12.  
  13.  
  14. my $OIDbase = '1.3.6.1.2.1.2.2.1.14.';
  15. my $OID;
  16. my $row = 0;
  17. my $col = 0;
  18. my $noRows = 3;   # Number of Rows
  19. my $noCols = 25;  # Number of Columns
  20. my $result;
  21. my @Error_Count = ( #IP ADDRESS, PORT: 1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23  24 
  22.                   ["192.168.3.1",     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"],
  23.                   ["192.168.3.2",     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"],
  24.                   ["192.168.3.17",    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0","0", "0", "0", "0", "0", "0", "0", "0", "0"]
  25.                   );
  26.  
  27.  
  28.  
  29.   # Retrieve Data From Switches
  30.    for($row = 0; $row<$noRows; $row++)
  31.    {
  32. 	my ($session, $error) = Net::SNMP->session
  33. 	(
  34.     	  -hostname  => shift || $Error_Count[$row][0],
  35.      	  -timeout   => shift || 5, 
  36.     	  -version   => shift || 1
  37. 	);
  38.  
  39. 	if (!defined($session))
  40.    	{
  41.     	  printf("ERROR: %s.\n", $error);
  42. 	  print LOG "ERROR: \n", $session->error, "\n";
  43.    	}
  44.  
  45.  
  46.       for($col = 1; $col<$noCols; $col++)
  47.       {  # The column is the port number
  48.  
  49. 	$OID = ${OIDbase} . ${col};
  50.    	$result = $session->get_request(-varbindlist      => [$OID]);
  51.  
  52. 	   if (!defined($result))                             
  53. 	   {
  54.      	     printf("ERROR: %s.\n", $session->error);
  55. 	     print LOG "ERROR: \n", $session->error, "\n";
  56.      	     $session->close;
  57.              last;                                             #break out of loop
  58.   	   }
  59.  
  60.          $Error_Count[$row][$col] = $result;
  61.  
  62.       }
  63. 	$session->close;
  64.    } 
  65.  
  66.  
  67.    # Print A Table of all errors
  68.       print LOG "\n\t\t${Error_Count[0][0]}\t${Error_Count[1][0]}\t${Error_Count[2][0]}\n";
  69.  
  70.       for($col = 1; $col<$noCols; $col++)
  71.       {
  72.          print LOG "Port ${col}: \t${Error_Count[0][$col]}\t\t${Error_Count[1][$col]}\t\t${Error_Count[2][$col]}\n";
  73.       }
  74.  
  75. print LOG "____________________________________________________________________\n\n\n";
  76. close LOG;
  77. exit 0;

How would I pull the IP Address from a router config file? I don't know the general layout of the files, but I will, I'm just asking now for a basic code to match a line in a file. For example, if the line starts with 'IP:'. Then how would I pull the information following the :? Can you do pattern matching in perl?

After reading on a website how to check if a line contains a word, I found

perl Syntax (Toggle Plain Text) 
  1.    # Set the file path and name.
  2. my $data_file = '/var/www/cgi-bin/mydata/data.txt';
  3.  
  4.    # Open the file for reading.
  5. open DATA, "$data_file" or die "can't open $data_file $!";
  6. my @array_of_data = <DATA>;
  7. close (DATA);
  8.  
  9.  
  10. # start foreach loop, and assign each line,
  11. # one at a time to the variable $line.
  12. foreach my $line (@array_of_data)
  13. {
  14.    # Start an if statement, the condition of which is
  15.         # "If this particular line contains the word dangerous."
  16.      if ($line =~ m/dangerous/i;)
  17.         {
  18.         # If the line contains "dangerous" then print the line out.
  19.         print "This line contains the word dangerous: $line\n";
  20.         } # End the if condition here.
  21. } # End the foreach loop here.

In this example, how would I get the text following the word dangerous, since I would now know which line it lies on.
Last edited by lAmoebal; Mar 10th, 2008 at 3:31 pm.
Reply With Quote Quick reply to this message  
Reply

Quick Reply to Thread
This thread is more than three months old.
Perhaps start a new thread instead?
•
•
•
•
•
•
•
•
Message:
•
•
•
•



Similar Threads
Other Threads in the Perl Forum
Thread Tools Search this Thread



access array asp cgi checkbox hash html http multiplewindows parse parsing perl perlsystemwindows perltk post script search split string table text text-file
About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC