fuba

// ==UserScript==
// @name           Courteous favorite on dashboard
// @namespace      http://fuba.moarningnerds.org/
// @description    favorite a reblogged item using their original service
// @include        http://www.tumblr.com/dashboard*
// @require        http://gist.github.com/3238.txt
// ==/UserScript==

var SITEINFO = [
    {

fuba

// ==UserScript==
// @name           YetAnotherHelpMeOnoMatope
// @namespace      http://fuba.moaningnerds.org/
// @include        http://favotter.matope.com/*
// ==/UserScript==

if (document.title == '503 Service Temporarily Unavailable')
    document.body.innerHTML += '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,124,0" width="290" height="350" id="TwitterWidget" align="middle"><param name="allowScriptAccess" value="always" /><param name="allowFullScreen" value="false" /><param name="movie" value="http://static.twitter.com/flash/widgets/profile/TwitterWidget.swf" /><param name="quality" value="high" /><param name="bgcolor" value="#000000" /><param name="FlashVars" value="userID=4426821&styleURL=http://static.twitter.com/flash/widgets/profile/smooth.xml"><embed src="http://static.twitter.com/flash/widgets/profile/TwitterWidget.swf" quality="high" bgcolor="#000000" width="290" height="350" name="TwitterW

fuba

package Net::TwitterStreamingAPI;
use utf8;
use strict;
use warnings;

use JSON;
use LWP::UserAgent;
use HTTP::Request;
use POE::Filter::Line;

fuba

perl ~/bin/sift_wrap.pl ~/Dropbox/sift_test/1.pgm 4 > 1_big.yaml && perl ~/bin/sift_wrap.pl ~/Dropbox/sift_test/1.jpg 4 > 1_small.yaml && perl -MYAML -e 'my$big=YAML::LoadFile(shift);my$small=YAML::LoadFile(shift);while(my($key,$value)=each %$big){printf("%s: %.01f %.01f\n", $key, $value, $small->{$key}) if $small->{$key}}' 1_big.yaml 1_small.yaml
4494ddeb1a323184102b9cfdc5455cbe: 0.0 0.0
473465015f3f6f4f620a8c7c476788aa: 0.0 0.0
975d2d07fec2fd0a849907e6f6d83b4f: 0.0 0.0
46247a905d5621e318d98648d407d392: 0.2 0.2
3e77fe7aad66fd2dfa81e3a66a619944: 0.0 0.0
41c7e1577ec9d4015e5a6201c108738d: 0.0 0.0
2df5cbbcda82a7c1167af415dedbb2c6: 0.0 0.0
f4569184b6b0d2ea20f484f9695f2fb1: 0.0 0.0
3f209cfef4bb0f614fb0b00950a78243: 0.0 0.0

fuba

#!/usr/bin/perl
use strict;
use warnings;

# $ ./sift_wrap.pl nantoka.jpg 4
# This script is a Vlfeat no sift command no wrapper desu.
# pgm ja nakattara convert de henkan simasu.
# 128 jigen no vector no youso ha sorezore 0-255 no suuchi nanode
# sono range wo chidimeru option ga aru. tatoeba 0-3 nara 4 to shitei suru.
# sitei sinakattara sift command no kekka wo haku.

fuba

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use DateTime;
use DateTime::Format::Strptime qw( strptime );
use Encode qw( decode encode );
use Time::ParseDate;
use URI;

fuba

perl -e 'srand(time);my@data=map{int rand(10000000)}(0..100); my @c = map {int rand(6)} @data; for my $loop (0..30) {my %avg;my %num;for my $i (0..$#data){$avg{$c[$i]} += $data[$i];$num{$c[$i]}++;} map{$avg{$_}/=$num{$_}}keys %avg;for my $i(0..$#data){my$l = 0; for my $cl(keys%avg){$l=(abs($avg{$cl}-$data[$i]) < abs($avg{$l}-$data[$i])) ? $cl : $l} $c[$i]=$l } warn join " ","loop_${loop}|",map{$_->{c}.":".$_->{d}}sort{$avg{$a->{c}}<=>$avg{$b->{c}}}map{+{d=>$data[$_], c=>$c[$_]}}(0..$#c); }'

fuba

さようなら！	http://gyazo.com/ff963bf3962ae877e80c73ca8a7e5caf.png	固有名詞
かお	(╬☉д⊙)	固有名詞
かお	(ﾟДﾟ)	固有名詞
かお	(◔ิД◔ิ　)	固有名詞
かお	╮(╯ε╰)╭	固有名詞
かお	(╯Д╰)σ	固有名詞
かお	(◕‿◕✿)	固有名詞
かお	(☣‿☣)	固有名詞
ぎすぎす	(`Д´)	固有名詞
あせ	(;´Д`)	固有名詞

fuba

2009/12/14
## レシピ
+ 水に昆布を入れて沸騰する直前で出す
+ 削り節を入れて沸騰させたら濾して鍋を変える
+ 醤油、みりん、砂糖、鷹の爪少々で味を整える
+ 切った大根を鍋に入れ、1時間煮る
 + その間に卵をゆでる
+ ゆで卵、こんにゃくを鍋に
+ 30分煮る
+ さつま揚げなどを鍋に

fuba

+ julius, mecab, saykana, ffmpeg インストールする
+ dictation-kit もってくる
+ dictation-kit-v4.0/fast.jconf の -input を rawfile にする
+ wav2text.pl の fast.jconf のパスを修正
+ 実行
 $ cat textfile | perl saykana_wrapper.pl /tmp/sample.wav && wav2text.pl /tmp/sample.wav
+ textfile の内容がへんなテキストになって楽しい