CPAN に登録されている全てのモジュールのリスト

を取得するスクリプトを作ったので晒してみる。。。

#!/usr/bin/env perl

use strict;
use warnings;
use LWP::Simple;

my $url     = 'http://www.cpan.org/modules/02packages.details.txt';
my $content = get($url) or die $@;

open my $fh, '> cpan_modules.txt' or die $!;
for (
    split /(?:\r\n|\r|\n)/, (split /(?:\r\n|\r|\n){2}/, $content)[1]
) {
    print $fh (split /\s+/, $_)[0], "\n";
}
close $fh;

ってか、勝手に "http://www.cpan.org/modules/02packages.details.txt" この URL を使わせてもらってるのだが、いいのか？
エラー処理とか改行コードとか、かなり適当な感じなのだが、、まっ、取得できたしいいかw

AAA::Demo
AAC::Pvoice
AAC::Pvoice::Bitmap
AAC::Pvoice::Dialog
AAC::Pvoice::EditableRow
AAC::Pvoice::Input
AAC::Pvoice::Panel
...
...
...

動かすと、↑こんなのが取得できる。