[perl] モジュール作成とアップロードはCPAN::Uploaderのcpan-upload

アップロードという日常業務をいちいちログインしてアーカイブ指定してとかやってたら死ぬので。

まずはCPAN::Uploaderをインストール

# cpan -i CPAN::Uploader
CPAN: Storable loaded ok (v2.24)
Going to read '/root/.cpan/Metadata'
  Database was generated on Thu, 18 Nov 2010 02:43:48 GMT
Running install for module 'CPAN::Uploader'
CPAN: YAML loaded ok (v0.72)
Running make for R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz
CPAN: LWP::UserAgent loaded ok (v5.835)
CPAN: Time::HiRes loaded ok (v1.9721)
Fetching with LWP:
  ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz
CPAN: Digest::SHA loaded ok (v5.48)
CPAN: Compress::Zlib loaded ok (v2.021)
Checksum for /root/.cpan/sources/authors/id/R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz ok
CPAN: Archive::Tar loaded ok (v1.68)
CPAN-Uploader-0.102150
CPAN-Uploader-0.102150/Changes
CPAN-Uploader-0.102150/dist.ini
CPAN-Uploader-0.102150/bin
CPAN-Uploader-0.102150/bin/cpan-upload
CPAN-Uploader-0.102150/lib/CPAN
CPAN-Uploader-0.102150/lib/CPAN/Uploader.pm
CPAN-Uploader-0.102150/t
CPAN-Uploader-0.102150/t/00-load.t
CPAN-Uploader-0.102150/META.yml
CPAN-Uploader-0.102150/LICENSE
CPAN-Uploader-0.102150/README
CPAN-Uploader-0.102150/MANIFEST
CPAN-Uploader-0.102150/META.json
CPAN-Uploader-0.102150/t/release-pod-syntax.t
CPAN-Uploader-0.102150/Makefile.PL
CPAN: File::Temp loaded ok (v0.22)

  CPAN.pm: Going to build R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz

Checking if your kit is complete...
Looks good
Warning: prerequisite Getopt::Long::Descriptive 0.084 not found.
Warning: prerequisite Term::ReadKey 0 not found.
Writing Makefile for CPAN::Uploader
---- Unsatisfied dependencies detected during ----
----    RJBS/CPAN-Uploader-0.102150.tar.gz    ----
    Getopt::Long::Descriptive [requires]
    Term::ReadKey [requires]
Running make test
  Delayed until after prerequisites
Running make install
  Delayed until after prerequisites
Running install for module 'Getopt::Long::Descriptive'
Running make for R/RJ/RJBS/Getopt-Long-Descriptive-0.086.tar.gz
Fetching with LWP:
  ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/R/RJ/RJBS/Getopt-Long-Descriptive-0.086.tar.gz
Checksum for /root/.cpan/sources/authors/id/R/RJ/RJBS/Getopt-Long-Descriptive-0.086.tar.gz ok
Getopt-Long-Descriptive-0.086/
Getopt-Long-Descriptive-0.086/Changes
Getopt-Long-Descriptive-0.086/MANIFEST
Getopt-Long-Descriptive-0.086/META.yml
Getopt-Long-Descriptive-0.086/Makefile.PL
Getopt-Long-Descriptive-0.086/README
Getopt-Long-Descriptive-0.086/lib/
Getopt-Long-Descriptive-0.086/t/
Getopt-Long-Descriptive-0.086/t/00-load.t
Getopt-Long-Descriptive-0.086/t/descriptive.t
Getopt-Long-Descriptive-0.086/t/pod-coverage.t
Getopt-Long-Descriptive-0.086/t/pod.t
Getopt-Long-Descriptive-0.086/lib/Getopt/
Getopt-Long-Descriptive-0.086/lib/Getopt/Long/
Getopt-Long-Descriptive-0.086/lib/Getopt/Long/Descriptive/
Getopt-Long-Descriptive-0.086/lib/Getopt/Long/Descriptive.pm
Getopt-Long-Descriptive-0.086/lib/Getopt/Long/Descriptive/Opts.pm
Getopt-Long-Descriptive-0.086/lib/Getopt/Long/Descriptive/Usage.pm

  CPAN.pm: Going to build R/RJ/RJBS/Getopt-Long-Descriptive-0.086.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Getopt::Long::Descriptive
