[コード]の検索結果
Rubiniusは、Smalltalk-80の概念や仮想マシン実装を参考にした
Ruby実装で、バイトコードコンパイラなど大部分が
Rubyで
実装されている。ライセンスは
BSD License。Rubinius
Rubiniusは、Smalltalk-80の概念や仮想マシン実装を
参考にしたRuby実装で、バイトコードコンパイラなど大部分がRubyで実装されている。ライセンスはBSD License。
Rubinius
ユーザーローカルが提供している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";
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
面白そうだけど、クイズの採点ってまだ出てないよね。
まず、今回の
クイズの
しりとりに勝つため私が考えた作戦は、相手（コンピュータ）に、先頭に使用されているより末尾に使用されている数が多いアルファベットの単語から選ばせるようにすれば、そのうち相手が手詰まり...
まず、今回のクイズのしりとりに勝つため私が考えた作戦は、相手（コンピュータ）に、先頭に使用されているより末尾に使用されている数が多いアルファベットの単語から選ばせるようにすれば、そのうち相手が手詰まりになって勝てるだろうというものでした。
そのため、選択肢となる単語に使用されている先頭のアルファベットと末尾のアルファベットの数を調べるためのプログラムを作成し、その結果をもとに以下の優先順位で回答を選択していきました。
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";
}
}
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>
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
しばらく前にソースコードを
公開すると言ったまま、
公開していなかった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
極めてシンプルなマイクロブログツール「
メモる」を1.1にバージョンアップしました。今回のバージョンアップでは、テンプレートエンジン（HTML::Template）を使用してデザインと処理の分離、携帯電話からのログインし...
極めてシンプルなマイクロブログツール「
メモる」を1.1にバージョンアップしました。
今回のバージョンアップでは、テンプレートエンジン（HTML::Template）を使用してデザインと処理の分離、携帯電話からのログインして投稿する機能(新規投稿、編集、削除が可能)の実装などを行いました。
また、「携帯電話から閲覧できない」などの大きな不具合やその他の小さな不具合も修正されています。
「メモる」の特徴
・投稿したメモは公開して共有できるだけでなく、ユーザー設定で非公開にすることもできる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・投稿されたているメモに対して、リプライする形で新しいメモを投稿することができる。
・ブックマークレットを使用してブラウザで表示中のページをメモとして簡単に投稿できる。
・id:メモID、user:ユーザーIDで検索された場合、ユーザー設定のウィジェット(広告の設定も可能)を表示。
・携帯に対応、携帯電話からもメモの投稿、編集、削除ができる。
ソースコードもオープンソースライセンス（GPLv2）で公開しているので、ご自由にご利用ください。
メモる 1.1 のダウンロード
単にテキストファイル等の文字エンコードを変換するのであれば、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
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";
}
|< 先頭へ < 前へ 3 4 5 6 7 次へ >
アクセスランキング
- Google Finance（グーグルファイナンス）- リアルタイム株価情報、金融ニュース、日本株 (1 PV)
- [Twitter]日本のユーザーも「全ツイート履歴」が使用可能に (1 PV)
- SQLのSELECT文で先頭から上位（TOP）10件のレコードを取得する方法（SQL Server、Oracle、MySQL、PostgreSQL） (67 PV)
- 2NN 2ちゃんねるニュース速報＋ナビ (14 PV)
- Google Finance（グーグルファイナンス）- リアルタイム株価情報、金融ニュース、日本株 (11 PV)
- 裁量トレードを半自動化する無料のMT5向け裁量トレード支援ツール（裁量補助EA）「PositionKeeper MT5」 #FX (7 PV)
- SQLiteのSELECT文で上位 (TOP) n件のデータを取得する (6 PV)
- StartPage（スタートページ） - 匿名検索エンジン (5 PV)
- FC2まとめ (5 PV)
- 人気ナンピンマーチンEA「NPNM_v3」向けサンプルセットファイル (5 PV)
- YouTube（ユーチューブ）日本版 - 動画共有、ライブ配信 (5 PV)
- 日経平均株価（にっけいへいきんかぶか） (4 PV)
アクセス統計
ディレクトリ
関連サイト