From maeda ＠ tokyo.pm.org  Sun Apr  4 20:03:41 2004
From: maeda ＠ tokyo.pm.org (maeda@tokyo.pm.org)
Date: Thu Aug  5 00:23:08 2004
Subject: [Tokyo.pm] Tokyo.pm on orkut.com
In-Reply-To: <040309033142.M0485361@arts.kikansha.jp>
References: <040309033142.M0485361@arts.kikansha.jp>
Message-ID: <87zn9ri6c2.wl@rosehip.src.ricoh.co.jp>

前田です。

中川さん> orkut.com から
中川さん> お誘いメールがいくように手配しました。
中川さん> ( spam と間違えて捨てないで下さい )

遅かった。Spam folderとかさぐってみたんですが、見つかりませんでした。

# 会社のanti-virusフィルタで落とされたりはしないよね?

-------------------------------  Avatar          Md+   d/=□=\.   Md+
 前田 薫    maeda@tokyo.pm.org   75t 170km/h   AFC50  O \*oo*/ "  LG+ LG+
 Tokyo.pm  http://tokyo.pm.org   HeatSink 15   LRM10   .=X￣X=.   LRM10
-------------------------------  Armor 2164      Md+  _|_    _|_  Md+

From h-taguchi ＠ secom.co.jp  Wed Apr  7 20:59:26 2004
From: h-taguchi ＠ secom.co.jp (h-taguchi@secom.co.jp)
Date: Thu Aug  5 00:23:08 2004
Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCPHMwTDk2S0kbKEI=?=
Message-ID: <B16877D2F178404B814BB24F2856AAA006132E7F@EXVS02.SECOM.corp>

CPANウォッチャーの田口です。(-_ゞ

近年追い上げ著しいSIMONさんがトップに躍り出たようです。
http://www.cpan.org/modules/01modules.index.html

今までちゃんと数えてなかったですが．．．
このページは、同じモジュールでバージョンのダブリがあって
あんまり芳しくありません。また、SIMONさんが最近リリースした
Maypole::Componentもこのページにはありません。
もっといいページあるんでしょうか？

# Maypoleって気になる...
# Win32::IE::Mechanize、結構いい感じです。

C:>CPANAuth.pl
===> page OK
===> content OK
5659 modules.
1820 authors.

Top 10 heavy authors.
SIMON         67
MIYAGAWA      66
AUTRIJUS      62
MSERGEANT     54
RCLAMP        51
SBURKE        46
XERN          37
ELIZABETH     36
SMUELLER      36
LGODDARD      35


#!/usr/bin/perl
use strict;
use Win32::IE::Mechanize;
use HTML::Parse;
use HTML::FormatText;

my $ie = Win32::IE::Mechanize->new(visible=>1,
	top=>0,
	left=>0,
	height=>600,
	width=>800,
	);

$ie->get("http://www.cpan.org/");
$ie->follow_link(text => "Perl modules");
$ie->follow_link(text => "all modules");
print "===> page OK\n";

my $formatter = HTML::FormatText->new();
my $content = $formatter->format(parse_html($ie->content));
print "===> content OK\n";

my (%auth_mod, %auth);

while ($content =~ m/\s([A-Z]+\s+[\w\-\.]+)\.tar\.gz/g) {
	my $auth_mod = $1;
	$auth_mod =~ s/-[\d\.a-z]+$//;	# バージョンのダブリンチョ削除
	++$auth_mod{$auth_mod};
}
print scalar(keys %auth_mod), " modules.\n";
open(MOD, ">./CPAN_MOD.txt");
for (sort keys %auth_mod) {
	print MOD "$_\n";
}

map { ++$auth{(split)[0]} } keys %auth_mod;
print scalar(keys %auth), " authors.\n\n";

print "Top 10 heavy authors.\n";
my $ctr = 0;
for (sort { $auth{$b} <=> $auth{$a} } keys %auth) {
	printf "%-12s %3d\n", $_, $auth{$_};
	last if ++$ctr >= 10;
}

sleep 3;
$ie->close;
__END__

Hirosi Taguti
taguti@tokyo.pm.org