[rrd-users] PERL Help Needed

[Schroeder, Dennis]

I am working on a program that will check for Cisco devices on our network
(using SNMP).  I can poll a device and get a result like:

  Cisco Systems WS-C5505
  Cisco Catalyst Operating System Software, Version 5.1(1)
  Copyright (c) 1995-1999 by Cisco Systems

using this small command set:

  open (FD, "$prog $host public $oid1 |") || die;
  my $val = <FD>;
  close (FD);

How do I then check $val for the existance of "Cisco" anywhere in the
output?

Thanks!

-----------------------------------------------------------------
Dennis Schroeder                                ||        ||
Network Engineer                                ||        ||
SANMINA Global Network Services                ||||      ||||
Phone:  602-824-8431                       ..:||||||:..:||||||:..
Mobile: 602-432-3258                          Cisco  Certified
Email:  dennis.schroeder at sanmina.com         Network  Associate
-----------------------------------------------------------------
            To lead a symphony, you must occasionally
                   turn your back on the crowd.
-----------------------------------------------------------------


--
Unsubscribe mailto:rrd-users-request at list.ee.ethz.ch?subject=unsubscribe
Help        mailto:rrd-users-request at list.ee.ethz.ch?subject=help
Archive     http://www.ee.ethz.ch/~slist/rrd-users
WebAdmin    http://www.ee.ethz.ch/~slist/lsg2.cgi