[を]CHALOW Search: date:2010-08-15

6 件見つかりました。

このブログの記事URLを可逆圧縮する仕掛け(Pure Perl)

2010-08-15-6 [Programming][Algorithm]

このブログの記事専用のURL短縮の仕掛けを作りました。
tinyurl.com や bit.ly などのURL短縮サービスの「たつをの ChangeLog」専用ロジックです。
特徴はデータベースを使っていないこと。
ロジックのみで圧縮、展開ができるのでメンテフリーで超軽量です。

ロジックの解説

このブログは chalow というブログツールを使っているのですが、各記事の URL の最後は日付＋その日の通し番号となっています。

例えば
「http://chalow.net/2009-01-02-3.html」
は
「2009年1月2日の3つ目の記事」
を表しています。

このブログでは1日あたり24記事も書くことはないので、何個目の記事を表す通し番号は「時」とみなすことにします。
つまり
「2009年1月2日3時」
となります。

で、「2009年1月2日3時」を10進数の数値にします。
と、その前に chalow でのブログは2000年からなので、年は2009から2000を引いて9にしておきます。
あと計算のため月、日、時はそれぞれ1マイナスしています。
「9年0月1日2時」になります。

さて10進数にしてみます。

((9 x 12 + 0) x 31 + 1) x 24) + 2 = 80378

まあ、ユリウス通日みたいにどこかを基準にした経過日数に変換しても良いのですが、面倒だし本質ではないので上記の式でざっくりと。

これを64進数に変換します。
使う字は下記の64文字。小さい順に並べてあります。
Base64っぽい感じです。

ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz
0123456789-_

「2009年1月2日3時」→「80378」の64進数変換結果は下記となります。

Tn6

つまり、「http://1.jp/」がURL短縮サイトとすると、
「http://chalow.net/2009-01-02-3.html」
は
「http://1.jp/Tn6」
に圧縮されます。

戻すときは今の手順を逆に進めばOKです。
データベースは不要ながら、なかなかの圧縮率です。

コードと実行例

サンプルコードと実行例です。

■コード（tinytcl.pl）：

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

my ($y, $m0, $d0, $h) = (2009,1,2,3);
print "ID(DATE): $y, $m0, $d0, $h\n";

my $ec = clid_encode($y, $m0, $d0, $h);
print "Short CODE: $ec\n";

($y, $m0, $d0, $h) = clid_decode($ec);
print "ID(DATE): $y, $m0, $d0, $h\n";

sub clid_encode {
    my ($y, $m, $d, $h) = @_;
    $m--; $d--; $h--;
    $y -= 2000 if $y >= 2000;
    my $ec = (($y * 12 + $m) * 31 + $d) * 24 + $h;
    my $str = "";
    while ($ec > 0) {
	my $v = $ec %64;
	my $c = substr("ABCDEFGHIJKLMNOPQRSTUVWXYZ"
		       ."abcdefghijklmnopqrstuvwxyz"
		       ."0123456789-_", $v, 1);
	$str = $c.$str;
	$ec = int($ec / 64);
    }
    return $str;
}

