for ( $sysDescr ) { #### foreach $hostName (@serverList) { print STDERR "--- Server: $hostName\n"; # 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; print STDERR " Desc: $sysDescr\n"; for ( $sysDescr ) { print STDERR " in_for: $_\n"; #### if (s/$prefixSysDescr/$hostName$TAB/ or s/snmpwalk:\s*/$hostName$TAB/) { $OutputLine = $_; last; }; # substitute some prefixes (this one works) #### if (s/($prefixSysDescr|snmpwalk:\s*)/$hostName$TAB/) { $OutputLine = $_; last; }; # substitute some prefixes