[ViewVC] Contents of: cvs/cvsroot/Net-XMPP2/samples/disco_version_stat

#!/opt/perl/bin/perl

my %versions;

while (<STDIN>) {
   chomp;
   my ($from, $name, $version) = split /\t/, $_;
   $versions{$name .": " . $version}++;
}

for (sort { $versions{$a} <=> $versions{$b} } keys %versions) {
   printf "%3d: %s\n", $versions{$_}, $_;
}
Revision:	1.1
Committed:	Thu Jul 19 11:36:34 2007 UTC (17 years ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	added initial_presence argument to the IM::Connection and the Client. added and upgraded some examples. further work on the registration forms.
#	Content
1	#!/opt/perl/bin/perl
2
3	my %versions;
4
5	while (<STDIN>) {
6	chomp;
7	my ($from, $name, $version) = split /\t/, $_;
8	$versions{$name .": " . $version}++;
9	}
10
11	for (sort { $versions{$a} <=> $versions{$b} } keys %versions) {
12	printf "%3d: %s\n", $versions{$_}, $_;
13	}