語句ログ - ニュース、プログラミング、システムトレードの用語解説

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

Fri, 21 Dec 2012 17:23:17 +0900

1バイト(8bit)の10進数を2進数の文字列に変換するコードのC言語版です。

C言語では、PerlやPHPなどのように2進文字列に変換してくれる便利な関数は関数はないので、ビット演算子を使ってビットのオン・オフを判定して、2進文字列を作成していくしかありません。

#include <stdio.h>
#include <string.h>

void dec2bin(char src, char *dest);

const int buf_size = 9;

int main(void)
{
    char buf[buf_size]; /* 変換後の2進文字列を受け取るための領域 */
/*    char str1[] = "abcdefg"; */
    char str1[] = "あいうえお";
    char *cp;

    int num = 1;
    for (cp = str1; *cp; cp++) {    /* 文字数分処理 */
        memset(buf, '\0', sizeof(buf));
        dec2bin(*cp, buf);
        printf("%d:%s (0x%02.2X)\n", num, buf, 0x000000ff & *cp);
        num++;
    }

    return 0;
}

/* 1Byte(8bit)の10進数を2進数の文字列に変換 */
void dec2bin(char src, char *dest)
{
    const int bit_size = 8;
    int i;
    for (i = 0; i < bit_size; i++) {
        dest[i] = (0x80 & src) ? '1' : '0';
        src <<= 1;
    }
}

解きながら学ぶC言語
ソフトバンククリエイティブ著者：柴田望洋,肘井真一,高木宏典,赤尾浩

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

Link(6) | Trackback(0) | Comment(0)

キーワード

C言語 サンプル プログラム コード 2進数 プログラミング

語句ログ - ニュース、プログラミング、システムトレードの用語解説 - 日本の注目ニュース、コンピュータープログラミング（C/C++,Perl,PHP,SQL）、システムトレード（FX,CFD,株価指数,先物）に関する語句（Word）を日本語や英語で解説

[Perl]UTF-8でエンコードされた文字列の部分文字列を取り出すコード

Thu, 13 Dec 2012 10:51:25 +0900

Perlのsubstr関数ではバイト単位の操作になるので、漢字、ひらがな、カタカナなどの全角文字を文字数で指定して部分文字列を取り出すことができません。それでは不都合なことも多いので、半角英数も全角文字も1文字として部分文字列を取り出すことができる関数を作成します。

以下はそのコードです。[Perl]UTF-8でエンコードされた文字列の文字数を取得するコードと同様に、文字の1バイト目のビットの状態を調べることによってその文字が何バイト文字を判定しています。

#!/usr/bin/perl

use strict;
use warnings;

my $testStr = "ABCDEFGあいうえおアイウエオ愛夢佐々木";

print "substr_utf8($testStr, 0, 5) = " . substr_utf8($testStr, 0, 5), "\n";
print "substr_utf8($testStr, 3, 3) = " . substr_utf8($testStr, 3, 3), "\n";
print "substr_utf8($testStr, 10, 4) = " . substr_utf8($testStr, 10, 4), "\n";
print "substr_utf8($testStr, 13, 5) = " . substr_utf8($testStr, 13, 5), "\n";
print "substr_utf8($testStr, 13) = " . substr_utf8($testStr, 13), "\n";

exit;

# UTF-8でエンコードされた文字列の部分文字列を取り出す
# substr_utf8 (文字列式, オフセット[, 長さ]）長さを指定しなかった場合は最後まで
sub substr_utf8 {
    my ($src, $offset, $len) = @_;

    my $srclen = length($src);
    my $pos = 0;
    my $count = 0;
    my $dest = '';

    while ($pos < $srclen) {
        my $code = ord substr($src, $pos, 1); # 先頭のASCIIコード値を取得
        my $bytelen = _bytesize($code);
        if (defined($len)){
            if ($count >= $offset && $count < ($offset + $len)) {
                $dest .= substr($src, $pos, $bytelen);
            }
        } else { # 長さ指定なし
            if ($count >= $offset) {
                $dest .= substr($src, $pos, $bytelen);
            }
        }
        $pos += $bytelen;
        $count++; # 文字数をカウント
    }

    return $dest;
}

