[コード]の検索結果

＋ 

B Rubinius

  ブックマーク先へ

－ 

B Rubinius

  ブックマーク先へ

Rubiniusは、Smalltalk-80の概念や仮想マシン実装を参考にしたRuby実装で、バイトコードコンパイラなど大部分がRubyで実装されている。ライセンスはBSD License。Rubinius

Rubiniusは、Smalltalk-80の概念や仮想マシン実装を 参考にしたRuby実装で、バイトコードコンパイラなど大部分がRubyで実装されている。ライセンスはBSD License。

Rubinius

[2033] Posted by kagahiro at 2010/09/27 16:48:35
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

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

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

#!/usr/bin/perl

use 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";

[2032] Posted by kagahiro at 2010/09/24 20:05:21
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A Google Developer Day 2010 アジェンダ

－ 

A Google Developer Day 2010 アジェンダ

Google Developer Day 2010 のアジェンダが公開されました。テーマは、「Android」「Chrome & HTML5」「Cloud Platform」の三つだそうです。東京 2010年9月28日 火曜日 9:00 - 開場10:00 - 12:00 基調講演12...

Google Developer Day 2010 のアジェンダが公開されました。テーマは、「Android」「Chrome & HTML5」「Cloud Platform」の三つだそうです。

東京 2010年9月28日 火曜日

 9:00 -        開場
10:00 - 12:00  基調講演
12:00 - 17:00  デベロッパーサンドボックス
12:00 - 17:00  ブレイクアウトセッション
13:00 - 17:00  オフィスアワー
17:00 - 19:00  東京 GTUG 主催ライトニングトーク

Android
Android のパフォーマンス、ユーザーエクスペリエンス、アプリを作る上での注意事項。

Chrome & HTML5
Chrome Web Store ローンチに向けた予備知識と理想的なウェブアプリケーションのあり方、実装方法やパフォーマンス改善方法について。

Cloud Platform
App Engine for Business、Spring integration、Google Web Toolkit、Google Storage for Developers、BigQuery、Prediction API、サンプルコードやパフォーマンス改善方法などApp Engineの最新情報。

Google Developer Day 2010 アジェンダのお知らせ
Google Developer Day 2010

面白そうだけど、クイズの採点ってまだ出てないよね。

[2018] Posted by kagahiro at 2010/09/03 23:01:38
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A DevQuiz しりとりで使ったプログラム #gdd2010jp

－ 

A DevQuiz しりとりで使ったプログラム #gdd2010jp

まず、今回のクイズのしりとりに勝つため私が考えた作戦は、相手（コンピュータ）に、先頭に使用されているより末尾に使用されている数が多いアルファベットの単語から選ばせるようにすれば、そのうち相手が手詰まり...

まず、今回のクイズのしりとりに勝つため私が考えた作戦は、相手（コンピュータ）に、先頭に使用されているより末尾に使用されている数が多いアルファベットの単語から選ばせるようにすれば、そのうち相手が手詰まりになって勝てるだろうというものでした。

そのため、選択肢となる単語に使用されている先頭のアルファベットと末尾のアルファベットの数を調べるためのプログラムを作成し、その結果をもとに以下の優先順位で回答を選択していきました。

1.単語の末尾が先頭の方が少ないアルファベットのもの
2.単語の末尾が先頭と末尾で同じアルファベットのもの
3.単語の末尾が先頭の方が多いアルファベットのもの

例えばLv3の場合、以下のような結果になるので、提示される選択肢の中からできるだけ末尾が、b、f、g、i、k、q、s、u、v、wのものを選択していけば良いということになります。

a :  14   11  >>
b :  11   12  <<!
c :   4    4  ==
e :   4    4  ==
f :  11   12  <<!
g :  11   12  <<!
h :   4    4  ==
i :   4    5  <<!
j :  14   11  >>
k :  11   12  <<!
l :   3    3  ==
m :   4    4  ==
n :   3    3  ==
o :  14   11  >>
p :   4    4  ==
q :  11   12  <<!
r :   3    3  ==
s :  11   12  <<!
t :   4    4  ==
u :  11   12  <<!
v :  11   12  <<!
w :  11   12  <<!
y :   4    4  ==
z :   5    4  >>

