comewalk.typepad.jp

CIDR の IP アドレスを列挙する

のを探していたら、ここのページにズバリありました。

・Perlスクリプトで得る方法

perl -e 'use Net::CIDR;foreach(Net::CIDR::cidr2octets("192.168.0.64/28")){print "$_\tREJECT\n"}'

うちの環境では動きませんでした。
何かframeworkが入っていないからだと思います(^^ゞ

おそらく Net::CIDR がインストールされていなかったんだと想像しました。インストールは以下で OK です。

$ cpan Net::CIDR

で、one-liner で実行すると。

$ perl -MNet::CIDR -le 'print "$_\tREJECT" for (Net::CIDR::cidr2octets("192.168.0.1/28"))'
192.168.0.0     REJECT
192.168.0.1     REJECT
192.168.0.2     REJECT
192.168.0.3     REJECT
192.168.0.4     REJECT
192.168.0.5     REJECT
192.168.0.6     REJECT
192.168.0.7     REJECT
192.168.0.8     REJECT
192.168.0.9     REJECT
192.168.0.10    REJECT
192.168.0.11    REJECT
192.168.0.12    REJECT
192.168.0.13    REJECT
192.168.0.14    REJECT
192.168.0.15    REJECT

ちょっとした確認に便利ですねぇ。 あとは IP アドレスの範囲から CIDR を求める関数もあります。

$ perl -MNet::CIDR -le 'print join( qq{\n}, Net::CIDR::range2cidr("192.68.0.0-192.68.255.255", "10.0.0.0-10.3.255.255"))'
192.68.0.0/16
10.0.0.0/14

今ご紹介しました range2cidr や cidr2octets ほかにもいろいろあります。サンプルは perldoc Net::CIDR にて。

ShipIt にチャレンジの巻

前回作成したモジュールは CPAN にアップロードします。今回は初めて ShipIt を使ってみたいと思います。

以下のように関連するモジュールのインストールです。cpan-upload-http は手動でインストール。

# cpan ShipIt
# cpan AppConfig::Std
# wget http://search.cpan.org/CPAN/authors/id/B/BR/BRADFITZ/cpan-upload-http-2.4.tar.gz
# tar xvfz cpan-upload-http-2.4.tar.gz
# cd cpan-upload-http-2.4
# perl Makefile.PL
# make
# make install

ShipIt するときに cpan-upload-http が利用する .pause ファイルの準備も。

# vi $HOME/.pause
# cat $HOME/.pause
user shigeta
password  YOURPASSWORD
mailto [email protected]
# chmod 600 $HOME/.pause

ShipIt を使う場合、.shipit ファイルがプロジェクトのトップに必要なのですが、Perl モジュールのひな形を作成してくれる pmsetup は .shipit を自動的に生成してくれます。miyagawa++

ShipIt に限らずですが、以下を実施して MANIFESTファイルと MANIFEST.SKIP ファイルの中を調整するのを忘れずに。

# perl Makefile.PL
# make manifest

いきなり shipit コマンドを叩くのが怖いなと思う人は dry-run オプションを使うのが吉ですね。

# shipit --dry-run

で、アップロード内容について色々確認した結果、Ship It!

# shipit

Upload to CPAN? [Y/n] Y
cpan-upload-http: your config file /var/root/.pause is readable by others!
Upload failed.

orz

.pause は 600 とかのパーミッションにしないとダメっぽい（上の手順に chmod を追加しました。）

そのあともう一度登録しようとしましたが、すでに登録済みだからコミットしないと。。。
確かに github のほうにはタグらしいコミットがついてる。

Next/release version? 0.01
No local changes, and version on disk is already tagged.  Nothing to do.

orz

# git tag
0.01

あーすでにタグが 0.01 で打たれちゃっているからダメなんですね。よし、0.02 にします。

# shipit
Running step ShipIt::Step::FindVersion=HASH(0x18012d0)
Current version is: 0.01
Next/release version? 0.02

Edit file? [Y/n] Y
ここで ChangeLog の編集

(make dist 中につき中略)

Upload to CPAN? [Y/n] Y
# 

今度はうまくいったっぽい。 PAUSEのShow my files したらアップロードされているではないか！すばらしい。簡単にコミットできた。便利ですねぇ。CPAN Author の方は ShipIt を使った方はいいですよ。

seealso:

• ShipItを使うときに注意したい7つのポイントCommentsAdd Star
• CPAN AuthorならShipIt！

メモ: Moose

モダンPerl入門 に載っていましたが、いつも忘れちゃうのでメモ。

Moose のおまじない

package Foo;
use Moose;

__PACKAGE__->meta->make_immutable;

no Moose;

1;
__END__

モダンPerl入門 (CodeZine BOOKS) 牧 大輔 翔泳社  2009-02-10 by G-Tools

Advent Calendars

Perl のフレームワークとして有名な Catalyst のオフィシャルサイトでは Advent Calendar と称して毎年12/1から12/24まで Catalyst の Tips が毎日公開されます。

Catalyst Advent Calendar  (2007, 2006, 2005 もあります。)

そして、最近では perl-users.jp でも Perl 界隈で名前の通った方々がバトン形式で Perl の Tips を紹介されています。

JPerl Advent Calendar 2008

すぐに試せる気の利いた Tips がありますので興味のある方はご参考にされてはいかがでしょうか？