[gcc]iconvで文字エンコードを変換するサンプルプログラム

Mon, 26 Jul 2010 09:54:29 +0900

単にテキストファイル等の文字エンコードを変換するのであれば、iconvコマンドを使用して変換すれば良いのですが、プログラム内部で取得した文字列の文字エンコードを変換したい場合もあります。

以下のプログラムはLinuxやCygwinの環境でC言語のプログラムからiconvを呼び出して文字エンコードを変換する場合の手順を示したサンプルプログラムです。

--- tst_iconv.c ---

#include <stdio.h>#include <iconv.h>#define  BUFSIZE  1024char outbuf[BUFSIZE];int convert(char const *src,            char const *dest,            char const *text,            char *buf,            size_t bufsize);main(void){    int ret;    ret = convert("SHIFT-JIS", "UTF-8",                  "日本語テストメッセージおはよう",                  outbuf, sizeof(outbuf));    if (ret) {        printf("%s\n", outbuf);    }    else {        printf("Oops!\n");    }}int convert(char const *src,            char const *dest,            char const *text,            char *buf,            size_t bufsize){    iconv_t cd;    size_t srclen, destlen;    size_t ret;    cd = iconv_open(dest, src);    if (cd == (iconv_t)-1) {        perror("iconv open");        return 0;    }    srclen = strlen(text);    destlen = bufsize - 1;    memset(buf, '\0', bufsize);    ret = iconv(cd, &text, &srclen, &buf, &destlen);    if (ret == -1) {        perror("iconv");        return 0;    }    iconv_close(cd);    return 1;}

コンパイル方法
$ gcc -o tst_iconv tst_iconv.c -liconv

ICONV

Link(2) | Trackback(0) | Comment(0)

キーワード

C言語 プログラミング

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

[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 サンプル プログラム