in reply to Re^6: His strangeness regex
in thread His strangeness regex

$prefixSnmpWalk will match snmpwalk: No response arrived before timeout., just like it did in my program.

Replies are listed 'Best First'.
Re^8: His strangeness regex
by o_chfa (Acolyte) on Sep 04, 2009 at 11:50 UTC

    fine. I expexted this to. But it didn't match. It matched only in the version:

    s/$prefixSysDescr|$prefixSnmpWalk// && do { $OutputLine = $_; last; };

    And that is the strangeness I'm speaking of

      fine. I expexted this to. But it didn't match. It matched only in the version: .... And that is the strangeness I'm speaking of

      Unproven. Please prove it, like this

      # some declarations in the beginnings my $TAB = "\t"; my $SPACE = " "; my $oidNbrSysDescr = ".1.3.6.1.2.1.1.1"; my $prefixSysDescr = quotemeta 'system.sysDescr.0 : DISPLAY S +TRING- (ascii): '; my $prefixSnmpWalk = 'snmpwalk:\s*'; # no use ?? my $sysDescr = q~ snmpwalk: No response arrived before timeout. ~; for ( $sysDescr ) { /$prefixSysDescr/ && do { s/$prefixSysDescr/$hostName$TAB/; $OutputLine = $_; last; }; # substitute some prefixes (this one works) # /snmpwalk:\s*/ /$prefixSnmpWalk/ && do { s/snmpwalk:\s*/$hostName$TAB/; $OutputLine = $_; last; }; # error messages starting with "snmpwalk: " # here is the problem. All of a sudden I coudln't # use $prefixSnmpWalk anymore. Even quotemeta # failed $OutputLine = $OutputLine . $SPACE . $_; } # process output die "$OutputLine "; __END__ No response arrived before timeout. at - line 36.