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

PHPメールフォームのサンプルスクリプト

Wed, 13 Jun 2012 13:04:06 +0900

PHPの開発環境でプログラムからメールを送信できるかチェックするために作成した、ごく簡単なメールフォームのサンプルスクリプト（プログラム）です。

mailmform.phpを実行すると入力フォームが表示され。送信ボタンを押す（クリック）すると入力した内容がメール送信されます。

<?php
//------------------------------------------------------------------------------
//    mailform.php - sample mailform php script
//------------------------------------------------------------------------------

mb_language("Japanese");
mb_internal_encoding("UTF-8");

define("MAILTO", "*******@****.***");

$proc = isset($_POST['proc']) ? $_POST['proc'] : '';
//echo $proc; // for debug
if ($proc == 'send') {
    _send();
}
else {
    _input();
}

// 初期表示
function _input() {
    $formdata = array();
    $formdata['subject'] = '';
    $formdata['name'] = '';
    $formdata['from'] = '';
    $formdata['body'] = '';
    _input_form($formdata, '');
}

// 入力フォーム表示
function _input_form($formdata, $message) {

    // XSS対策
    $formdata['subject'] = htmlspecialchars($formdata['subject'], ENT_QUOTES);
    $formdata['name'] = htmlspecialchars($formdata['name'], ENT_QUOTES);
    $formdata['from'] = htmlspecialchars($formdata['from'], ENT_QUOTES);
    $formdata['body'] = htmlspecialchars($formdata['body'], ENT_QUOTES);

echo <<<EOF
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>サンプルメールフォーム</title>
</head>
<body>
<h2>サンプルメールフォーム</h2>
<p>$message</p>
<form action="mailform.php" method="post">
<input type="hidden" name="proc" value="send">
件名：<br />
<input type="text" name="subject" size="50" value="${formdata['subject']}" /><br />
名前：<br />
<input type="text" name="name" size="50" value="${formdata['name']}" /><br />
メールアドレス：<br />
<input type="text" name="from" size="50" value="${formdata['from']}" /><br />
本文：<br />
<textarea name="body" cols="50" rows="10">${formdata['body']}</textarea><br />
<br />
<input type="submit" value="送信" />
</form>
</body>
</html>
EOF;

    exit();
}

// メール送信
function _send() {

    // パラメータ取得
    $formdata = array();
    $formdata['subject'] = isset($_POST['subject']) ? $_POST['subject'] : '';
    $formdata['name'] = isset($_POST['name']) ? $_POST['name'] : '';
    $formdata['from'] = isset($_POST['from']) ? $_POST['from'] : '';
    $formdata['body'] = isset($_POST['body']) ? $_POST['body'] : '';

    // 入力チェック
    if ($formdata['subject'] == '') {
        _input_form($formdata, '件名を入力してください');
    }
    if ($formdata['name'] == '') {
        _input_form($formdata, '名前を入力してください');
    }
    if ($formdata['from'] == '') {
        _input_form($formdata, 'メールアドレスを入力してください');
    }
    else {
        if (!preg_match('/^[-+\\w]+(\\.[-+\\w]+)*@[-a-z0-9]+(\\.[-a-z0-9]+)*\\.[a-z]{2,6}$/i', $formdata['from'])) {
            _input_form($formdata, '正しいメールアドレスを入力してください');
        }
    }
    if ($formdata['body'] == '') {
        _input_form($formdata, '本文を入力してください');
    }

    // 送信
    $header = "From: " . mb_encode_mimeheader($formdata['name']) . ' <' . $formdata['from'] . '>';
    $result = mb_send_mail(MAILTO, $formdata['subject'], $formdata['body'], $header);
    if ($result) {
        _input_form($formdata, 'メールを送信しました');
    }
    else {
        _input_form($formdata, 'メール送信に失敗しました');
    }
}

?>

Link(5) | Trackback(0) | Comment(0)

キーワード

サンプルプログラム PHP メールフォーム

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

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

Thu, 19 Aug 2010 20:04:16 +0900

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>

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

キーワード

PHP MySQL サンプルプログラム

