Perl

[ Perl ]

XXX

XXX # use XXX; って何の伏せ字だよ。。。って思ったら、そういうモジュールがあるのな 。今まで use Data::Dumper; my $hoge = &some_method(); print STDERR Dumper $hoge; とかやってたのを、 use XXX; WWW my $hoge = &some_method(); とでき ...

備忘

備忘 # 忘れないようにトドっておく Plugin もドキュメント書く 本体のオプション用 setter/getter 書く Text::Highlight 以外の構文ハイライト系プラグイン作る ライセンス記述がまぎらわし ...

Log::Log4perl でログに IP アドレスを出力

Log::Log4perl でログに IP アドレスを出力 # IP address の placeholder が用意されていないので。思いっきりドキュメントに書いてあるけど。 use Log::Log4perl; Log::Log4perl::init_once('/path/to/log4perl.conf'); Log::Log4perl::NDC->push($ENV{REMOTE_ADDR}); NDC->push したものが %x のところに入るので ...

そろそろ公開したいがトドが残っている

そろそろ公開したいがトドが残っている # Plugin もドキュメント書く 一応書いた。。。が、不十分 本体のオプション用 setter/getter 書く →まだ Text::Highlight 以外の構文ハイライト系プ ...

Text::HikiDoc r1_016 公開

Text::HikiDoc r1_016 公開 # Text::HikiDoc r1_016 を公開。「B’s Soft 」のコーナーからどうぞ。以下変更点 プラグイン形式で書式追加できる機能を追加 build 時に inc::Module::Install を使うよう変更 ...

Text::HikiDoc r1_017 公開

Text::HikiDoc r1_017 公開 # Text::HikiDoc r1_017 を公開。「B’s Soft 」のコーナーからどうぞ 機能的な変更はなくて、Text::HikiDoc::Plugin::tex ...

何か作らないと

何か作らないと # コード書かないと、どんどん世の流れから取り残されていくような気がするので、構想だけでも。 指定した URL のコンテンツをゲットして 本 ...

Text::MeCab の使い方

Text::MeCab の使い方 # use strict; use warnings; use YAML; use Text::MeCab; my %hash; my $mobj = Text::MeCab->new; my $text = do { local($/); <STDIN> }; my $node = $mobj->parse($text); while ( $node = $node->next ) { my ($type) = split /,/, $node->feature; next if $type ne '名詞'; next if $node->length < 2; $hash{$node->surface}++; } print ...

Copyright © 髭。/ Hugo + hugo-book