cp lib/Getopt/Long/Descriptive/Opts.pm blib/lib/Getopt/Long/Descriptive/Opts.pm
cp lib/Getopt/Long/Descriptive.pm blib/lib/Getopt/Long/Descriptive.pm
cp lib/Getopt/Long/Descriptive/Usage.pm blib/lib/Getopt/Long/Descriptive/Usage.pm
Manifying blib/man3/Getopt::Long::Descriptive::Opts.3pm
Manifying blib/man3/Getopt::Long::Descriptive.3pm
Manifying blib/man3/Getopt::Long::Descriptive::Usage.3pm
  RJBS/Getopt-Long-Descriptive-0.086.tar.gz
  /usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00-load.t ....... 1/1 # Testing Getopt::Long::Descriptive 0.086, Perl 5.010000, /usr/bin/perl
t/00-load.t ....... ok
t/descriptive.t ... ok
t/pod-coverage.t .. ok
t/pod.t ........... ok
All tests successful.
Files=4, Tests=44,  4 wallclock secs ( 0.14 usr  0.02 sys +  0.88 cusr  0.11 csys =  1.15 CPU)
Result: PASS
  RJBS/Getopt-Long-Descriptive-0.086.tar.gz
  /usr/bin/make test -- OK
Running make install
Prepending /root/.cpan/build/Getopt-Long-Descriptive-0.086-yuRghB/blib/arch /root/.cpan/build/Getopt-Long-Descriptive-0.086-yuRghB/blib/lib to PERL5LIB for 'install'
Installing /usr/local/share/perl/5.10.0/Getopt/Long/Descriptive.pm
Installing /usr/local/share/perl/5.10.0/Getopt/Long/Descriptive/Usage.pm
Installing /usr/local/share/perl/5.10.0/Getopt/Long/Descriptive/Opts.pm
Installing /usr/local/man/man3/Getopt::Long::Descriptive::Opts.3pm
Installing /usr/local/man/man3/Getopt::Long::Descriptive.3pm
Installing /usr/local/man/man3/Getopt::Long::Descriptive::Usage.3pm
Appending installation info to /usr/lib/perl/5.10/perllocal.pod
  RJBS/Getopt-Long-Descriptive-0.086.tar.gz
  /usr/bin/make install  -- OK
Running install for module 'Term::ReadKey'
Running make for J/JS/JSTOWE/TermReadKey-2.30.tar.gz
Fetching with LWP:
  ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/J/JS/JSTOWE/TermReadKey-2.30.tar.gz
Fetching with LWP:
  ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/J/JS/JSTOWE/CHECKSUMS
Checksum for /root/.cpan/sources/authors/id/J/JS/JSTOWE/TermReadKey-2.30.tar.gz ok
TermReadKey-2.30/
TermReadKey-2.30/genchars.pl
TermReadKey-2.30/Makefile.PL
TermReadKey-2.30/Configure.pm
TermReadKey-2.30/test.pl
TermReadKey-2.30/ReadKey.pm
TermReadKey-2.30/META.yml
TermReadKey-2.30/ReadKey.xs
TermReadKey-2.30/ppport.h
TermReadKey-2.30/MANIFEST
TermReadKey-2.30/README

  CPAN.pm: Going to build J/JS/JSTOWE/TermReadKey-2.30.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Term::ReadKey
cp ReadKey.pm blib/lib/Term/ReadKey.pm
AutoSplitting blib/lib/Term/ReadKey.pm (blib/lib/auto/Term/ReadKey)
/usr/bin/perl -I/usr/share/perl/5.10 genchars.pl

Writing termio/termios section of cchars.h... Done.
Checking for sgtty...
        Sgtty NOT found.
Writing sgtty section of cchars.h... Done.
/usr/bin/perl /usr/local/share/perl/5.10.0/ExtUtils/xsubpp -noprototypes -typemap /usr/share/perl/5.10/ExtUtils/typemap  ReadKey.xs > ReadKey.xsc && mv ReadKey.xsc ReadKey.c
cc -c   -D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -g   -DVERSION=\"2.30\" -DXS_VERSION=\"2.30\" -fPIC "-I/usr/lib/perl/5.10/CORE"   ReadKey.c
In file included from ReadKey.xs:6:
ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined
In file included from ReadKey.xs:4:
/usr/lib/perl/5.10/CORE/perl.h:299:1: warning: this is the location of the previous definition
Running Mkbootstrap for Term::ReadKey ()
chmod 644 ReadKey.bs
rm -f blib/arch/auto/Term/ReadKey/ReadKey.so
cc  -shared -O2 -g -L/usr/local/lib ReadKey.o  -o blib/arch/auto/Term/ReadKey/ReadKey.so        \
                \

