[8]の検索結果

－

A [Perl]1バイト(8bit)の10進数を2進数の文字列に変換するコード

Perlの関数を使用して、以下の手順で10進数を2進文字列に変換することができます。

sprintf関数で10進数を16進文字列に変換
pack関数で16進文字列をバイナリーにパック
unpack関数で2進文字列に変換

例えば、文字列の先頭文字のASCIIコード値（10進数）を取得し、それを2進文字列に変換に変換する場合は、次のようなコードになります。

#!/usr/bin/perl

use strict;
use warnings;

my $ascii = "ABC";
my $asciicode = ord $ascii;  # 先頭文字のASCIIコード値を取得
my $str = _bitstr($asciicode, 8);
print "str   = $str\n"; # for debug

exit;

# 10進数を2進文字列に変換する関数
sub _bitstr {
    my ($code, $len) = @_;
    my $hexcode = sprintf("%X", $code); # 16進に変換
    my $bitstr = unpack("B".$len, pack("H2", $hexcode));
}

10進数を単に2進文字列に変換するだけならこれでも構わないのですが、ビット演算子を使ってビットのオン・オフを判定して、 2進文字列を作成していく方法もあります。以下のコードはその実装例です。

#!/usr/bin/perl

use strict;
use warnings;

my $ascii = "ABC";
my $asciicode = ord $ascii;  # 先頭文字のASCIIコード値を取得
my $str = _bitstrR($asciicode, 8);
print "str   = $str\n"; # for debug

exit;

# ビット演算で10進数を2進文字列に変換する関数
sub _bitstrR {
    my ($code, $len) = @_;
    my $bitstr = '';
    for my $i (1 .. $len) {
        $bitstr .= (0x80 & $code) ? '1' : '0'; # 0x80(2進数：10000000)でビット論理積をとる
        $code <<= 1;
    }
    return $bitstr;
}

ここで問題になるのはどちらの方法が処理速度が優れているかということですが、以下のコードのプロファイルを取ると・・・

#!/usr/bin/perl

use strict;
use warnings;

my $ascii = "ABC";
my $asciicode = ord $ascii;  # 先頭文字のASCIIコード値を取得

my $str = '';
for my $j (1 .. 10000) {
    $str = _bitstr($asciicode, 8);
    $str = _bitstrR($asciicode, 8);
}
print "str   = $str\n"; # for debug

exit;

sub _bitstr {
    my ($code, $len) = @_;
    my $hexcode = sprintf("%X", $code); # 16進に変換
    my $bitstr = unpack("B".$len, pack("H2", $hexcode));
}

sub _bitstrR {
    my ($code, $len) = @_;
    my $bitstr = '';
    for my $i (1 .. $len) {
        $bitstr .= (0x80 & $code) ? '1' : '0'; # 0x80(2進数：10000000)でビット論理積をとる
        $code <<= 1;
    }
    return $bitstr;
}

C:\xampp\htdocs\sample>perl -d:Dprof bitstr3.pl
str   = 01000001

C:\xampp\htdocs\sample>dprofpp
Total Elapsed Time = 0.018988 Seconds
  User+System Time = 0.016988 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
223.   0.038  0.038  10000   0.0000 0.0000  main::_bitstr
47.0   0.008  0.008  10000   0.0000 0.0000  main::_bitstrR
0.00       - -0.000      1        -      -  strict::import
0.00       - -0.000      1        -      -  warnings::import
0.00       - -0.000      1        -      -  strict::bits
0.00       - -0.000      2        -      -  main::BEGIN

やはり、ビット演算で2進文字列を作成するほうが早いようです。

プログラミングPerl〈VOLUME1〉
オライリー・ジャパン著者：ラリーウォール,ジョンオーワント,トムクリスチャンセン

amazon.co.jpのカスタマーレビューを見る
powered by amalink

[2239] Posted by kagahiro at 2012/12/09 20:36:29
0 point | Link (4) | Trackback (0) | Comment (0)

－

B Windowsストア日本語

ブックマーク先へ

Windowsストアは、マイクロソフトがて運営するWindows 8とWindows RT向けアプリ（ソフトウェア）のマーケットプレイスで、有料アプリはもちろん多数の無料アプリのほか体験版なども豊富に揃っている。ストア内を検索して気に入ったアプリをダウンローぢしてインストールすることが可能で、価格や評価での絞り込みもできる。

Windowsストアへのアプリ登録には、Microsoftによる審査を通過する必要で、開発者アカウントを作成するには、個人は49ドル、法人は99ドルの登録料を支払う必要がある。アプリが売れた場合、開発者は売り上げの70%（売り上げが25,000ドル上回った場合、80%）を受け取ることができる。

Windows 8 向けアプリ - Microsoft Windows
MS、Windows ストアの詳細を発表。取り分は最大80%、アプリ内決済も自由化
Windows Store 開発者向けブログ - Site Home - MSDN Blogs

Microsoft Windows 8 Pro 発売記念優待版 (XP・Vista・7からのアップグレード専用:2013年1月31日まで)
マイクロソフト

amazon.co.jpのカスタマーレビューを見る
powered by amalink

[2234] Posted by kagahiro at 2012/10/26 18:16:54
0 point | Link (2) | Trackback (0) | Comment (0)

－

A Windows 8（ウィンドウズエイト）日本語版

PC向けのOS(オペレーティングシステム)としては圧倒的なシェアを持つマイクロソフトのOS「Windows」の最新版「Windows 8（ウィンドウズエイト）」の日本語版の販売が開始された。Windows 8（ウィンドウズエイト）は、Windows 7の後継として開発されたパソコン及びタブレット端末用OS。

日本マイクロソフトの専用サイトでは、Windows XP/Vista/7のユーザーを対象としたWindows 8 Proへのアップグレード版が3,300円でダウンロード販売（パッケージ版の Windows 8 Proは5,800円程度）されており、アプリケーションやハードウエアの互換性をチェックし、対応状況を確認した上で購入が可能になっている。

なお、3,300円という価格は、2013年1月31日までの期間限定のキャンペーン価格なので、キャンペーン期間の終了後は大幅な値上げが予想される。

Windows を購入する - Microsoft Windows
［Windows 8発売］3300円のダウンロード販売も開始
Microsoft Windows 8
Windows 8 Release Preview
Microsoft Windows 8発売日　Windows 8　10月26日発売決定　情報まとめ

Microsoft Windows 8 Pro (DSP版) 64bit 日本語
マイクロソフト(DSP)