2010-11-03から1日間の記事一覧
記事最初の2行を別で抜き出し、サマリー生成後、追加表示する #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use URI; use HTML::ExtractContent; use Encode; use Lingua::JA::Summarize::Extract; use Data::Dumper; my $url = shift; m…
記事最初の2行を別で抜き出し、サマリー生成後、追加表示する #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use URI; use HTML::ExtractContent; use Encode; use Lingua::JA::Summarize::Extract; use Data::Dumper; my $url = shift; m…