chmod 755 blib/arch/auto/Term/ReadKey/ReadKey.so
cp ReadKey.bs blib/arch/auto/Term/ReadKey/ReadKey.bs
chmod 644 blib/arch/auto/Term/ReadKey/ReadKey.bs
Manifying blib/man3/Term::ReadKey.3pm
  JSTOWE/TermReadKey-2.30.tar.gz
  /usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" -w test.pl
1 .. 8
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
  JSTOWE/TermReadKey-2.30.tar.gz
  /usr/bin/make test -- OK
Running make install
Prepending /root/.cpan/build/TermReadKey-2.30-ecL7RY/blib/arch /root/.cpan/build/TermReadKey-2.30-ecL7RY/blib/lib to PERL5LIB for 'install'
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Installing /usr/local/lib/perl/5.10.0/auto/Term/ReadKey/ReadKey.so
Installing /usr/local/lib/perl/5.10.0/auto/Term/ReadKey/ReadKey.bs
Installing /usr/local/lib/perl/5.10.0/Term/ReadKey.pm
Installing /usr/local/lib/perl/5.10.0/auto/Term/ReadKey/autosplit.ix
Installing /usr/local/man/man3/Term::ReadKey.3pm
Appending installation info to /usr/lib/perl/5.10/perllocal.pod
  JSTOWE/TermReadKey-2.30.tar.gz
  /usr/bin/make install  -- OK
Running make for R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz
  Has already been unwrapped into directory /root/.cpan/build/CPAN-Uploader-0.102150-arOBEv

  CPAN.pm: Going to build R/RJ/RJBS/CPAN-Uploader-0.102150.tar.gz

cp lib/CPAN/Uploader.pm blib/lib/CPAN/Uploader.pm
cp bin/cpan-upload blib/script/cpan-upload
/usr/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/cpan-upload
Manifying blib/man1/cpan-upload.1p
Manifying blib/man3/CPAN::Uploader.3pm
  RJBS/CPAN-Uploader-0.102150.tar.gz
  /usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00-load.t ............. ok
t/release-pod-syntax.t .. skipped: these tests are for release candidate testing
All tests successful.
Files=2, Tests=1,  0 wallclock secs ( 0.07 usr  0.02 sys +  0.26 cusr  0.04 csys =  0.39 CPU)
Result: PASS
  RJBS/CPAN-Uploader-0.102150.tar.gz
  /usr/bin/make test -- OK
Running make install
Prepending /root/.cpan/build/CPAN-Uploader-0.102150-arOBEv/blib/arch /root/.cpan/build/CPAN-Uploader-0.102150-arOBEv/blib/lib to PERL5LIB for 'install'
Installing /usr/local/share/perl/5.10.0/CPAN/Uploader.pm
Installing /usr/local/man/man1/cpan-upload.1p
Installing /usr/local/man/man3/CPAN::Uploader.3pm
Installing /usr/local/bin/cpan-upload
Appending installation info to /usr/lib/perl/5.10/perllocal.pod
  RJBS/CPAN-Uploader-0.102150.tar.gz
  /usr/bin/make install  -- OK

テストでアップロード。失敗するのはおそらくバージョンが古いから。

$ cpan-upload -v ******************************-0.05.tar.gz
registering upload with PAUSE web server
----- REQUEST BEGIN -----
Authorization: Basic ************************************
Content-Length: 45392
Content-Type: multipart/form-data; boundary=xYzZY

----- REQUEST END -------

POSTing upload for ******************************-0.05.tar.gz
request failed with error code 406
  Message: Not Acceptable

内容を適当に書き換えて再度アップロードチェック。今回は成功。その前にperl Makefile.PLから。

$ perl Makefile.PL
$ make
$ make test
$ make dist
$ cpan-upload -v ******************************-0.06.tar.gz
registering upload with PAUSE web server
----- REQUEST BEGIN -----
Authorization: Basic ************************************
Content-Length: 45399
Content-Type: multipart/form-data; boundary=xYzZY

----- REQUEST END -------

