それ perldoc -M と Pod::Strip で出来ます。 例えば、 $ perldoc -MPod::Strip AnyEventみたいな感じですね。AnyEvent の pod 部が多過ぎてソース読むのが大変だったので、これで読みやすくなりますね。 ひょっとしたらもっと良い、あるいはシンプルな方法があるやもしれないので知ってる人が居たら是非教えて下さいまし。
重要 id:holidays-l さんがこの記事の誤りと、ちゃんとした解説を書いてくれているので、そっちを参照して下さいませ。 以下、そのつもりで読んで下さい。 MySQL から UNIX_TIMESTAMP() と NOW() の値をこんな感じで出します。 [12:13:13 root@bopobo/test :4] SELECT UNIX_TIMESTAMP(), NOW(); +------------------+---------------------+ | UNIX_TIMESTAMP() | NOW() | +------------------+---------------------+ | 1288926767 | 2010-11-05 12:12:47 | +------------------+---------------------+ 1 row in set
はい、全国1億5千万人の typo generator の皆さん、こんにちは。ZIGOROu です。 今日は英語で数字の数え上げも出来ない弱い子*1の為のモジュールを紹介するよ。 Lingua::EN::Numbers これ、これさえあればもう困らない! はい、ワンライナー $ perl -MLingua::EN::Numbers=num2en_ordinal -MPerl6::Say -e 'say num2en_ordinal($_) for (1..10)' first second third fourth fifth sixth seventh eighth ninth tenthこれでもう悩みませんね。 背景 そういえば以前、とあるCSSにて止むなくclass属性に数値を表す文字列を入れて貰ったんだけど、そこで悲惨なtypoを見つけた次第ですが自分も自信を持って書けないと気づい
ソース #!/usr/bin/perl use strict; use warnings; use URI; use URI::Escape qw(); local $\ = "\n"; my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/"); $uri->query_form("key=a b c d e"); print $uri->query; print URI::Escape::uri_escape("key=a b c d e"); 結果 $ perl ~/tmp/uri.pl key%3Da+b+c+d+e= key%3Da%20b%20c%20d%20eなにぃぃぃぃ! URI, URI::Escape共に同じディストリビューションなのにっ!
d:id:ZIGOROu:20070824:1187943710の続き。 ちなみにそのブクマコメントで、個人情報もネタにするハム一さん事、id:nipotanさんが答えを書いてました。 調べちゃったお!!!>< URIモジュールの場合 httpと言うschemeの場合は、あれこれ経てURI::httpオブジェクトになります。 URI::httpって、こんな継承ツリーになってます。 +-----+ +-------------+ | URI | | URI::_query | +-----+ +-------------+ \'-------v---\' +---------------+ | URI::_generic | +---------------+ | +--------------+ | URI::_server | +--------------+ | +----------
昨日から激しく悩んでいた内容で、id:kazuhookuさんとnishioさんに色々教わったので、その内容のまとめ。 やりたい事 my $entries = { A => [0..5], B => ["A".."D"], C => ["a".."c"] }; みたいな集合A, B, Cってのがあるとして、A, B, Cから一個ずつ値を抽出してくる組合せを列挙すると言うお話。 ちなみに場合の数として、6 * 4 * 3 = 72 通り存在するハズです。 List::Utilのreduceを使う id:kazuhookuさん案を適当に整形。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use List::Util qw(reduce); my $entries = { A => [0..5], B =>
#!/usr/bin/perl use strict; use warnings; my $pm = $ARGV[0]; exit unless $pm; $pm = join("/", split(/::/, $pm)) . ".pm"; exit unless (eval{ require $pm; }); print $INC{$pm} . "\n"; こんな感じ?pmpath.plとかで保存して、PATHの通ったディレクトリに実行権限つけて置いといて $ pmpath.pl Test::More /usr/lib/perl5/5.8.8/Test/More.pmみたいな感じ $ vi `pmpath.pl Test::More`とかやるとモジュール名でそのファイルが開けるです。便利。 追記 $ perldoc -l Test::Moreで同じ結果みたいです。 知らなかったー!
ランダムな文字列生成モジュール。 自分で実装しろよwって話もあるけど、使ってみたら意外と融通が効いたので、ご紹介。 #!/usr/bin/perl use strict; use warnings; use String::Random; local $\ = "\n"; my $rand = String::Random->new; print $rand->randpattern('c' x 32); print $rand->randregex('[a-zA-Z0-9]{32}'); で下記のような結果になります。 utfjtdmvnkjvqcclefoorqftuonklbzf ezAmL2ZaV599QLasO92PcAHuae2RnoNv正規表現で指定出来たりするのは凄い便利ですよねぇ。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く