perl

タイトル付けるのも面倒なんでテキトーに各自脳内変換で

引き続きTwitterものです。(先週の日曜日に書いてたんですが、途中でめんどくさくなって放置してました・・・)過去の投稿を拾ってバックアップ的な事をします。・・・結局、メールで送るようにしてみました。(cronで一日ごとに回す感じの想定です)前回ま…

twitterのつぶやきをリスト形式でまとめる

昨日のをベースにリスト形式(ul-li)にまとめて出力するスクリプトを作ってみました。処理の割に無駄に長いです。 昨日のtwitrss.plをベースにイロイロ追加 #!perl use strict; use warnings; use utf8; use Encode; binmode STDOUT, ":utf8"; use XML::Tre…

思い付きスクリプト

帰宅後、ダカダカ書いてた物を晒しときまーす。いろいろ書きかけですが。 twitscrape.pl #!perl use strict; use warnings; use utf8; use Encode; binmode STDOUT, ":utf8"; use Web::Scraper; use URI; my $input = $ARGV[0] or die 'no input error.'; un…

中途半端なものを垂れ流し

垂れ流すためのブックマークレットを作って垂れ流してみます。 perlスクリプトがメインです。 はてなハイクに垂れ流します。 ダメダメなブツです。 (当初、HTML::TagParserでページタイトルを取得していましたが上手く取得できない時?があるのでWeb::Scrap…

素因数分解

Twitterで素数がどうのこうのというのを見かけたので書いてみた。 元々のは素数計算(素数の生成?)のようでしたが、見た時に頭に浮かんだのは素因数分解だったので・・・。書いてる途中で気付きましたが、まあ・・・。 factor.pl #!perl use strict; use w…

メールからtwitterに投稿。画像添付にも対応(はてなフォトライフ利用)

ってのをやってみました。 メールの内容は標準入力(STDIN)に渡される前提 #!perl use strict; use warnings; use utf8; use Encode; use Email::MIME; use Email::MIME::ContentType; use Email::MIME::XPath; use Config::Pit; use WebService::Hatena::F…

Config::Pitが使えません

Config::Pitってのを最近知って便利そうだったので使おうと思ったのですが・・・なぜか使えん!インストールして、ppit set 'twitter.com' とコマインドラインから実行して情報登録したりはできるんですが、メール受信時処理で利用できん!(たぶん普通にタ…

再帰処理練習(Perl)

先日のニコニコ動画ゲーム実況者さんのTwitterアカウント調査に使用したコードを晒してみます。これは純粋に、実況者さんのTwitter利用状況を知りたい、という欲求がメインではありましたが、ついでに再帰処理モノを書いてみたい、という裏目標があったりし…

はてなハイクAPIを使用して、指定キーワードのタイムラインを取得してからゴニョゴニョしてみる

んーと、先週「あとでやろう」と思ってたんだけど、全くやってなかったハイクAPI関連の続き。 指定したキーワードのタイムラインにいた人のタイムラインを拾ってそいつをヤフーの形態素解析APIに渡して何らかの特徴を抽出する、っていう処理。 ↓にだらだらと…

はてなハイクAPIを使用して、指定キーワードのタイムラインを取得する

さっき小一時間くらい使ってちょこっと書いてみた。 Net::Twitterを継承したパッケージを書いた方が良さそうですが・・・。 #!perl use strict; use warnings; use URI::Escape; use XML::TreePP; use Data::Dumper; # 初期化系 my $keyword = uri_escape('…

ナマケモノはs(ry

と書いておいて、何も書いてませんねー。書こうと思ってたことはあったんですが、なんだかどーでも良くなってしまいました。 せっかく(?)なので、はてなハイクへの投稿をメモっておきます。ハイクのAPIは twitter と互換性あります。ってことなので、Net:…

なんとなくNet::Twitter関連を調べてみた

こことかここの影響でbot作りたいとか考えてるのかも。 しかし、Twitter API 仕様書 日本語訳とかNet::Twitterのドキュメントを読む気は無いのでしたー。(やる気ねーと言われても否定できない! ちなみに私の実験環境はさくらインターネットのスタンダード…

とりあえずHSVでフィニッシュ

ん〜。やっぱりHSVでの判定ですかね・・・?ということで、先日のヤツを部分的に手直しした物をベベっと貼っておこう。 ソースさん(一部) #!perl (省略) # どっかで &pickup_image_colors(ファイル名)みたいに呼ぶ。 # 戻り値は、成功1/失敗0, 一つ目の…

画像を「色別」してみる〜(プログラムの話)

えーと、たぶん、このエントリの前後にも書いてると思うんだけど、「はてなフォトライフ」の「色別」みたいなことしてみたかったんですよ。このエントリは、どーやってやってみたのか。そのプログラムについて語っちゃおうかな〜ってカンジですよ! うっひゃ…