こういう場合はPP::Subscription::Config使うしかないのかな、できればfeedから取りたかったのだけど。あとtinyurlでリンク壊れたときのフォローとかできていない。APIからきちんと全文取得して、tinyurl.com/hogeqwertyuioみたいな感じになってる場合はURL…

3日ぶりにとら新着読もうとしたらあ行しか出てこなくてあー。$entry->bodyに入ってるHTMLが一定バイト数でぶった切られて、それが本来の長さの分ループして残りが埋められてる感じで壊れている。こないだPPP::GMailが対応したとのことでアップデートしてたMI…

usage % perl glitch20071121.pl [filetype] [frequency param] [repeat] < [src] > [dist]% perl glitch20071121.pl image 1000000 10 < sakkaku.jpg > sakkaku_glitch.jpg % perl glitch20071121.pl text 13 2 < netrunner.txt > netrunner_glitch.txt jpe…

第1引数は画像ファイル、第2引数の等倍が壊すbyte。 usage perl glitch20071120.pl ../Documents/icon/sakkaku.jpg 10000 > ./a.jpg code #!/usr/bin/perl my ($source, $param) = @ARGV; open my $image, '<', $source; my $string; while (<$image>) { $st…

http://blog.tkmr.org/tatsuya/show/405-fooo-name-ldr-greasemonkeyのたこさん版。 javascript:location.href='http://reader.livedoor.com/subscribe/?url='+encodeURIComponent('http://tako3.com/'+location.href)+'&extract=on';

yuisekiが「エントリのメイン画像抽出があるといいかも」と言ってたときに、昼飯まで暇だったので作った。結果のサンプルはこちら。 仕組みはてきとう。まずURLをたくさん与え、その先にある画像の数を数える。たくさんのページにでてきたり、何度もおなじペ…

抽出するところをせっかく作ったので、Tsubuanっぽい動作をするCGIも作ってみた。HTML吐いてるところはお好みでどうぞ。$result->{text}を出力するとTsubuan互換になるはず。そしてengineにTagStructureを使うとさらに性能アップ。 tsubuanlike.cgi #!/usr/b…

Tsubuanが死んでて困ってるところにHTML::Featureが来てこれで勝つる！とおもったけどHTML::Elementで返してくれるのがやっぱり欲しいので、TsubuanっぽいアルゴリズムでEngineを実装してみた。Tsubuanの基礎となるタグ／テキスト比をつかったアルゴリズムは…

LDRのピンを100本以上刺し、Atomフィードを吐いて、/pin/clearコマンドで保存したり、LDRでゆっくり読み直したりするためのツールを書いたので、ソースを晒してみる。APIの乗っ取りにはPlaggerLDRで使用されているHack LDR APIというGM User Scriptをちょっ…

mixiにログイン済みのCookieが必須なのでこれが使える環境の人はあまりいないと思うけど。今回のデザイン変更は主にmixi廃人方面からいろいろ言われているけど、こんなのがサクッと書けるようになったことに関してはとても良かったですね。 author追加と、ti…

buzzっぽいけど役に立つ人10人もいなさそうなレシピ。できたらFastladderにつっこむ。 Tumblr v4で動くように修正。 global: user_agent: cookies: /Users/ec/Library/Cookies/Cookies.plist plugins: - module: Subscription::XPath config: url: http://ww…

Web::Scraperはじめて使うので、かなり変なコードになってる感触。文字コードの扱いとか、あんまり資料がないのでソース読めってことかな。HTMLの状態で文字コード変換してからscraperに突っ込むとかできるのかしら。あとis_adultとかの処理はscraperの中に…

ということで通販対応部分のみを大雑把に切り分けたPPC::ToranoanaMailorderをつくった。今後はこっちだけメンテします。ショップ入荷情報が大幅にシステム改変したとかで動かなくなってもフォローしないので、ユーザの人はよろしくおねがいします。 otsune…

歴史ってなんだよ。 オリジナル http://d.hatena.ne.jp/fuba/20060804/1154680334 大きいサンプル画像付き http://plagger.g.hatena.ne.jp/SweetPotato/20070920/toranoana 通販対応 http://d.hatena.ne.jp/fuba/20060909/1157765169 metaにメタデータが入っ…

