Re: Print Max Hash

Replies are listed 'Best First'.
Re^2: Print Max Hash by bartrad (Beadle) on Jan 30, 2018 at 10:51 UTC
Yes of course. Few lines from <INPUT> 143599203\|No\|NACK\|ENA\|\|Major\|20180129054027\|\|ARM\|NSA\|PRM\|0\|DCN\|Insuffi +cient SNMP security settings\|HN408-CP-1E-I\|3176 && ne\|\|\|\|\|\|\|No\|\| 143599356\|No\|NACK\|ENA\|ip\|Major\|20180129054037\|\|CLR\|NSA\|PRM\|0\|DCN\|CLEAR +ED: Network element does not respond to SNMP requests\|HN4000e\|3176 && + ne\|\|\|\|\|\|\|No\|\| 143599357\|No\|NACK\|ENA\|ip\|Major\|20180129054039\|\|CLR\|NSA\|PRM\|0\|DCN\|CLEAR +ED: Insufficient SNMP security settings\|HN4000e\|3176 && ne\|\|\|\|\|\|\|No\|\| 143599999\|No\|NACK\|ENA\|ip\|Major\|20180129054529\|\|ARM\|NSA\|PRM\|0\|DCN\|Netwo +rk element does not respond to SNMP requests\|HN4000e\|3176 && ne\|\|\|\|\|\| +\|No\|\| [download] I've redacted the IP address and replaced with ip and also entered ne in place of a 6-9 digit number as it's sensitive, but hopefully this gives an idea of the format. Here's a sample of the output the script currently produces. 1st and 2nd column are $node_ip and $ne (both redacted) and third column is then $total{$ne}++ that seems to increment just fine and the final column is what I'm trying to call as the max but it increments regardless of what $ne is. ip1 5 \| Network element does not respond to SNMP requests \| + 212 \| ip2 213 \| Network element does not respond to SNMP requests \| + 213 \| ip2 214 \| Network element does not respond to SNMP requests \| + 214 \| ip3 4 \| Network element does not respond to SNMP requests \| + 214 \| ip2 215 \| Network element does not respond to SNMP requests \| + 215 \| ip2 216 \| Network element does not respond to SNMP requests \| + 216 \| ip4 1 \| Network element does not respond to SNMP requests \| + 216 \| ip2 \| 217 \| Network element does not respond to SNMP requests +\| 217 \| ip2 218 \| Network element does not respond to SNMP requests \| + 218 \| ip2 219 \| Network element does not respond to SNMP requests \| + 219 \| [download]	[reply] [d/l] [select]
Re^3: Print Max Hash by choroba (Cardinal) on Jan 30, 2018 at 13:09 UTC
What output do you expect? The last column doesn't increment "regardless of what $ne is", you can see that 214 is repeated twice, and so is 216. That's because $ne was different for the first of them and the program incremented a different value in the hash, but it wasn't incremented enough to change the max, so the max stayed the same. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]
Re^3: Print Max Hash by Marshall (Canon) on Jan 30, 2018 at 11:06 UTC
Can you put this data into `<code>...</code>` blocks?	[reply] [d/l]
Re^4: Print Max Hash by bartrad (Beadle) on Jan 30, 2018 at 11:11 UTC
Yep, done, sorry.	[reply]
Re^3: Print Max Hash by karlgoethebier (Abbot) on Jan 30, 2018 at 17:18 UTC
"...Few lines from <INPUT>..." May i ask where this "few lines" come from? Some Log? External Program? Probably something from the SNMP toolchain? Or some wrapper around one of these? I guess you know what i mean. Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks