タグ

PerlとRSSに関するmichael-unltdのブックマーク (2)

  • RSS を読み込んでランダムな文章を生成する

    RSS を読み込んでランダムな文章を生成する 2008-09-07-3 [Programming][NLP][IIR][WebAPI] 今日のIIR輪講[2008-09-07-2]の内容のフォローも兼ねて、ちょっとしたハックを紹介。 bigram language model に基づく、ランダム文生成を行います。 って、まあ、単純にある単語の次に現れる単語の分布を用いて、文章を生成していくだけですが。 以下、サンプルプログラムと実行例です。 サンプルコード rss-lm.pl #!/usr/bin/perl use strict; use warnings; use XML::RSS; use LWP::Simple; use XML::Simple; use URI::Escape; use utf8; binmode STDOUT, ":utf8"; my $appid = "Yaho

    RSS を読み込んでランダムな文章を生成する
    michael-unltd
    michael-unltd 2008/09/08
    自動要約、現時点ではカオス
  • Perlモジュール/Walrus::RSS - Walrus, Digit.

    使用には以下のモジュールが必要です。 Time::Local Jcode Time::Localはごく一般的なモジュールですし、最近のISPではJcodeモジュールも提供されているところが多いようです。 Jcodeモジュールを使いたくない(Perl5.8環境なのでencodeモジュールで置き換えたいとか)言う時は、sub str_to_eucとstr_to_encodedメソッドを直してやって下さい。内部ではeucコードで処理しているので、UTF-8で配布されているRSSファイルを処理しようとしなければ、jcode.plを使用するようにすることもできると思います。 以下をコピー&ペーストしてご利用ください。 package Walrus::RSS; use strict; use vars qw($VERSION); use Time::Local; use Jcode; $VERSION

    michael-unltd
    michael-unltd 2008/01/03
    RSS生成/解析
  • 1