スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

uuidを短めに

UUIDを短くしようと思って、こんなの書いた。
use strict;
use warnings;
use APR::UUID;
use MIME::Base64::URLSafe;

sub uuid_b64_urlsafe {
    my $uuid = APR::UUID->new->format;
    my $packed = pack("H8H4H4H4H12", split('-', $uuid));
    return urlsafe_b64encode($packed);
}
CPANにある Data::UUID::Base64URLSafeを使えばいいんだけど、APR::UUIDでやりたかったんだよー。それにしてもなんだか遅そうだな。ベンチとってみようかな。
スポンサーサイト

この記事のトラックバックURL

http://saltyduck.blog12.fc2.com/tb.php/31-c7524e79

コメント

コメントする

管理者にだけ表示を許可する

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。