# 文字のバイト長を求める
sub _bytesize {
    my $code = shift;
    my $size = 1;
    if (0x80 & $code) { # 1バイト文字以外
        $code <<= 1;
        for my $i (2 .. 8) {
            $size++;
            $code <<= 1;
            last if (!(0x80 & $code));
        }
    }
    return $size;
}

substr_utf8関数では、substr関数を使用して1バイト目のASCIIコード値を取得し、_bytesize関数を呼び出して文字のバイト数を求め、その文字がパラメータで指定された範囲の場合は、戻り値として返す文字列に連結し、そうでなかった場合は文字数のカウントアップのみ行なっています。

_bytesize関数ではパラメータで渡されたコード値の場合の文字のバイト数を、コード値のビットの状態から判定し戻り値として返しています。

もっと自在にサーバを使い倒す業務に役立つPerl (Software Design ｐlus)
技術評論社著者：木本裕紀

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

Link(4) | Trackback(0) | Comment(0)

キーワード

Perl 部分文字列 サンプル プログラム コード

[Perl]UTF-8でエンコードされた文字列の文字数を取得するコード

Wed, 12 Dec 2012 11:56:21 +0900

Perlのlength関数ではバイト単位となるので、UTF-8でエンコードされている場合、漢字、ひらがな、カタカナなどは1文字で3となってしまいます。

ブログなどのアプリケーションのテキスト処理ではそれでは不都合な場合もことも多いので、半角英数も全角文字（漢字、ひらがな、カタカナなど）も1文字としてカウントする関数を作成することにします。

UTF-8では、

1バイト目の先頭ビットが0の場合は1バイト文字
1バイト目の先頭から3ビットが110の場合は2バイト文字
1バイト目の先頭から4ビットが1110の場合は3バイト文字
1バイト目の先頭から5ビットが11110の場合は4バイト文字
1バイト目の先頭から6ビットが111110の場合は5バイト文字
1バイト目の先頭から7ビットが1111110の場合は2バイト文字

という仕様ですので、1バイト目のビットの状態を調べることによって、その文字が何バイトかを調べることができます。

以下のコードでは、この仕様にもとづいて全角文字を含む文字列の文字数を取得しています。

#!/usr/bin/perl

use strict;
use warnings;

my $testAscii = "ABCDEFG";
my $testHira  = "あいうえお";
my $testKata  = "アイウエ";
my $testKanji = "愛々木";
my $testAll = "ABCDEFGあいうえおアイウエオ愛夢佐々木";

print "length($testAscii) = ".length($testAscii), "\n";
print "strlen_utf8($testAscii) = ".strlen_utf8($testAscii), "\n";

print "length($testHira) = ".length($testHira), "\n";
print "strlen_utf8($testHira) = ".strlen_utf8($testHira), "\n";

print "length($testKata) = ".length($testKata), "\n";
print "strlen_utf8($testKata) = ".strlen_utf8($testKata), "\n";

print "length($testKanji) = ".length($testKanji), "\n";
print "strlen_utf8($testKanji) = ".strlen_utf8($testKanji), "\n";

print "length($testAll) = ".length($testAll), "\n";
print "strlen_utf8($testAll) = ".strlen_utf8($testAll), "\n";

exit;

# UTF-8でエンコードされた文字列の文字数を取得する。
sub strlen_utf8 {
    my ($text) = @_;

    my $textlen = length($text);
    my $pos = 0;
    my $count = 0;

    while ($pos < $textlen) {
        my $code = ord substr($text, $pos, 1); # 先頭のASCIIコード値を取得
        my $bytelen = _bytesize($code);
        $pos += $bytelen;
        $count++; # 文字数をカウント
    }

    return $count;
}

# 文字のバイト長を求める
sub _bytesize {
    my ($code) = @_;
    my $size = 1;
    if (0x80 & $code) { # 1バイト文字以外
        $size++;
        $code <<= 1;
        for my $i (2 .. 8) {
            last if (!(0x80 & $code));
            $size++;
            $code <<= 1;
        }
    }
    return $size;
}