ワードサラダとマソリソマソリソが脳内で自然に融合したのできらレボ観ながら書いた。どうぞご利用ください。 例 [puma:~/masososomasososo] ec% perl maso.pl < masocorpus マンソリマリリソ [puma:~/masososomasososo] ec% perl maso.pl < masocorpus マソ…

把握してたルート takesako (y0sh1) on Twitter: "紫色の何かを口に押し付けるオフを開催してみるのはどうか http://tinyurl.com/2z2wj9" http://blog.mizzy.org/articles/2007/06/14/something_purple メキシコ産 on Twitter: "OpenCVで紫色の何かを口に押…

http://fuba.tumblr.com/post/2327086 こういう仕様なら作るまでもない気がしたけど画像Botのために作ってみたけど一瞬で容量制限溢れたので存在意義がなくなってとりあえず放出。コードはやっぱりはてダの方がいいな…。 usage.pl use Net::Tumblr; my $url …

ところで、前のエントリを書く前に誰もダウンロードしてなさそーな新着投稿動画でチェックしてみたら以下のようなメッセージが。個人情報の入力なんて存在しないニコニコ動画専用のIDとパスが収集されたところで（実際収集してるわけないだろうし）大した問…

http://nicosns.inventor.jp/diary/973/ ログインしないと見れないので引用するね。 ニコニコ動画自体がyoutube、amebaなどの動画を直で引っ張って コメントをつけるサービスなので、そういう意味で言えばニコ動画SNSがyoutubeにとってのニコニコ動画と同じ…

ニコ動動画エントリページで実行。ニコ動画SNSの会員しか使えなくなった。 javascript:(function(){if(location.href.match(/\/(\w+\d+)$/))location.href='http://nicosns.inventor.jp/download/'+RegExp.$1;})();つーかこれはニコ動画SNSヤバくね？とおも…

どうぞご利用ください。 usage % perl yugioh.pl はなせ HA☆NA☆SE yugioh.pl #!/usr/bin/perl use strict; use warnings; use Lingua::JA::Romanize::Japanese; my $phrase = shift; my $conv = Lingua::JA::Romanize::Japanese->new(); my @romanized = $co…

どっかにあるんだろうけど探しきれなかった。特定バージョンじゃなくてモジュール自体をブクマしたいとき用。 javascript:(function(){location.href.match(/\/\~\w+\/(.+)/);var mod=RegExp.$1;mod=mod.replace(/\-[\w\d\.]+?\/$/,'');location.href='http:…

中学生からははてなアンテナ！ はてなアンテナ欲しい！

10.4.9かららしい。こないだMacPortsのperl5.8.8に移行したので気付かなかった。StorableとかMIME::Base64が動かないね。 ec% perl -MStorable Storable object version 2.13 does not match $Storable::VERSION 2.15 at /System/Library/Perl/5.8.6/darwin-…

http://i.work.at.wbs.net.au/moztest.txtをコピペしてXvfbのOOPなラッパーを書いた。スクリーンショットサーバをPerlで作りたい人用。moztest.txtのライセンスがよくわからない（as-is）のでアレなんだけど、それを主張してきたとしてもたぶんここまで変わ…

根本的に変わったのでこちらを参考にHTTP::Cookies::Mozillaを使っていたちごっこに付き合ってみる。Mechanizeとか使うのがいいんだろうけど、めんどくさいのでログインはブラウザから手動で方式。IEとかSafariの人は自分で書くかFirefoxを使うといいです。 …

いたちごっこになりそうな仕組みではある。自前ダウンローダに組み込んだので仕事するか…。 いたちごっこになった。とはいえs-skr以降に数字がついただけのうえ、どの数値でも同じflvが落ちてくるっぽいのでとりあえず1-8のランダム値を埋めときました。つい…

単にウザかった。今は反省してWiiで再生させてる。 // ==UserScript== // @name miniRimo // @namespace http://fuba.s7.xrea.com/ // @description Append Rimo on Bloglines // @include http://www.bloglines.com/myblogs_subs* // ==/UserScript== (func…