ニッセン2010秋の新作商品をコーディネートしていただき、8月21日(土)にスパイラルホール(東京・青山)にて香里奈と一緒にショーに出演していただきます。会場にはたくさんのマスコミの方々が取材に来ています。(http://www.best-styling.jp/flow/index.html)
あなたの写真がWEBや雑誌などのメディアに掲載されるかも!?
((9 x 12 + 0) x 31 + 1) x 24) + 2 = 80378
ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz
0123456789-_
Tn6
#!/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