
ニッセン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