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. |
# | User | Rev | Content |
---|---|---|---|
1 | elmex | 1.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 | } |