POSTing upload for ******************************-0.06.tar.gz
Looks OK!
----- RESPONSE BEGIN -----
Cache-Control: no-cache
Connection: close
Date: Thu, 18 Nov 2010 07:23:33 GMT
Pragma: no-cache
Accept: *
Server: Apache
Vary: accept-encoding
Content-Length: 22419
Content-Type: text/html; charset=ISO-8859-1
Expires: Thu, 18 Nov 2010 07:23:33 GMT
Last-Modified: Thu, 18 Nov 2010 07:23:33 GMT
Client-Date: Thu, 18 Nov 2010 07:24:24 GMT
Client-Peer: 195.37.231.65:80
Client-Response-Num: 1
Link: </pause/pause_favicon.jpg>; rel="shortcut icon"; type="image/jpeg"
Link: </pause/pause.css>; rel="stylesheet"; title="pause"; type="text/css"
Title: PAUSE: add_uri

----- RESPONSE END -------

PAUSE add message sent ok [200]

リファレンス

1. モジュール作成からCPANに上げるまでの手順 - Dive into the Tech World!
2. "cpan-upload-http" .pause - Google 検索

関連記事

perl

1. [perl] Another HTML-lintのハブ
2. [perl] 1 行スクリプト覚書 with Active Perl
3. [perl] Perl > サーバーにアップロードしたcgiのエラーチェック
4. [perl] ブリコラージュ的 cgi
5. [perl] Linux 上の Perl で書いた 1 行スクリプト
6. [perl] 現在時刻を1秒単位で表示
7. [perl] 現在時刻の表示
8. [perl] ストップウォッチ
9. [perl] ダイヤモンド演算子でdirの代替
10. [perl] 丸め込み誤差、コーシー判定で発散することが自明の数列も計算精度で収束する
11. [perl] なぜだかわからん
12. [perl] 10秒間処理を停止する
13. [perl] モジュールの存在チェック
14. [perl] 範囲演算子でASCII文字を表示する
15. [perl] 環境変数のチェック
16. [perl] パスワードジェネレータ
17. [perl] FS2HTML
18. [perl] リファレンスに関するテスト(2)
19. [perl] リファレンスに関するテスト(1)
20. [perl] ファイル中の重複行を削除してソートの後標準出力
21. [perl] ファイルの内容をソートして標準出力
22. [perl] ファイル中の文字を置換する
23. [perl] 最小二乗法(LSM)
24. [twitter] perlでtwitterクライアント
25. [perl] 半角全角の相互変換には Unicode::Japanese が便利
26. [perl] 日本語を含む行を出力
27. [perl] Net::Twitter で例外ハンドリング
28. [perl] Encodeの基本とEncodeを速く使う方法
29. [perl] cpanでモジュールインストール時にデフォルト選択肢を自動選択する方法
30. [perl] Encode::resolve_alias
31. [perl] 最短経路探索
32. [perl] JSONを使ってパスワード等の情報とコードを分離する
33. [perl] Perlのハブ
34. [perl] perlの配列操作用モジュールはList::UtilとList::MoreUtilで
35. [perl] Hatena::Bookmark にポスト
36. [perl] LWP::UserAgent でUserAgentを換えるにはagentメソッド
37. [perl] モジュールの検索パス追加はuse libで
38. [perl] WebService::Google::Readerでsubscription/edit出来ない
39. [perl] WebService::Google::Readerでsubscription/editするにはgithub。
40. [perl] 10進数から2進数への変換、一般に基数変換
41. [perl] url、uriの相対指定を絶対指定に変換、余分な../../を削除
42. [perl] WebService::Google::Reader を使って web ページの URL から google reader にフィードをポスト
43. [perl] スクリプトの動作に必要な個人情報をの設定ファイルを外部から読み出すにはIO::FileとJSONを使う
44. [perl] $Data::Dumper::Deparse=1; コードリファレンスのソースコード変換
45. [perl] Fizz Bizz 問題
46. [perl] Fizz Bizz 問題(ルックアップテーブル)
47. [perl] Fizz Bizz 問題(mod計算無し)
48. [perl] 2**1023は数なのに、sigma(1023,0) 2**i はinfになる
49. [perl] HTMLタグのエスケープや文字参照、実態参照のデコードにはHTML::Entities
50. [perl] Time::PieceやDateTime::Format::Strptimeで日付をパース、早いのはTime::Piece
51. [perl] use Benchmarkでベンチマークする際の雛形
52. [perl] LWP::UserAgent モジュールでuseragentを変える場合の雛形
53. [perl] Web::Scraper モジュールでリンク抽出の雛形
54. [perl] オブジェクトにメソッドがあるかチェックするにはcan
55. [perl] 標準入力からデータを受け取ってこれを変数に格納する雛形
56. [perl] cpanモジュール作成、必須チェック項目
57. [perl] モジュール作成とアップロードはCPAN::Uploaderのcpan-upload
58. [perl] 日本語文章校正(半角スペースを英字の左右に挿入)
59. [perl] 日本語文章校正(jcorrectを使って論理的な文章を)
60. [perl] FizzBuzz問題(64bytes)
61. [perl] mkpathとdirnameを使って安直にrename
62. [perl] yesコマンドでcpanのupgradeの質問にデフォルトを自動的選択
63. [perl] lwpでコンテンツを取得するときに"500 Can't verify SSL peers without knowning which Certificate Authorities to trust"というエラーが出たらMozilla::CAをインストール
64. [perl] Web::Scraperでエラーハンドリングするにはscrapeメソッドをeval{}で囲み$@を評価。
65. [perl] Web::Scraperでuseragentを変更するにはscraperオブジェクトのuser_agentメソッドにLWP::UserAgentオブジェクトを渡す。
66. [perl] ライブラリ検索パスを実行時に追加-Iオプション
67. [perl] perlスクリプトの雛形
68. [perl] aptitudeでlibexpat1-dev、cpanでXML::Perserをインストール
69. [perl] XML::Simpleの高速化など。$XML::Simple::PREFERRED_PARSER='XML::Parser';
70. [linux] perlの正規表現が使えるrenameコマンド
71. [perl] 2つの式を評価する場合、andとorとどちらが速い
72. [perl] Perlの中でCを使えるらしい。
73. [perl] ロードされたモジュールのパスを調べる
74. [perl] cpanでDB_Fileのupdateが失敗する
75. [perl] cpanでGDのupdateが失敗する
76. [perl] cpanでXML::LibXMLのupdateが失敗する
77. [perl] cpanでAlien::SVNのupdateが失敗する
78. [perl] 書籍や文献
79. [perl] perl ワンライナーでファイルの内容を一括で読み込むには-0777オプション
80. [perl] 置換演算子の置換文字列に引数込みの無名関数の戻り値を使う
81. [perl] /m 修飾子の有無により正規表現 "^" や "$" の意味が変化
82. [perl] 複数回の置換はs///g
83. [perl] perl ワンライナーでバックアップはiオプション
84. [perl] 重複したモジュールの存在を確認
85. [perl] cpanモジュールの配布ファイルの指定はMANIFESTで
86. [perl] cpanモジュールの更新作業に必要なこと
87. [perl] 連想配列の実装
88. [perl] プロファイラを用いた実行速度測定方法の比較(Devel::DProf、Devel::SmallProf、Devel::FastProf)
89. [perl] プログラムの標準出力にデータを送り、標準入力からデータをもらう
90. [perl] Getopt::Longで同じオプション名で複数個の引数を受け取るには@を
91. [perl] ロード済みモジュールのバージョンとパス
92. [perl] 日本語禁則処理モジュール比較
93. [perl] XML::LibXSLT を使う

