日付文字列のencode/decode 2006-09-04-1 [Programming] 自分用メモ。 とある用途に、日付っぽい文字列を手軽に可逆変換する方法を模索中。 モジュールなしで済ませたい。 #encode(aiueo) perl -e '$n=shift;@k=split("","aiueo");while($n > 0) {$r=$n%5;$n=int($n/5);print$k[$r]};print"\n"' 200607011 #decode(aiueo) perl -e '%h=("a"=>0,"i"=>1,"u"=>2,"e"=>3,"o"=>4);$n=shift; for(reverse split("",$n)){$sum*=5;$sum+=$h{$_}};print"$sum\n"' iuaiioeueuao #encode(16) % perl -