[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言語 プログラミング

[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次元配列 リファレンス

Google-Wave-API-Japan Hackathon で作ったもの

Sat, 28 Nov 2009 15:03:28 +0900

昨日（2009年11月27日）Google 東京オフィスで行われた「Google-Wave-API-Japan Hackathon」に参加した際に作ったもの（少し修正しましたが）を公開しておきます。

私が作成したものは、「お天気Webサービス仕様 - Weather Hacks - livedoor 天気情報」から、「明日の天気」の情報をXML形式で取得してきて、それをWaveのガジェットとして表示するというものです。

他の参加者の作ろうとしたものに比べると、レベル的にはサンプルプログラム程度のスクリプトですが、Web API を利用したガジェットを作る場合の参考にはなると思います。ガジェットのソースは以下のURLにおいてあるので、そこからURLを指定してWaveにガジェットを追加できます。

http://59log.com/files/tenki.xml

また、Waveアカウントを持っていれば以下のリンクからガジェットが表示されたWaveが見れるはずです。

https://wave.google.com/wave/?pli=1#restored:wave:googlewave.com!w%252BtVzhbGppA

FirefoxやIE 8では表示されなかったりするのですが、Window XP上でGoogle Chrome、Safariであれば見れると思います。

見てみたいけどWaveのアカウントがなくて見れないという場合は、webmaster@59log.com 宛にメールを送ってもらえれば、先着8名まで招待可能です。

Google Wave開発者の準公式コミュニティ「Google-Wave-API-Japan」発足

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

キーワード

Google Wave API Hackathon 成果物

Ruby のサンプルプログラム投稿サイト - Masaru

Fri, 23 Oct 2009 17:13:47 +0900

Ruby のサンプルプログラムを登録、閲覧をするためのサイト。

ブックマーク先へ

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

キーワード

Ruby サンプルプログラム

Arduinoのブロガー向けセミナーに行ってきました

Thu, 21 May 2009 23:16:30 +0900

2009年5月11日に電子部品・半導体の通販サイト「チップワンストップ」主催で行われたブロガー向けセミナー「オープンソースハードウェアセミナーvol.1 ～今日からはじめるArduino～」に行ってきました。

セミナーでは、オープンソースハードウェア「Arduino」がどういうものであるかという簡単な説明と、Arduinoを使ってどんなことができるかのデモが行われ、なかなか興味深いものでした。

デモでは、インターネットに接続して、2chの実況板への書き込み状況に応じてテレビのチャンネルを切り替えを行ったり、プログラムをその場で作成してTwitterのステータスを更新するなど、サンプルプログラムやライブラリを利用することで、Arduinoから簡単にWebサイトにアクセスできることが、具体的な実例によって示されていて、Arduinoの魅力が十分以上に伝わってくるものでした。

また、モニターとなってブログにイベント感想やArduinoの開発についての記事を書くと、時価3,200円の「Arduino Duemilanove」が貰えるというモニタープログラムもあるということなので、Twitterのステータスを更新するデモに魅かれた私も参加してみました。

ただし、今回のセミナーでは、開発環境については統合開発環境で、OSはWindows、Linux、Mac OS Xのどれでも問題なく開発できますという説明はあったものの、Arduinoを使ってプログラムを開発するには、ボード以外に具体的どういうものが必要なのかについての説明はなかったのでネットで少し調べてみました。

Arduinoでプログラムを開発するには、パソコン上でプログラム記述してArduinoに渡すためのソフト（統合開発環境、Arduinoのサイトから無料でダウンロード）、パソコンとArduinoを接続するためのUSBケーブル A-B、Arduino基盤上チップとパソコンがやりとりするためのドライバーが最低限必要です。ソフトウェアのインストール方法については、以下のサイトが参考になると思います。

Arduino/インストール

また、セミナーでのデモのようにインターネットに接続する場合は、イーサネットシールドと呼ばれる拡張ボードが必要になります。イーサネットシールドは、チップワンストップさんのサイトで購入できます。

とりあえず、自分の開発環境でネットで拾ってきたサンプルが動くことが確認できたのでかなり満足。

Arduinoに関する情報
2008年版オープンソースハードウェア製品完全ガイド（Arduino編）

オープンソースハードウェアとは何だろう？　もう一度確認しておこう。それは、開発者が、ソース、回路図、ファームウェア、ソフトウェア、素材の明細、パーツリスト、ハードウェア製造に必要な設計図や"ボード"のファイルなど、一切合切を公開しようと決めたプロジェクトのことだ。またこれは、商用を含めて使い方を限定しない。Linuxなどのオープンソースのソフトウェアのハードウェア版ってことだ。

Arduinoは、普通のデスクトップパソコンにはできない、物理世界のセンシングやコントロールを可能にするツールだ。シンプルなマイクロコントローラーボードからなるオープンソースのフィジカルコンピューティングプラットフォームと、このボードのためのソフトウェアを記述する開発環境がセットになっている。
"Duemilanove"とはイタリア語で2009という意味。これが発売される年にちなんで付けられた。Duemilanoveは、USB Arduinoの最新バージョンだ。

Arduinoを使おう
フィジカル・コンピューティング: Arduino 開発システム、プログラム言語についてアーカイブ
Arduino 日本語リファレンス
Arduinoメモ

Arduinoをはじめよう
著者：Massimo Banzi
価格：2,100円
オライリージャパン

by Amalink

電子部品・半導体の通販サイト - チップワンストップ

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

キーワード

プログラミング 組み込み Arduino