sub clid_decode {
    my ($str) = @_;
    my $ec = 0;
    foreach my $c (split(//, $str)) {
	my $v = index("ABCDEFGHIJKLMNOPQRSTUVWXYZ"
		      ."abcdefghijklmnopqrstuvwxyz"
		      ."0123456789-_", $c);
	$ec = $ec * 64 + $v;
    }
    my $h = $ec % 24;
    $ec = int($ec / 24);
    my $d = $ec % 31;
    $ec = int($ec / 31);
    my $m = $ec % 12;
    $ec = int($ec / 12);
    $m++; $d++; $h++;
    $ec += 2000 if $ec < 100;
    return ($ec, $m, $d, $h);
}

■実行例：

% ./tinytcl.pl
ID(DATE): 2009, 1, 2, 3
Short CODE: Tn6
ID(DATE): 2009, 1, 2, 3

この記事に言及しているこのブログ内の記事

このブログに記事URL短縮の仕掛けを施しツイッター投稿をアシスト (2010-08-16)

サッポロと不二家のコラボ「不二家ネクター NECTARサワー」

2010-08-15-5 [飲食物]

桃が好きです。
桃のジュースも好きです。
不二家ネクターも好きです。
最近、不二家ネクターのサワーが出ました。

- ネクターサワースパークリングピーチ | サッポロビール
http://www.sapporobeer.jp/nectar/

シュワッとしてて酔っ払うネクターです。
妊娠中の妻は飲めないので私だけが楽しみました！
（妻は普通の不二家ネクターを飲んでおります……。）

【日記】この週末の主な出来事(2010/8/13-15)

2010-08-15-4 [日記]

この土日の主なできごとのメモ。

8/13（金）

午前半休。

朝、妻の定期検診のために病院へ。
切迫早産でそのまま入院となる[2010-08-13-1]。
当座の荷物を取りに帰って、病室に届けて、そのまま仕事へ。

仕事が終わって、会社から病院へ。
病院で妻の面会。

8/14（土）

昼頃起きる。

キャベ玉チキンラーメンで朝昼兼用ブランチ。

洗濯と布団干しなどの家事いろいろ。

iPad が届く[2010-08-14-3]。

病院で妻の面会。
荷物の不足分をこまごまと持って行ったり。

帰宅して iPad の設定など。

病院で妻の面会、その2。

8/15（日）

iPad用保護フィルムを買いに自転車で渋谷ビックカメラへ。
開店までの間、隣接するマクドナルドにて朝食。
ビックカメラ開店と同時にフィルムを買って帰る[2010-08-15-2]。

風呂場（浴室）で散髪する（前回の散髪は5月[2010-05-16-2]）。
鏡を2枚使って自分で髪を切る。
結構大変で、しかも後ろはきれいに揃えられなかった。

そのままシャワーを浴びたのち、先ほど買ってきたiPadフィルムをiPadに貼る作業。
湿気が多い場所でやるのがホコリの入り込みを防ぐこつ。

お昼は明星中華三昧の冷やし中華。
ざっくりと大雑把に作った。

15時ごろ持って病院へ行く。
iPad を使って、マタニティ、ベビー用品を通販サイトで発注するなど。

20時過ぎに帰宅。

ミニくまビスはちみつ風味

2010-08-15-3 [飲食物][カワイイ]

小さくてかわいいクマのビスケットがローソンで売っていたのでついつい買ってしまいました。これはかわいい！

味は想像通りのはちみつクッキー。
一瞬で食べきってしまいました…。

商品名の「ミニくまビス」もかわいい感じ。
最初はビス（ねじ）かと思っちゃったけど。
パッケージの写真を遠くから見るとビスっぽいものが入っていそうだし（ないない）。

photos by :

■Canon デジタル一眼レフカメラ EOS Kiss X2
[楽天で探す]

■Canon EFレンズ 35mm F2
[楽天で探す]

iPad用の保護フィルムを買った！

2010-08-15-2 [iPad]

朝一で渋谷のビックカメラへ行き、iPad 用の保護フィルムを買いました。

■レイアウト iPad(2010年1月発表モデル)用ギラツキ防止AG保護フィルム RT-PA1FS1/AG
[楽天で探す]

シャワーを浴びたあとの湿気が多くてホコリが舞ってない浴室で慎重に貼りました。
一度「ペコッ」と折れ目がついてしまった箇所に小さな気泡ができてしまったのですが、ホコリは入らずにすみました。
めでたし、めでたし！

- [を] iPad をゲットしました！こりゃいいわ！[2010-08-14-3]
- [を] iPhone用シリコンジャケットを買った！[2009-08-12-2]
（保護フィルム付きだった。）