--- siritori.pl

#!/usr/bin/perl
#
# GDD 2010 DevQuiz しりとり
#

use strict;
use warnings;

my %alpha_head = ();
my %alpha_tail = ();

open my $infh, '<', "siritori.txt";
while (my $word = <$infh>) {
    chomp $word;
    my $head = substr($word, 0, 1);
    my $tail = substr($word, length($word) - 1, 1);
    $alpha_head{$head}++;
    $alpha_tail{$tail}++;
}
close $infh;

foreach my $key (sort keys %alpha_head) {
    print "$key :" . sprintf("%4d", $alpha_head{$key});
    print " " . sprintf("%4d", $alpha_tail{$key});
    if ($alpha_head{$key} < $alpha_tail{$key}) {
        print "  <<!\n";
    }
    elsif ($alpha_head{$key} > $alpha_tail{$key}) {
        print "  <<\n";
    }
    else {
        print "  ==\n";
    }
}

[2003] Posted by kagahiro at 2010/08/23 17:18:13
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A PHPでMySQLに接続して、SELECTでデータを取得するサンプルプログラム

－ 

A PHPでMySQLに接続して、SELECTでデータを取得するサンプルプログラム

PHPのプログラムからMySQLに接続し、SELECTでデータを取得する処理のサンプルプログラムです。あらかじめPHPMyAdminを使用してMySQLにテータベース「testdb」を作成し、以下のSQLを実行しテーブル「users」を作成、3...

PHPのプログラムから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());

以下のPHPプログラム(文字コードはUTF-8)では、テーブル「users」からレコードを全て取得しHTMLページとして出力しています。

--- mysql_connect.php ---

<html>
<head>
<title>PHPでMySQLに接続するサンプルプログラム</title>
</head>
<body>
<?php
$domain = "localhost";
$user = "test";
$password = "abcd12";
$dbname = "testdb";

// MySQLに接続
$dbconnect = mysql_connect($domain, $user, $password)
             or die(mysql_error());
mysql_select_db($dbname, $dbconnect)
             or die(mysql_error());

$sql = "SELECT * FROM users";

// クエリの実行
$result = mysql_query($sql, $dbconnect);
if (!$result) {
    $message  = 'Invalid query: ' . mysql_error() . "\n";
    $message .= 'Whole query: ' . $query;
    die($message);
}

// 結果セットの行数を取得
$rows = mysql_num_rows($result);
echo $rows . '件のレコード<br />';
echo '<br />';

// 結果セットを表示
while ($row = mysql_fetch_assoc($result)) {
    echo $row['userid'] . '<br />';
    echo $row['username'] . '<br />';
    echo $row['mailaddr'] . '<br />';
    echo $row['hpurl'] . '<br />';
    echo '<br />';
}

mysql_free_result($result);
mysql_close($dbconnect);
?>
</body>
</html>

[2001] Posted by kagahiro at 2010/08/19 20:04:16
0 point | Link (6) | Trackback (0) | Comment (0)

＋ 

A QANote 1.0 のソースコードを公開しました

－ 

A QANote 1.0 のソースコードを公開しました

Postedbyと同じく、ソースコードを公開すると言ったまま公開していなかったQANote（1.0）のソースコードを公開しました。QANoteは、Q&A形式で知識を共有することができる非常にシンプルなWebベースのQ&Aツールです。...

Postedbyと同じく、ソースコードを公開すると言ったまま公開していなかったQANote（1.0）のソースコードを公開しました。

QANoteは、Q&A形式で知識を共有することができる非常にシンプルなWebベースのQ&Aツールです。パソコンからの閲覧、投稿だけでなく、携帯電話からも閲覧、投稿が可能になっています。

QANoteの特徴
・ダッシュボード画面からすばやく質問の検索、閲覧、新しい質問の投稿ができる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・携帯に対応しており、携帯電話からも質問の投稿、リプライ(回答)の投稿ができる。
・商用利用、カスタマイズが可能なオープンソースライセンス(GPLv2)。

QANoteを利用することでレンタルサーバー等で運営しているホームページに、簡単にQ&A形式の顧客サポート機能を追加することができます。

QANote.org

