| Revision: | 1.1 |
| Committed: | Thu Jul 19 11:36:34 2007 UTC (19 years, 2 months 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 | } |