[rrd-users] More PERL Help Needed

[Schroeder, Dennis]

Another problem...

[begin code sample]
  open (FD, $prog $host public $oid |)" || die;
 *my $val1 = <FD>;
  close (FD);
[end code sample]

I'm getting this error:

  Modification of a read-only value attempted at FILE.PL line 22.

Line 22 is the line with the (*) above.

I'm using this exact same code (I cut and pasted it) in another program with
no problems.  What does this mean?

-----------------------------------------------------------------
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
-----------------------------------------------------------------
   Argue for your limitations and, sure enough, they're yours!
-----------------------------------------------------------------


-----Original Message-----
From: Schroeder, Dennis [mailto:Dennis.Schroeder at sanmina.com]
Sent: Wednesday, September 12, 2001 9:49 AM
To: rrd-users at list.ee.ethz.ch
Subject: [rrd-users] PERL Help Needed


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


--
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