<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl

#node     10 -&gt;   4

while (&lt;&gt;)
	{
	next unless /^node/;
	chop;
	@a=split;
	$num{$a[3]}++;
	}

@a=sort {$a &lt;=&gt; $b } keys %num;
foreach (0 .. $a[$#a])
	{
	printf "%4d:%4d\n",$_,$num{$_};
	}
</pre></body></html>