CPANによってインストールしたPerlモジュールを簡単に削除する方法。
CPAN Faqから消えててWeb Archiveから掘り出した。
また要るかもしれないのでここにメモ。

#!/usr/local/bin/perl -w

use ExtUtils::Packlist;
use ExtUtils::Installed;

$ARGV[0] or die "Usage: $0 Module::Name\n";

my $mod = $ARGV[0];
my $inst = ExtUtils::Installed->new();

foreach my $item (sort($inst->files($mod))) {
     print "removing $item\n";
     unlink $item;
}

my $packfile = $inst->packlist($mod)->packlist_file();
print "removing $packfile\n";
     unlink $packfile;

こいつをremove.plなどとして保存。

$perl ./remove.pl モジュール名

で削除実行。

おっと、放置しちまったぜ！まぁそう怒るなよBABY！

今日は絶景を紹介します。

いや?絶景ですね！！さながらラインアートと言ったところでしょうか。
これは分散ネットワークでノード数が50個の場合で、保存しているファイルが12個ありますね?。
一つのパソコンで25個ノードを動かして、そのコンソールウインドウを並べて表示すると、まるでマトリックスの流れる文字スクリーンを見ている気分になれます。
あっはっはっ。

(クリックで拡大)

これは一つのノードに対して詳細な統計情報などを表示した画面ですね?いやぁ絶景！！このルーティングテーブルがノードに伸びていく線なんてまるで花のようですな！！

んーむ、これは分単位でノードの負荷をそれぞれの処理に分けてグラフに表したモノですね。
一時期忙しかった時期があった模様ですが、落ち着きを取り戻し、平和な日常を送っているようです。いやぁ良かった良かった。

いかがだったでしょうか？また新しい絶景があったら載せますね＞＜

ついに、ネットワーク上にデータを保存できるようになった！！！(ﾟ∀ﾟ)

強度3によるネットワーク状態。青い線が接続を表している。
Read the rest »