Kim Ahlström Kimtaro
Kimtaro
/ gist:157305
Created
July 28, 2009 13:46
This file contains 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
| # ======================== | |
| # = Specific to Japanese = | |
| # ======================== | |
| if ( $c->stash->{query}->{form}->{jap} ) { | |
| $query->{'jap.jap'} = {'like' => $c->stash->{query}->{sql}->{jap_tokens}}; | |
| my $q_jap = $c->model('DJDB')->storage->dbh->quote($jap); | |
| $options = { | |
| join => [qw/jap/], | |
| order_by => qq{ |
Kimtaro
/ gist:135013
Created
June 24, 2009 04:38
This file contains 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
| use strict; | |
| use warnings; | |
| use utf8; | |
| use LWP::UserAgent; | |
| use JSON; | |
| use XML::Simple; | |
| use Data::Dumper; | |
| use Time::HiRes qw(gettimeofday tv_interval); | |
| use URI::Escape qw(uri_escape_utf8); |
Kimtaro
/ gist:119045
Created
May 28, 2009 02:15
This file contains 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
| # -*- encoding: utf-8 -*- | |
| require 'benchmark' | |
| require 'rubygems' | |
| require 'active_support' | |
| require 'oniguruma' | |
| include Oniguruma | |
| SKIP_INVALID_UTF8 = Iconv.new('UTF-8//IGNORE', 'UTF-8') | |
| SIZE_R = ORegexp.new('.', '', 'utf8') |
Kimtaro
/ api_functional.pl
Created
March 26, 2009 17:06
This file contains 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
| # Run like so: perl api_functional.pl api.smart.fm YOUR_API_KEY | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Test::More qw(no_plan); | |
| use LWP::UserAgent; | |
| use JSON; | |
| use XML::Simple; | |
| use Data::Dumper; |
Kimtaro
/ gist:77928
Created
March 12, 2009 05:48
This file contains 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/env ruby | |
| # TextMate command for very simple pretty-printing of SQL | |
| print $stdin.readlines.join("\n").gsub(/ | |
| ( | |
| SELECT (\s+ DISTINCT)? | | |
| FROM | | |
| (LEFT (\s+ OUTER)? | INNER)? \s* JOIN | | |
| UNION | | |
| WHERE | |
This file contains 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
| require 'test/unit' | |
| require 'test/unit/ui/console/testrunner' | |
| module Kaku | |
| FULLWIDTH_ROMAJI = '！＂＃＄％＆＇（）＊＋，－．／０１２３４５６７８９：；＜＝＞？＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［＼］＾＿｀ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝～ ' | |
| HALFWIDTH_ROMAJI = '!"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ' | |
| def fullwidth_to_halfwidth(text) | |
| text.gsub(/\xEF[\xBC\xBD]./) do |m| | |
| m[1] == 188 ? |
Kimtaro
/ phones.rb
Created
February 5, 2009 01:54
— forked from mattt/phones.rb
This file contains 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
| # 'r' after open-mid central unrounded? | |
| module Keats | |
| module Phones | |
| IPA_CONSONANTS = { | |
| "B" => "b", # b - Lower-case B <be> voiced bilabial plosive | |
| "CH" => "t\312\203", # tʃ - T-Esh ligature <cheese> voiceless postalveolar affricate | |
| "D" => "d", # d - Lower-case D <dee> voiced dental or alveolar plosive | |
| "DH" => "\303\260", # ð - Eth <thee> voiced dental fricative | |
| "F" => "f", # f - Lower-case F <fee> voiceless labiodental fricative |
NewerOlder