【Perl】 プログラムが使用しているモジュールをリストアップする"modules-used": RemovableType
開発が終わり、ステージング環境や本番環境にPerlのプログラムをリリースする際、プログラム中で新たに使用することになったCPANモジュールのインストールをサーバ管理者に依頼するのだが、これまでは（恥ずかしながら）ソースコードを目視して確認していたため、プログラム数が多い案件だと、まれに依頼漏れをしてしまうことがあった。で、運が良ければリリース後のコンパイルチェックで漏れを見つけられるが、運が悪いと（＝モジュールを実行時にロードするような場合）サービスイン後に発覚し、立つ瀬のない思いをするハメになる。 なんとか、そのような人的ミスをなくしたいと思い、CPANを漁ってみたところ、Module::Usedというのを見つけた。インストールしてみると、modules-usedというコマンドラインツールも一緒にインストールされた。これは、引数に指定したファイルからuse文やrequire文などを検索し
複雑なデータ構造はData::Visitor::Callbackで簡単一発変換 - Unknown::Programming
ハッシュと配列の参照が入り交じったような複雑なデータ構造の、全value を均等に加工したかったので次の様にしてみました。 (中略) すでに似たモジュールがある気が激しくしています！ ご存知でしたらぜひ教えてくださいませ。 [perl] 複雑なデータ構造のvalue を一気に書き換える方法 - harupiyoの日記 ということでData::Visitor::Callbackがズバリそれにあたるものじゃないかなーと。 use strict; use warnings; use Data::Dumper; use Data::Visitor::Callback; my $rh_testdata = { 'a' => 1, 'b' => { 'aa' => 1, 'ab' => [ 1, 2, 3, \ 'test', 5 ], 'ac' => 3, }, 'c' => 3, 'd' => 4
Hadoop::Streaming - Contains Mapper, Combiner and Reducer roles to simplify writing Hadoop Streaming jobs - metacpan.org
NAME Hadoop::Streaming - Contains Mapper, Combiner and Reducer roles to simplify writing Hadoop Streaming jobs VERSION version 0.143060 SYNOPSIS My/Hadoop/Example.pm: package My::Hadoop::Example; use Moo::Role; sub map { my ($self, $line) = @_; my ($key, $value); #... create $key and $value $self->emit( $key => $value); } sub reduce { my ( $self, $key, $value_iterator) = @_; my $composite_value; #
Text::WikiFormat
NAME Text::WikiFormat - module for translating Wiki formatted text into other formats SYNOPSIS use Text::WikiFormat; my $html = Text::WikiFormat::format($raw); DESCRIPTION The original Wiki web site had a very simple interface to edit and to add pages. Its formatting rules are simple and easy to use. They are also easy to translate into other, more complicated markup languages with this module. It
Data::Section::Simple - Read data from __DATA__ - metacpan.org
NAME Data::Section::Simple - Read data from __DATA__ SYNOPSIS use Data::Section::Simple qw(get_data_section); # Functional interface -- reads from caller package __DATA__ my $all = get_data_section; # All data in hash reference my $foo = get_data_section('foo.html'); # OO - allows reading from other packages my $reader = Data::Section::Simple->new($package); my $all = $reader->get_data_section; __
List::MoreUtils
NAME List::MoreUtils - Provide the stuff missing in List::Util SYNOPSIS # import specific functions use List::MoreUtils qw(any uniq); if ( any { /foo/ } uniq @has_duplicates ) { # do stuff } # import everything use List::MoreUtils ':all'; # import by API # has "original" any/all/none/notall behavior use List::MoreUtils ':like_0.22'; # 0.22 + bsearch use List::MoreUtils ':like_0.24'; # has "simplif
AnyEvent::Twitter::Stream - Receive Twitter streaming API in an event loop - metacpan.org
NAME AnyEvent::Twitter::Stream - Receive Twitter streaming API in an event loop SYNOPSIS use AnyEvent::Twitter::Stream; my $done = AE::cv; # receive updates from @following_ids my $listener = AnyEvent::Twitter::Stream->new( username => $user, password => $password, method => "filter", # "firehose" for everything, "sample" for sample timeline follow => join(",", @following_ids), # numeric IDs on_tw
404 Blog Not Found:perl - パッチなしでパッチする
2007年04月09日16:15 カテゴリLightweight LanguagesTips perl - パッチなしでパッチする Perlに限らず、動的に名前空間を書き換えることができる言語ならコンセプトはパクれるはずのtips. 状況 人様が書いたモジュールにバグ発見! バグ直した パッチも送った でも作者が$VERSION++してくれない さあどうする? オレバージョンのモジュールをつなぎでつかう? でも標準でないものをイントールするのはいやん サブクラス作ってメソッドをオーバーライドする? でも問題のモジュールが継承をサポートしているとは限らないし そもそも問題のモジュールOOじゃなかったりもするし 代替モジュールを書いてCPANにうp? -- i.e. JSON::* でも元々のモジュールがあまりによく使われているし うpは簡単でもサポート大変そうだし.... 実例 See Al
MySQL::Sandbox - 日向夏特殊応援部隊
MySQL::Sandbox はお手軽に MySQL のサーバーを立ち上げるツールで、ちょっとしたテスト環境を構築するとかに非常に便利なプロダクトです。 とりあえずインストール $ sudo cpan -i MySQL::Sandboxでインストールしてから OS ごとの実行バイナリをダウンロードします。自分の手元の VM は CentOS 5.2 なので、mysql-5.0.82-linux-i686-glibc23.tar.gz をダウンロードしました。 まずは レシピ の最初にあるように make_sandbox してみます。 $ make_sandbox /path/to/mysql-5.0.82-linux-i686-glibc23.tar.gzそうすると /home/zigorou/sandboxes 以下にサンドボックスが出来てます。ついでに mysqld も立ち上がっていま
REST::Google::Search - search.cpan.org
NAME REST::Google::Search - OO interface to Google Search API SYNOPSIS use REST::Google::Search; REST::Google::Search->http_referer('http://example.com'); my $res = REST::Google::Search->new( q => 'Larry Wall', ); die "response status failure" if $res->responseStatus != 200; my $data = $res->responseData; my $cursor = $data->cursor; my $pages = $cursor->pages; printf "current page index: %s\n", $c
はてなブログ | 無料ブログを作成しよう
来年も作りたい！ふきのとう料理を満喫した 2024年春の記録 春は自炊が楽しい季節 1年の中で最も自炊が楽しい季節は春だと思う。スーパーの棚にやわらかな色合いの野菜が並ぶと自然とこころが弾む。 中でもときめくのは山菜だ。早いと2月下旬ごろから並び始めるそれは、タラの芽、ふきのとうと続き、桜の頃にはうるい、ウド、こ…
Net::OAuth
NAME Net::OAuth - OAuth 1.0 for Perl SYNOPSIS # Web Server Example (Dancer) # This example is simplified for illustrative purposes, see the complete code in /demo # Note that client_id is the Consumer Key and client_secret is the Consumer Secret use Dancer; use Net::OAuth::Client; sub client { Net::OAuth::Client->new( config->{client_id}, config->{client_secret}, site => 'https://www.google.com/',
Sub::Install
NAME Sub::Install - install subroutines into packages easily VERSION version 0.929 SYNOPSIS use Sub::Install; Sub::Install::install_sub({ code => sub { ... }, into => $package, as => $subname }); DESCRIPTION This module makes it easy to install subroutines into packages without the unsightly mess of no strict or typeglobs lying about where just anyone can see them. PERL VERSION This library should
Digest::HMAC_SHA1 - Keyed-Hashing for Message Authentication - metacpan.org
NAME Digest::HMAC_SHA1 - Keyed-Hashing for Message Authentication SYNOPSIS # Functional style use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex); $digest = hmac_sha1($data, $key); print hmac_sha1_hex($data, $key); # OO style use Digest::HMAC_SHA1; $hmac = Digest::HMAC_SHA1->new($key); $hmac->add($data); $hmac->addfile(*FILE); $digest = $hmac->digest; $digest = $hmac->hexdigest; $digest = $hmac->b64
Cache::File - Filesystem based implementation of the Cache interface - metacpan.org
NAME Cache::File - Filesystem based implementation of the Cache interface SYNOPSIS use Cache::File; my $cache = Cache::File->new( cache_root => '/tmp/mycache', default_expires => '600 sec' ); See Cache for the usage synopsis. DESCRIPTION The Cache::File class implements the Cache interface. This cache stores data in the filesystem so that it can be shared between processes and persists between pro
Class::Data::Accessor
NAME Class::Data::Accessor - Inheritable, overridable class and instance data accessor creation SYNOPSIS package Stuff; use base qw(Class::Data::Accessor); # Set up DataFile as inheritable class data. Stuff->mk_classaccessor('DataFile'); # Declare the location of the data file for this class. Stuff->DataFile('/etc/stuff/data'); # Or, all in one shot: Stuff->mk_classaccessor(DataFile => '/etc/stuff
DBIx::Class::ResultSet
mst: Matt S Trout (project founder - original idea, architecture and implementation) castaway: Jess Robinson (lions share of the reference documentation and manuals) abraxxa: Alexander Hartmaier acca: Alexander Kuznetsov acme: Leon Brocard aherzog: Adam Herzog Alexander Keusch alexrj: Alessandro Ranellucci alnewkirk: Al Newkirk Altreus: Alastair McGowan-Douglas amiri: Amiri Barksdale amoore: Andre
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
SOAP::Lite - Client and server side SOAP implementation - metacpan.org
Catalyst::Plugin::ENV
PerlのバージョンアップとCPAN豆知識/楽