モジュール

1. [perl] モジュール作成とアップロードはCPAN::Uploaderのcpan-upload
2. [perl] ロードされたモジュールのパスを調べる
3. [perl] 重複したモジュールの存在を確認
4. [perl] cpanモジュールの配布ファイルの指定はMANIFESTで
5. [perl] cpanモジュールの更新作業に必要なこと

ソーシャルブックマーク

1. はてなブックマーク
2. Google Bookmarks
3. del.icio.us

日付の近い記事

1. [メモ] 3DCAD
2. [perl] オブジェクトにメソッドがあるかチェックするにはcan
3. [imap] imapにappendする。
4. [perl] 標準入力からデータを受け取ってこれを変数に格納する雛形
5. [perl] cpanモジュール作成、必須チェック項目
6. [perl] モジュール作成とアップロードはCPAN::Uploaderのcpan-upload
7. [linux] grepの結果をパイプでlessに渡して、色を付ける
8. [debian] パッケージ探索
9. [irc] znc irc bouncerとかirc proxyと呼ばれるもの
10. [weechat] window タイトルの変更をしないようにする。
11. [debian] カテゴリによるパッケージ検索。debtags で幸福実現

ChangeLog

1. Posted: 2009-08-11T16:28:20+09:00
2. Modified: 2009-08-11T16:28:20+09:00
3. Generated: 2025-11-03T23:09:15+09:00