Email::Send, Email::Send::Gmail. Email::MIMEを使ってGmail経由でメールを送るコード保存用に 主にiPhoneへのメール送信につかっていると。定期的に図書館新着メール、検索サーチ、 まとまった内容をスクラッピングしてまとめて連続でメールする感じでつか…

新しくPerl開発環境を構築中。 はてなダイアリーへコマンドラインからポストするためにXML::Atom::Entry、XML::Atom::Clientを使うわけなんだが、 Ubuntu server 10.04にてCPANモジュールXML::Atomインストールが何度もこけてしまうので悩んでいたんだわけだ…

Cwd モジュールを使って、アップしたディレクトリにgit cloneできるようにした。 今までは、gistに投げた後は、HOMEディレクトリにgit cloneされていたんだけど、すぐにgistにアップしたものを修正したい時に同じディレクトリにあればと思って修正を加えた。…

記事最初の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…

HTML::ExtractContent - search.cpan.org Lingua::JA::Summarize::Extract - search.cpan.orgを使って生成。 記事最初の1,2行は、表示されるようにしたほうがいいかな。 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use URI; use HTML::…

LWP::UserAgent - search.cpan.orgでローカルにファイル保存するためのコード。 更新された場合に限って保存するには$ua->mirror($url, $filename);使う #!/usr/bin/perl use strict; use warnings; use Encode; use LWP::UserAgent; use File::Spec; our $C…

Spreadsheet::WriteExcel - search.cpan.orgを使ってエクセルファイル生成 #!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; use Spreadsheet::WriteExcel; my $url = $ARGV[0]; my $filename = $ARGV[1]; my $scraper = scraper { pr…

Web::Scraper - search.cpan.orgでcookie設定 #!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; use HTTP::Cookies; use Data::Dumper; my $cookie_file = '/path/to/cookies.txt'; my $cookie_jar = HTTP::Cookies->new(file => $coo…

Web::Scraper - search.cpan.orgでproxy設定 #!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; use Data::Dumper; my $url = shift; my $http_proxy = 'http:// proxy : port'; my $scraper = scraper { process '', '' => ''; }; $sc…

Config::Pit - search.cpan.orgの使い方 ワンライナーで登録するには以下のとおりで。 perl -MConfig::Pit -e'Config::Pit::set("d.hatena.jp", data=>{ username=>"login_account", password=>"login_pass" })'以上のデータセットで$HOME/.pitにセットされ…

Yahoo！のテキスト解析Web APIで日本語生成（マルコフ連鎖） - ishiducaの日記 - Hatena::Group::Perlを参考にしました。 #!/usr/local/bin/perl use strict; use warnings; use MeCab; use Data::Dumper; my $text = shift || die "You should set argument…

はてなブックマークのタグを集計してランキング表示する。 404 Blog Not Found:最近のはてブで流行している７つのタグをそのまま真似て書いてみた。 #!/usr/bin/perl use strict; use warnings; use HTML::LinkExtor; use XML::LibXML; use Encode; my $url …

gistpのコードを参考にしてコマンドラインからはてなダイアリーにポストするコードを書いてみた（ただ、ポストするだけ）。 任意のファイルの中身を読み込んでそのままポストできる。 echoなどを使って、一行テキストなどもポストできる。 複数ファイルを一…

Net::Twitterを使ってTwitter search APIを出力する 環境 windows xp sp3 lenovo s10e(netbook) （ppmからconfig::pitがインストールできないのでログイン情報はそのまま） #!/usr/bin/perl use strict; use warnings; use Encode; use Encode::Guess qw/ sh…

Net::Twitterを使ってTwitter search APIを出力する 環境 windows xp sp3 lenovo s10e(netbook) （ppmからconfig::pitがインストールできないのでログイン情報はそのまま） #!/usr/bin/perl use strict; use warnings; use Encode; use Encode::Guess qw/ sh…

Net::Twitterを使ってのperl の勉強 perl を使ってのtwitter replies の取得 #!/usr/bin/perl use strict; use warnings; use Net::Twitter; my $twit = Net::Twitter->new( username => 'username', #ユーザー名 password => 'password', #パスワード ); my…