strlen_utf8関数では、substr関数を使用して1バイト目のASCIIコード値を取得し、_bytesize関数を呼び出して文字のバイト数を求め、1文字分の処理を行うたびに文字数をカウントアップしています。

_bytesize関数ではパラメータで渡されたコード値の場合の文字のバイト数を、コード値のビットの状態から判定し戻り値として返しています。

ゼロからわかる Perl言語超入門
技術評論社著者：高橋順子

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

Link(3) | Trackback(0) | Comment(1)

キーワード

Perl 文字数 サンプル プログラム コード

[PHP]10進数を2進文字列に変換するコード

Tue, 11 Dec 2012 19:33:29 +0900

PHPの場合は、ズバリ10進数を2進文字列に変換できるdecbin関数があるので、decbin関数を使用すればいいのですが、もちろん、Perlの場合と同様にビット演算で2進文字列に変換することもできます。以下は、そのサンプルコードです。

<?php

// 'A'のアスキーコード値を取得
$asciicode = ord('A');

// PHPのdecbin関数で2進文字列に変換し、sprintfで整形
$binarystr = sprintf("%08.8s", decbin($asciicode));
print $binarystr . " (1)\n"; // for debug

// ビット演算で2進文字列に変換
$binarystr = _binstr($asciicode);
print $binarystr . " (2)\n"; // for debug

function _binstr($code) {
    $str = '';
    for ($i = 0; $i < 8; $i++) {
        $str .= (0x80 & $code) ? '1' : '0';
        $code <<= 1;
    }
    return $str;
}
?>

このスクリプトをコマンドラインで実行すると次のように表示されます。

C:\xampp\htdocs\sample>\xampp\php\php binstr.php
01000001 (1)
01000001 (2)

PHPハンドブック (ハンドブックシリーズ)
ソフトバンククリエイティブ著者：柏岡秀男

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

Link(1) | Trackback(0) | Comment(0)

キーワード

PHP 2進数 変換 サンプル プログラム コード

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

Sun, 09 Dec 2012 20:36:29 +0900

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

Link(4) | Trackback(0) | Comment(0)

キーワード

Perl 2進数 変換 サンプル プログラム コード

[Perl]SimpleAPI Wikipedia APIのサンプルコード

Fri, 24 Sep 2010 20:05:21 +0900

ユーザーローカルが提供しているWikipediaの記述の一部を取得できるWeb APIを、Perlから呼び出すためのサンプルコード。コードの文字エンコードはUTF-8。標準出力へもUTF-8のまま出力。

#!/usr/bin/perluse strict;use warnings;# for warning "Wide character in print at ..."binmode(STDOUT, ":utf8");use URI::Escape;use LWP::Simple;use XML::Simple;my $item = '２ちゃんねる';$item = uri_escape($item);my $url = "http://wikipedia.simpleapi.net/api?keyword=$item";my $content = get($url);my $xml = XML::Simple->new();my $response = $xml->XMLin($content);print "language: $response->{result}->{language}\n";print "datetime: $response->{result}->{datetime}\n";print "body    : $response->{result}->{body}\n";print "strict  : $response->{result}->{strict}\n";print "length  : $response->{result}->{length}\n";print "redirect: $response->{result}->{redirect}\n";print "url     : $response->{result}->{url}\n";print "id      : $response->{result}->{id}\n";print "title   : $response->{result}->{title}\n";

Link(1) | Trackback(0) | Comment(0)

キーワード

Web API Wikipedia Perl サンプル プログラム

[Perl]DBI経由でMySQLに接続して、SELECT文でデータを取得するサンプルプログラム

Mon, 26 Jul 2010 00:12:18 +0900

PerlのプログラムからDBI経由でMySQLに接続し、SELECT文でデータを取得する処理のサンプルプログラムです。

あらかじめphpMyAdminを使用してMySQLにテータベース「testdb」を作成し、以下のSQLを実行しテーブル「users」を作成、3件のレコードを登録しておきます。

