Skip to content

Instantly share code, notes, and snippets.

View kiyotakagoto's full-sized avatar

KiyotakaGoto kiyotakagoto

14 followers · 12 following
View GitHub Profile
@kiyotakagoto
kiyotakagoto / vbcode.pl
Last active December 12, 2015 04:29
VBCode を perl で実装してみた。
=comment
実行結果：
gotou-no-MacBook-Air:perl kiyotakagoto$ ll packed_ints; ll vbcoded; ll gapped_vbcoded; ll packed_ints_random; ll vbcoded_random; ll gapped_vbcoded_random;
-rw-r--r-- 1 kiyotakagoto staff 40004 2 5 23:37 packed_ints
-rw-r--r-- 1 kiyotakagoto staff 20002 2 5 23:37 vbcoded
-rw-r--r-- 1 kiyotakagoto staff 10002 2 5 23:37 gapped_vbcoded
-rw-r--r-- 1 kiyotakagoto staff 40000 2 5 23:37 packed_ints_random
-rw-r--r-- 1 kiyotakagoto staff 39589 2 5 23:37 vbcoded_random
-rw-r--r-- 1 kiyotakagoto staff 20151 2 5 23:37 gapped_vbcoded_random
gotou-no-MacBook-Air:perl kiyotakagoto$
@kiyotakagoto
kiyotakagoto / gist:3551280
Created August 31, 2012 10:32
tmp
javascript:(
function () {
var stack = [];
var wiki_content_div = ( document.getElementsByClassName('wiki-content') )[0];
var header_number = [1,2,3,4,5,6,7,8,9,10];
var header_number_num = header_number.length;
var i, j;
var headers;
var headers_num;
var wiki_contents = wiki_content_div.childNodes;
@kiyotakagoto
kiyotakagoto / cie_de_2000.pl
Created February 10, 2012 02:02
L*a*b*色空間上で色差を求める CIE DE 2000（ perl ）
# 参考：http://www.brucelindbloom.com/index.html?Eqn_DeltaE_CIE2000.html
=comment
$labx = {
L => value,
a => value,
b => value,
};
=cut
@kiyotakagoto
kiyotakagoto / XYZtoLab.pl
Created February 10, 2012 01:58
XYZ色空間からL*a*b*色空間へ
# 参考：http://www005.upp.so-net.ne.jp/fumoto/linkp25.htm
sub xyz_to_Lab {
my $xyz_href = shift;
my ($Xn, $Yn, $Zn) = ( 98.072, 100, 118.225);
#my ($Xn, $Yn, $Zn) = ( 95.045, 100, 108.892);
my $Lab = {
L => 116 * ( ($xyz_href->{X} / $Yn) ** (1/3) ) - 16,
a => 500 * ( ($xyz_href->{X} / $Xn) ** (1/3) - ($xyz_href->{Y} / $Yn) ** (1/3) ),
b => 200 * ( ($xyz_href->{Y} / $Yn) ** (1/3) - ($xyz_href->{Z} / $Zn) ** (1/3) ),
@kiyotakagoto
kiyotakagoto / matrix_transposing.pl
Created February 7, 2012 05:42
latex : 行と列の入れ替え（最低限の機能）
use strict;
my( @row );
while(<STDIN>){
chomp;
s/\s*\\\\\s*//g;
s/\\hline//g;
push @row, [split /\s*&\s*/];
}
for( my $i = 0; $i <= $#{@{$row[0]}}; $i++ ){
@kiyotakagoto
kiyotakagoto / sRGBtoXYZ.pl
Created December 8, 2011 14:10
sRGBをXYZ表色系に変換（perl）
# 参考：http://www005.upp.so-net.ne.jp/fumoto/linkp25.htm
package sRGBtoXYZ;
use strict;
use warnings;
sub srgb_to_xyz {
my $rgb_href = shift;
my $rgb_dash_href = {
@kiyotakagoto
kiyotakagoto / rgb_to_hsv.pl
Created December 8, 2011 10:40
RGBからHSVに変換する（perl）
package RGBtoHSV;
use strict;
use warnings;
sub rgb_to_hsv {
my $rgb_ref = shift;
my $max_c = get_max( $rgb_ref );
my $min_c = get_min( $rgb_ref );
@kiyotakagoto
kiyotakagoto / dynamic_sql.pl
Created November 24, 2011 08:42
perl : SQL文を動的に作成するときのちょっとキレイなWHERE句の作り方
my $sql = 'select * from hoge where';
my (@where, @bind);
push @where, 'name = ?';
push @bind, 'aiueo';
push @where, 'name = ?';
push @bind, 'kakikukeko';
@kiyotakagoto
kiyotakagoto / get_milliseconds.pl
Created November 23, 2011 10:14
perlでミリ秒を求める
use Time::HiRes;
my $num = 0;
##### gettimeofday() は、1つ目の要素が整数秒、2つ目の要素が小数点以下の数値である配列を返す
my $start_time = join '.', Time::HiRes::gettimeofday;
while ( $num < 10000000 ) {
print $num++, "\n";
}
my $end_time = join '.', Time::HiRes::gettimeofday;
@kiyotakagoto
kiyotakagoto / drag_and_drop_and_sort.js
Created November 22, 2011 10:22
jQuery UI の draggable, droppable, sortable を使って要素を移動＆並べ替え
$('#keywords').droppable({
accept : '.key',
drop : on_drop
});
$('#keywords').children().each( function () {
$(this).draggable({
snap : true,
revert : true
});
});