fuba fuba
fuba
/ pixiv_fav_on_dashboard.user.js
Created
May 8, 2009 22:15
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ==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
/ yet_another_help_me_ono_matope.user.js
Created
May 31, 2009 12:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ==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
/ TwitterStreamingAPI.pm
Created
July 2, 2009 16:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package Net::TwitterStreamingAPI; | |
| use utf8; | |
| use strict; | |
| use warnings; | |
| use JSON; | |
| use LWP::UserAgent; | |
| use HTTP::Request; | |
| use POE::Filter::Line; |
fuba
/ gist:139744
Created
July 2, 2009 22:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ sift_wrap.pl
Created
July 2, 2009 22:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/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
/ shop_melonbooks_co_jp_tsuhan_20090814.pl
Created
August 13, 2009 16:36
known bug: サンプル画像が無いアイテムの画像が出せない、gifとjpgの判定は表紙画像だけでできるので要修正
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/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
/ one liner k-means for one dimension data
Created
September 9, 2009 19:25
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ mydictionary.txt
Created
December 3, 2009 12:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| さようなら！ http://gyazo.com/ff963bf3962ae877e80c73ca8a7e5caf.png 固有名詞 | |
| かお (╬☉д⊙) 固有名詞 | |
| かお (ﾟДﾟ) 固有名詞 | |
| かお (◔ิД◔ิ ) 固有名詞 | |
| かお ╮(╯ε╰)╭ 固有名詞 | |
| かお (╯Д╰)σ 固有名詞 | |
| かお (◕‿◕✿) 固有名詞 | |
| かお (☣‿☣) 固有名詞 | |
| ぎすぎす (`Д´) 固有名詞 | |
| あせ (;´Д`) 固有名詞 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 2009/12/14 | |
| ## レシピ | |
| + 水に昆布を入れて沸騰する直前で出す | |
| + 削り節を入れて沸騰させたら濾して鍋を変える | |
| + 醤油、みりん、砂糖、鷹の爪少々で味を整える | |
| + 切った大根を鍋に入れ、1時間煮る | |
| + その間に卵をゆでる | |
| + ゆで卵、こんにゃくを鍋に | |
| + 30分煮る | |
| + さつま揚げなどを鍋に |
fuba
/ julius20091224.txt
Created
December 24, 2009 20:22
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| + 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 の内容がへんなテキストになって楽しい |