OK here I'm again with regex and matching - but it's so strange I regarded suitable to open a new thread. To make it short: pattern matching works with variable and some lines down - all of a sudden - not. Even quotemeta doesn't mitigate the problem. Here comes a part of the code:
# 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 ?? ... foreach $hostName (@serverList) { # snmpwalk as filehandle #---------------------------------- $FH_SNMPWALK = new FileHandle "$SNMPWALK $hostName $oidNbrSysDescr + 2>&1|"; die "$0: $! in Zeile: ", __LINE__ unless defined $FH_SNMPWALK; # execute snmpwalk #---------------------------------- while( $sysDescr = <$FH_SNMPWALK> ) { chomp $sysDescr; for ( $sysDescr ) { /$prefixSysDescr/ && do { s/$prefixSysDescr/$hostName$TAB/; $OutputLine = $_; last; }; # substitute some prefixes (this one works) /snmpwalk:\s*/ && 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 } # get system description with snmpwalk push( @{$serverSystemDescription{$hostName}}, $OutputLine ); # snmpwalk finished #---------------------------------- close $FH_SNMPWALK; die "$0: $! in Zeile: ", __LINE__ unless defined $FH_SNMPWALK; } # get system description of each host and put it in to a array ...
any ideas ? Thx
In reply to His strangeness regex by o_chfa
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |