新着資料一覧 https://www.library.city.himeji.hyogo.jp/cgi-bin/Sopcssin.sh @list 部分の数字がカテゴリを指す。 情報が欲しいカテゴリの数値を@listの配列に指定する。 カテゴリ毎の新着書籍情報がメールで送信される。0. 日本の文学 その他の日本文学 …
Email::Send, Email::Send::Gmail. Email::MIMEを使ってGmail経由でメールを送るコード保存用に 主にiPhoneへのメール送信につかっていると。定期的に図書館新着メール、検索サーチ、 まとまった内容をスクラッピングしてまとめて連続でメールする感じでつか…
新しくPerl開発環境を構築中。 はてなダイアリーへコマンドラインからポストするためにXML::Atom::Entry、XML::Atom::Clientを使うわけなんだが、 Ubuntu server 10.04にてCPANモジュールXML::Atomインストールが何度もこけてしまうので悩んでいたんだわけだ…
MacBook Airが当たるキャンペーンに乗っかって、 MacBook Air 11インチ欲しい！（まっくぶっくえあーじゅういちいんちほしい） MacBook Air 11インチ欲しい！とは - はてなキーワード はてなダイアリーで、ブログを書くだけで話題のMacBook Airが当たるキャ…
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などを使って、一行テキストなどもポストできる。 複数ファイルを一…
ホットペッパー Webサービス を利用してtwitter グルメ情報 返信ボットを作成しました。（リクルートより承認いただけました。 ） ask go!go! (askgo) on Twitter 使い方 @askgo help 使い方についての説明を取り出せます。@askgo help ジャンル[or genru] …
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…
twitter reply bot お天気予報返信ボットをperlを使って作成。ask_weather_bot askwbです。 http://twitter.com/askwb 使い方 askwbをフォロー@askwb 地域 [今日 or 明日 or 明後日（ひらがな、カタカナでもOK）] でポストする。 例） askwb 東京 あさって @…
例えば、twitter botをperlを使って作るとして、 何かのメッセージを投げかければ、オウム返しで何かの値を返してくれるものをつくろうと思ったときに、必要な要素は、 keyのなかで、 created_at text user このkeyの値を取得するためには、 use Encord; for…
ハッシュリファレンスの値表示は、 my @value_of_replies = values( %{ @{ $response }[0] } ); foreach my $value ( @value_of_replies ){ print $value, "\n"; }ハッシュの配列。宣言と初期化。要素の参照。すべての要素の出力。 - Perl入門〜サンプルコー…
今度はそのハッシュの中のkeyを取得する my @keys_of_replies = keys( %{ @{$response}[0] } ); foreach my $key ( @keys_of_replies ){ print $key, "\n"; } print "\n";@{$response}[0]は、最初のハッシュのリファレンスを指す。返ってくる値は、 source f…
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…
ココ最近出版されているMovabletype本4.2対応のみ インデックスをクリップ（出版日降順） Amazon.co.jp： これからはじめる MovableTypeの本 (自分で選べるパソコン到達点): やまもと いずみ, ふじかわ まゆこ: 本 http://www.amazon.co.jp/%E3%81%93%E3%82%…
CustomFeed::Script for MixiNewsがうまくいったので、ついでにAmazon.com MP3 Downloads Bestsellers: The most popular items in MP3 Songs. Updated hourly.のランキング100をRSSにするスクリプトを作りました。今まではDapper: The Data Mapperを使って…
web::scraperでmixi news一覧を抜き出すで実行したかったPlaggerを使ってのGmail送信。 試行錯誤の末なんとかうまくいきました。前回のエラーの原因がわからず。 Plagger::Plugin::CustomFeed::Script [error] Error happend while executing '/usr/local/sh…
install Module::Install Feed::Find FindBin::libs HTTP::Engine Image::Info JSON::XS Log::Log4perl MIME::Types MooseX::ConfigFromFile MooseX::Getopt Path::Class Rose::DB Rose::DB::Object String::CamelCase XML::RSS::LibXML DBD::SQLite Log::Di…
まとめサイトやSBMサイトはもっとリンクを意識したUIに改善し、googleは検索評価を下げるべき。[Web系]（http://www.milkstand.net/fsgarage/archives/001494.html）を読んであーそういえば同じコンテンツのサイトが増えたなーというわけで、 自分用にGoogle…
perlの勉強も兼ねて、web::scraperでmiixi news一覧を抜き出しをやってみました。今現在、plagger/www::mixi::scraperを使ってmixiの内容をgmailに送り内容を確認している。 mixiニュースもgmailに送りたくなったので、勉強もかねてwww::mixi::scraperソース…
新聞広告ガイド 日本経済新聞社 広告局http://www.nikkei-ad.com/cb/rank/index.html上記の内容から上位15社のテキストリンクを1(1) トヨタ自動車株式会社 グローバルサイト 2(2) キヤノン：キヤノンホームページ 3(5) 武田薬品工業株式会社 4(4) Hondaホー…