[2000] Posted by kagahiro at 2010/08/14 11:02:29
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A Postedby 1.0 のソースコードを公開しました

－ 

A Postedby 1.0 のソースコードを公開しました

しばらく前にソースコードを公開すると言ったまま、公開していなかったPostedby（1.0）のソースコードを公開しました。Postedbyは、HTMLタグを使用した表現力の高い記事を、Twitterのような文字数制限なしに、一般的...

しばらく前にソースコードを公開すると言ったまま、公開していなかったPostedby（1.0）のソースコードを公開しました。

Postedbyは、HTMLタグを使用した表現力の高い記事を、Twitterのような文字数制限なしに、一般的なブログより手軽に投稿ができるブログ（マイクロブログ）ツールです。

携帯にも対応しておリ携帯からの投稿や投稿の修正・削除も可能です。また、家族や知人、もしくは知らないどこかの誰かなどと複数ユーザーによる運営も可能です。

Postedbyの特徴
・記事の本文にHTMLタグの使用ができるため、表現力のある記事の作成ができる。
・投稿した記事は公開して共有できるだけでなく、ユーザー設定で非公開にすることもできる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・投稿されたている記事に対して、リプライする形で新しい記事を投稿することができる。
・ブックマークレットを使用してブラウザで表示中のページを記事として簡単に投稿できる。
・id:記事ID、user:ユーザーIDで検索された場合、ユーザー設定のウィジェット(広告の設定も可能)を表示。
・携帯に対応、携帯電話からも記事の投稿、編集、削除ができる。
・日本語と英語に対応。
・商用利用、カスタマイズが可能なオープンソースライセンス(GPLv2)。

Postedby 1.0 のダウンロード

現時点では、「メモる」との違いは、記事のタイトルを付けることができることと、本文にHTMLタグが使用できることくらいですが、本文にHTMLタグが使用できるのでよりブログに近い使い方ができると思います。

Postedby.org

[1998] Posted by kagahiro at 2010/08/13 22:12:16
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A 「メモる」を1.1にバージョンアップ

－ 

A 「メモる」を1.1にバージョンアップ

極めてシンプルなマイクロブログツール「メモる」を1.1にバージョンアップしました。今回のバージョンアップでは、テンプレートエンジン（HTML::Template）を使用してデザインと処理の分離、携帯電話からのログインし...

極めてシンプルなマイクロブログツール「メモる」を1.1にバージョンアップしました。

今回のバージョンアップでは、テンプレートエンジン（HTML::Template）を使用してデザインと処理の分離、携帯電話からのログインして投稿する機能(新規投稿、編集、削除が可能)の実装などを行いました。

また、「携帯電話から閲覧できない」などの大きな不具合やその他の小さな不具合も修正されています。

「メモる」の特徴
・投稿したメモは公開して共有できるだけでなく、ユーザー設定で非公開にすることもできる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・投稿されたているメモに対して、リプライする形で新しいメモを投稿することができる。
・ブックマークレットを使用してブラウザで表示中のページをメモとして簡単に投稿できる。
・id:メモID、user:ユーザーIDで検索された場合、ユーザー設定のウィジェット(広告の設定も可能)を表示。
・携帯に対応、携帯電話からもメモの投稿、編集、削除ができる。

ソースコードもオープンソースライセンス（GPLv2）で公開しているので、ご自由にご利用ください。

メモる 1.1 のダウンロード

[1996] Posted by kagahiro at 2010/08/13 11:55:16
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

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

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

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

--- tst_iconv.c ---

#include <stdio.h>
#include <iconv.h>

#define  BUFSIZE  1024

char 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

[1982] Posted by kagahiro at 2010/07/26 09:54:29
0 point | Link (2) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

PerlのプログラムからDBI経由でMySQLに接続し、SELECT文でデータを取得する処理のサンプルプログラムです。あらかじめphpMyAdminを使用してMySQLにテータベース「testdb」を作成し、以下のSQLを実行しテーブル「user...

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/perl

use strict;
use warnings;

use DBI;

my $data_source = "DBI:mysql:testdb"; # 接続先はtestdb
my $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";
}

[1981] Posted by kagahiro at 2010/07/26 00:12:18
0 point | Link (6) | Trackback (0) | Comment (0)