Perlで16進数を2進数に変換する

Perlで16進数を2進数に変換する

Posted at December 27,2013 2:55 AM
Tag:[Perl]

Perlで16進数を2進数に変換する方法を紹介します。

Perlで16進数を2進数に変換

このエントリーはPerlビギナーの方向けの内容です。

1.16進数を2進数に変換する

16進数を2進数に変換するには、16進数の文字列をpack()を使ってバイナリ文字列に変換し、さらにunpack()を使って2進数の文字列に変換します。

16進数2文字の場合は8ビット展開されるよう、次のようにします。

#!/usr/bin/perl
 
use strict;
 
my $num = unpack("B8", pack("H2", "7B"));
print "$num\n";

実行結果

01111011

「7F」の部分に変換元の16進数を設定します。

16進数4文字の場合は16ビット展開されるよう、次のようにします。

#!/usr/bin/perl
 
use strict;
 
my $num = unpack("B16", pack("H4", "F7AC"));
print "$num\n";

実行結果

1111011110101100

「F7AC」の部分に変換元の16進数を設定します。

2.16進数の桁数が動的に変わる場合

16進数の桁数が動的に変わる場合、pack()やunpack()の第1パラメータを動的に変更するには次のようにするとよいでしょう。

#!/usr/bin/perl
 
use strict;
 
my $hex = 'F7AC';
my $hex_length = length( $hex );
my $bin_length = $hex_length * 4;
 
my $num = unpack("B" . $bin_length,  pack("H" . $hex_length, $hex ));
print "$num\n";
関連記事
zenback
人気エントリー
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)