タグ

perlとwに関するbayashi_netのブックマーク (5)

  • 形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ

    MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab->parse($ARGV[0]); my @nodes = (); # 分かち書きしたものを一つの配列に入れる my @noun = (); # 名詞を検出した番号を格納する my $index = 0; while ($n = $n->next) { push(@nodes, $n->prev->surface); if ((split(/,/, $n->prev->feature))[0] eq '名詞') { push

    形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ
  • YappoLogs: Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ

    Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ 全国的にみんな真面目だな〜。勉強会の目的なんてないよ。楽しいからやっている。それで何が悪いのかな?の実況中継、その勉強会への 参加そのものについてちょっと考えなおした方がいいかもしれない。 Imager::ExifOrientationをCPANにうpりました。 Exif の Orientation というパラメータを元にして回転済みのImagerオブジェクトを返します。 一緒に Imager::Filter::ExifOrientation もバンドルしてるので、filterとしても利用出来ます。 Orientationは何かと言うと、カメラに縦方向センサーが入ってる機種で、画像に対してカメラの上方向はどちらかというような情報が入っている所です。 わかり易い説明は500で見れないのでgoogle

  • WWW::Search::Yahoo::Japan

    bayashi_net
    bayashi_net 2009/06/06
    「my $sQuery = WWW::Search::escape_query("Iijima Ai");」
  • モジュールをCPANにうpする前に名前空間が使えるか確認した方がいいかも - 新だるろぐ跡地

    こないだcpan authorになったのだけど、そのときこちらを大変参考にさせてもらった。 [Perl] 作成したモジュールをCPANで公開する手順 ここの手順だと、 モジュール作成 作ったモジュールをCPANにうP 名前空間の登録(Register Namespace) となっているが、モジュール作成前に名前空間の登録をした方がいいかもしれない。 というのも。 Config::Loader::Dirという名前のモジュールを作ろうと思って、作成前に名前空間の登録申請だけしておいた。 Config::Loaderというモジュールは過去存在して、今はDEPRECATEDになってて、作者がConfig::Mergeという後継モジュールを作っている。 こーいう場合使えるか分からんかったけど、とりあえず申請してみた感じ。 そしたら、mstさんから「小僧!俺の管理する名前空間に手を出すとはいい度胸だ!

    モジュールをCPANにうpする前に名前空間が使えるか確認した方がいいかも - 新だるろぐ跡地
    bayashi_net
    bayashi_net 2009/05/23
    「そしたら、mstさんから「小僧!俺の管理する名前空間に手を出すとはいい度胸だ!」とメールが来た。」
  • Text::MeCabによるN-Best解オプション指定について -OKWave

    オプション指定を行ってもそのように表示されず、日語ドキュメントも少ないため完全に嵌ってしまいました。 すぐに必要な処理でしたので、精神的に参ってしまいました。 大変お手数をお掛け致しますが、ご助言頂けないでしょうか。宜しくお願い致します。 また、5-Best出力時の以下のような各要素の格納方法なども併せて宜しくお願い致します。 ・分割要素数が多い(少ない)場合を採用する ・カナを用いて5-Best解を求める 以下、5-Best解の列挙が欲しいのに、1-Best解(通常時と同じ)しか出力されないプログラムソース。 use Text::MeCab; $nbest = 5; my $str = "アラブラブラブアブラ王"; my $m = Text::MeCab->new({nbest => $nbest}); my $n = $m->parse($

    bayashi_net
    bayashi_net 2009/01/28
    ものすごく困ってる様子だけど、$str の解析結果に爆笑してしまいました。すいませんw
  • 1