Perlメモ:BCDとの変換

数字をBCDへ変換、また逆をする。符号なんかを意識しない場合は単純に1行でできる。packとunpackは何故かすぐに忘れるなぁ。

sub num2bcd{
   my $num = shift;
   return pack("H*",$num);

}

sub bcd2num{
    my $bcd = shift;
    return unpack("H*",$bcd);

}
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。