Thank You Daniel, Tiago, Todd and Luis. I got what I need!
-----------------------------------------------------------------
Dennis Schroeder || ||
Network Engineer || ||
SANMINA Global Network Services |||| ||||
Phone: 602-824-8431 ..:||||||:..:||||||:..
Mobile: 602-432-3258 Cisco Certified
Email: [EMAIL PROTECTED] Network Associate
-----------------------------------------------------------------
A company is known by the people it keeps.
-----------------------------------------------------------------
-----Original Message-----
From: Todd Caine [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 12, 2001 9:59 AM
To: Schroeder, Dennis
Cc: [email protected]
Subject: Re: [rrd-users] PERL Help Needed
# You could use a regular expression
# Below is a case insensitive match for "cisco" within $val
if ($val =~ m/cisco/i) {
print "Cisco was found in the string.\n";
} else {
print "Cisco was not found in the string.\n";
}
"Schroeder, Dennis" wrote:
> 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: [EMAIL PROTECTED] Network Associate
> -----------------------------------------------------------------
> To lead a symphony, you must occasionally
> turn your back on the crowd.
> -----------------------------------------------------------------
>
> --
> Unsubscribe mailto:[EMAIL PROTECTED]
> Help mailto:[EMAIL PROTECTED]
> Archive http://www.ee.ethz.ch/~slist/rrd-users
> WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
--
Unsubscribe mailto:[EMAIL PROTECTED]
Help mailto:[EMAIL PROTECTED]
Archive http://www.ee.ethz.ch/~slist/rrd-users
WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