CREATE TABLE `users` (  `userid` varchar(100) COLLATE utf8_bin NOT NULL,  `password` varchar(250) COLLATE utf8_bin NOT NULL,  `status` int(11) NOT NULL,  `auth` int(11) NOT NULL,  `username` varchar(250) COLLATE utf8_bin NOT NULL,  `address` varchar(250) COLLATE utf8_bin NOT NULL,  `mailaddr` varchar(100) COLLATE utf8_bin NOT NULL,  `hpurl` varchar(250) COLLATE utf8_bin NOT NULL,  `widgets` text COLLATE utf8_bin NOT NULL,  `createdate` datetime NOT NULL,  `lastupdate` datetime NOT NULL,  PRIMARY KEY (`userid`)) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;insert into `users` (`userid`,`password`,`status`,`auth`, `username`,`address`,`mailaddr`,`hpurl`,`widgets`, `createdate`,`lastupdate`)  values('admin','1234','1','0','webmaster','',  webmaster100@59log.com','http://59log.com/','',now(),now());insert into `users` (`userid`,`password`,`status`,`auth`, `username`,`address`,`mailaddr`,`hpurl`,`widgets`, `createdate`,`lastupdate`)  values('test1','5678','1','1','user 1','',  'test1@59log.com','http://59log.com/','',now(),now());insert into `users` (`userid`,`password`,`status`,`auth`, `username`,`address`,`mailaddr`,`hpurl`,`widgets`, `createdate`,`lastupdate`)  values('test2','abcd','1','1','user 2','',  'test2@59log.com','http://59log.com/','',now(),now());

以下のPerlプログラムでは、テーブル「users」からステータスが1のレコードを全て取得、一旦配列に格納してから標準出力に出力しています。

検索条件の設定にはプレースホルダを使用し、DB処理でエラーが発生した場合は、例外処理に飛んでエラーの内容が出力されるように、RaiseErrorに1を設定しています。

--- mysql_select.pl ---

#!/usr/bin/perluse strict;use warnings;use DBI;my $data_source = "DBI:mysql:testdb"; # 接続先はtestdbmy $username = "test"; # データベースへのアクセス権限を持つユーザーを指定my $password = "abcd"; # そのパスワードmy $status = 1;my @recs = ();eval {    my $dbh = DBI->connect($data_source, $username, $password,                          {RaiseError => 1, PrintError => 0});    my $sql  = "select * from users where status = ?";    my $sth = $dbh->prepare($sql);    $sth->execute($status);    while (my @rec = $sth->fetchrow_array) {        push @recs, [@rec];    }    $sth->finish;    $dbh->disconnect;};if ($@) {    print "Error : $@\n";}foreach my $rec (@recs) {    print join(",", @{$rec}), "\n";}

Link(6) | Trackback(0) | Comment(0)

キーワード

Perl DBI MySQL サンプル プログラム

[Perl][HTML::Template]タグのサンプルプログラム

Thu, 22 Jul 2010 17:36:36 +0900

<TMPL_LOOP>タグはセクションを区切り、名前をつけることができます。この名前つきループの内側に<TMPL_VAR>タグを置き、プログラムでパラメータに代入するハッシュ・リファレンスの param() にリスト(配列リファレンス)を渡すと、リスト分の出力が繰り返されます。

以下は、<TMPL_LOOP>タグの使い方を示すサンプルプログラムです。サンプルプログラムでは、コンマで区切られたデータファイルを読み込んでリストを作成し、それをパラメータに渡してテーブルを表示しています。また、<TMPL_IF>タグ、<TMPL_ELSE>タグを使用してデータがない場合は、テーブルが出力されないようにしています。

--- データファイル（userdata.txt）

kagahiro,kitaakita,kagahiro3@59log.com,011678901admin,tokyo,webmaster10@59log.com,011778901buzei,kawasaki,support2@59bbs.org,041758901

--- テンプレートファイル（tmplloop.tmpl）

<html><head><title>HTML::Templateのサンプルプログラム LOOP</title></head><body><h1>HTML::Templateのサンプルプログラム LOOP</h1><TMPL_IF NAME=DATA_NUM>    <table>    <tr>    <td>User Name</td>    <td>Address</td>    <td>Email</td>    <td>Tel</td>    </tr>    <TMPL_LOOP NAME=USER_INFO>    <tr>    <td><TMPL_VAR NAME=USERNAME></td>    <td><TMPL_VAR NAME=ADDRESS></td>    <td><TMPL_VAR NAME=EMAIL></td>    <td><TMPL_VAR NAME=TEL></td>    </tr>    </TMPL_LOOP>    </table><TMPL_ELSE>    No data</TMPL_IF></body></html>

--- CGI（tmplloop.cgi）

#!/usr/bin/perluse strict;use warnings;use HTML::Template;my $template = HTML::Template->new(filename => 'tmplloop.tmpl');my @loop_data = ();open my $infh, '<', "userdata.txt";while (my $rec = <$infh>) {    chomp $rec;    if ($rec ne '') {        my %row_data;        my ($username, $address, $email, $tel) = split(/,/, $rec);        $row_data{USERNAME} = $username;        $row_data{ADDRESS} = $address;        $row_data{EMAIL} = $email;        $row_data{TEL} = $tel;        push @loop_data, \%row_data;    }}close $infh;$template->param(USER_INFO => \@loop_data);$template->param(DATA_NUM => scalar(@loop_data));print "Content-Type: text/html; charset=utf-8\n\n";print $template->output;

Link(4) | Trackback(0) | Comment(0)

キーワード

Perl HTML Template サンプルプログラム

[Perl][HTML::Template]タグのサンプルプログラム

Thu, 22 Jul 2010 13:20:16 +0900

HTML::Templateの<TMPL_VAR>タグは、プログラムでパラメータに値を設定すると、タグの部分がパラメータで設定された文字列で置き換えられるという簡単なものです。

以下は、<TMPL_VAR>タグの使い方を示す単純なサンプルプログラムです。

--- テンプレートファイル（tmplvar.tmpl）

<html><head><title>HTML::Templateのサンプルプログラム VAR</title></head><body><h1>HTML::Templateのサンプルプログラム VAR</h1><p>My Name is <TMPL_VAR NAME=NAME> <br />My IP Address is <TMPL_VAR NAME=IPADDR> <br /></p></body></html>

--- CGI（tmplvar.cgi）

#!/usr/bin/perluse strict;use warnings;use HTML::Template;my $template = HTML::Template->new(filename => 'tmplvar.tmpl');$template->param(NAME => 'Yamato, Taro');$template->param(IPADDR => $ENV{'REMOTE_ADDR'});print "Content-Type: text/html; charset=utf-8\n\n";print $template->output;

Link(3) | Trackback(0) | Comment(0)

キーワード

Perl HTML Template サンプルプログラム

[Perl]2次元配列のサンプルプログラム

Sat, 17 Jul 2010 00:10:40 +0900

C言語やC++なら2次元配列といっても配列の階層を増やすだけなので、わりと簡単に理解できるのですが、Perlはそこでリファレンスという、いまいちわかりにくいものが出てくるのでちょっと面倒です。

とはいっても、2次元配列程度でならそんなに複雑なコードになるというわけでもありません。

以下は、numdata.txtというコンマで区切られたテキストファイルのデータを、2次元配列に格納してからレコードごとに標準出力に出力するPerlのサンプルプログラムです。

--- numdata.txt ---1,2,3,411,12,13,1421,22,23,2431,32,33,3441,42,43,44--- sample.pl ---#!/usr/bin/perluse strict;use warnings;#use Data::Dumper;my @list;open my $infh, '<', "numdata.txt";while (my $rec = <$infh>) {    chomp $rec;    if ($rec ne '') {        push @list, [split(/,/, $rec)];    }}close $infh;#print Dumper(@list);foreach my $item (@list) {#    print Dumper($item);    my ($a, $b, $c, $d) = @{$item};    print "$a, $b, $c, $d\n";}

初めてのPerl 第5版
オライリージャパン著者：Randal L. Schwartz,Tom Phoenix,brian d foy 価格：3,780円評価：★★★★★

キーワード

Perl サンプルプログラム 2次元配列 リファレンス