[プログラム]の検索結果

＋ 

A [Perl]UTF-8でエンコードされた文字の文字コードを表示するプログラム

－ 

A [Perl]UTF-8でエンコードされた文字の文字コードを表示するプログラム

Unicodeの文字コード表によるとUTF-8の半角英数、全角英数、半角カナ、全角カナの文字コードは以下のようになるようです。英数字の場合は半角と全角の文字がそれぞれ対応していますが、カタカナの場合は半角と全角で...

Unicodeの文字コード表によるとUTF-8の半角英数、全角英数、半角カナ、全角カナの文字コードは以下のようになるようです。 英数字の場合は半角と全角の文字がそれぞれ対応していますが、カタカナの場合は半角と全角では文字の数が違うようです。

半角数字:0 - 9
30 - 39

全角数字
EFBC90 - EFBC99
2バイト目まではEFBC

半角アルファベット大文字:A - Z
41 - 5A

全角アルファベット大文字:Ａ - Ｚ
EFBCA1 - EFBCBA
2バイト目まではEFBC

半角アルファベット小文字:a - z
61 - 7A

全角アルファベット小文字:ａ - ｚ
EFBD80 - EFBD9A
2バイト目まではEFBD

半角カナ（JISカナ）
EFBDA1 - EFBE9F
1バイト目がEFで2バイト目、3バイト目がBDA1 - BE9Fの範囲

全角カタカナ
E38299 - E383BF
1バイト目がE3で2バイト目、3バイト目が82A1 - 83BFの範囲

Unicode対応 文字コード表
http://ash.jp/code/unitbl1.htm
http://ash.jp/code/unitbl21.htm

動作確認用にまずUTF-8の文字コードを表示するプログラムを作成します。

#!/usr/bin/perl

use strict;
use warnings;
use Encode;

my $hanAlnum = "ABCDE12345abcde";
my $zenAlnum = "ＡＢＣＤＥ１２３４５ａｂｃｄｅ";
my $hanKana = "ｱｲｳｴｵ";
my $zenKana = "アイウエオ";

print_charcode($hanAlnum);
print "\n";

print_charcode($zenAlnum);
print "\n";

print_charcode($hanKana);
print "\n";

print_charcode($zenKana);
print "\n";

# UTF-8でエンコードされた文字列の文字コードを表示する
sub print_charcode {
    my ($src) = @_;

    my $srclen = length($src);
    my $pos = 0;

    while ($pos < $srclen) {
        my $code = ord substr($src, $pos, 1); # 先頭のASCIIコード値を取得
        my $bytelen = _bytesize($code);
        my $srcchar = substr($src, $pos, $bytelen);
        my $codestr = sprintf("%2.2X ", $code);
        if ($bytelen > 1) {
            my $times = $bytelen - 1;
            for my $i (1 .. $times) {
                my $charcode = ord substr($src, $pos + $i, 1);
                $codestr .= sprintf("%2.2X ", $charcode);
            }
        }

        # Windowsで表示するのでcp932（シフトJIS）に変換
        Encode::from_to($srcchar, 'utf8', 'cp932');
        print "$srcchar : $codestr\n";
        $pos += $bytelen;
    }
}

# 文字のバイト長を求める
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;
}

Perl Hacks ―プロが教えるテクニック & ツール101選
オライリー・ジャパン 著者：chromatic,Damian Conway,Curtis "Ovid" Poe

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

[2248] Posted by kagahiro at 2012/12/17 00:25:00
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

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

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

[2244] Posted by kagahiro at 2012/12/13 10:51:25
0 point | Link (4) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

Perlのlength関数ではバイト単位となるので、UTF-8でエンコードされている場合、漢字、ひらがな、カタカナなどは1文字で3となってしまいます。ブログなどのアプリケーションのテキスト処理ではそれでは不都合な場合も...

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

[2243] Posted by kagahiro at 2012/12/12 11:56:21
1 point | Link (3) | Trackback (0) | Comment (1)

＋ 

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

－ 

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

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

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

[2242] Posted by kagahiro at 2012/12/11 19:33:29
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

Perlの関数を使用して、以下の手順で10進数を2進文字列に変換することができます。sprintf関数で10進数を16進文字列に変換pack関数で16進文字列をバイナリーにパックunpack関数で2進文字列に変換例えば、文字列の先頭...

Perlの関数を使用して、以下の手順で10進数を2進文字列に変換することができます。

1. sprintf関数で10進数を16進文字列に変換
2. pack関数で16進文字列をバイナリーにパック
3. 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

[2239] Posted by kagahiro at 2012/12/09 20:36:29
0 point | Link (4) | Trackback (0) | Comment (0)

＋ 

A 機械学習（きかいがくしゅう）

－ 

A 機械学習（きかいがくしゅう）

機械学習（きかいがくしゅう）とは、人工知能における研究課題の一 つで、人間が自然に行っている学習能力と同様の機能をコンピュータで実現しようとする技術や手法のこと。1959年にアーサー・サミュエルは機械学習を...

機械学習（きかいがくしゅう）とは、人工知能における研究課題の一 つで、人間が自然に行っている学習能力と同様の機能をコンピュータで実現しようとする技術や手法のこと。1959年にアーサー・サミュエルは機械学習を「明示的にプログラムしなくても学習する能力をコンピュータに与える研究分野」と定義している。

機械知覚、コンピュータビジョン、自然言語処理、統語的パターン認識、検索エンジン、人工知能診断、バイオインフォマティクスなどの応用分野がある。

機械学習 - Wikipedia
機械学習 はじめよう：連載｜gihyo.jp … 技術評論社
機械学習 (Machine Learning) の紹介
パターン認識と機械学習入門
米スタンフォード大学が「機械学習」「データベース」「人工知能」の無料オンライン授業を今秋から開始

言語処理のための機械学習入門 (自然言語処理シリーズ)
コロナ社 著者：高村 大也

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

[2238] Posted by kagahiro at 2012/12/09 00:14:58
0 point | Link (10) | Trackback (0) | Comment (0)

＋ 

A 2038年問題

－ 

A 2038年問題

2038年問題とは、2038年1月19日3時14分7秒を過ぎると、コンピュータが誤動作する可能性があるとされる問題のこと。C言語の伝統的な実装ではtime_t型の範囲や精度はintとして実装されており、intは符号つき32ビットで...

2038年問題とは、2038年1月19日3時14分7秒を過ぎると、コンピュータが誤動作する可能性があるとされる問題のこと。

C言語の伝統的な実装ではtime_t型の範囲や精度はintとして実装されており、intは符号つき32ビットであったため、最大値は (231 - 1) = 2,147,483,647 となり、取り扱えるのは2,147,483,647秒までに限られていた。

そのため、これを前提として作成されたプログラムは、1970年1月1日0時0分0秒から2,147,483,647秒を経過した、2038年1月19日3時14分7秒（閏秒を考慮しない場合）を過ぎると、時刻がオーバーフローし正しくない値になるため、時刻を正しく扱えていることを前提としたコードは誤作動する。

例えば、Linuxのファイルシステムである、ext2、ext3、ReiserFSのタイムスタンプは同日付までしか対応していない。

2038年問題
スクープ】コンピュータの“西暦2038年問題”発生、早くも日本を揺るがす
KDDI、「2038年問題」で1346万円を過剰請求
日付・時刻関数の2038年問題

苦しんで覚えるC言語
秀和システム 著者：MMGames

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

[2224] Posted by kagahiro at 2012/09/13 15:20:37
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

A ライブドアブログのようにスクロールしても広告が表示されるような設定はAdSenseポリシー違反

－ 

A ライブドアブログのようにスクロールしても広告が表示されるような設定はAdSenseポリシー違反

ぼくはまちちゃんという方がライブドアの一部人気ブログのように、スクロールしてもサイドバーの広告が固定して表示されるようなJavaScriptを公開ししていますが、Googleの見解によるとこれはAdSenseポリシー違反にな...

ぼくはまちちゃんという方がライブドアの一部人気ブログのように、スクロールしてもサイドバーの広告が固定して表示されるようなJavaScriptを公開ししていますが、Googleの見解によるとこれはAdsenseポリシー違反になるそうです。

ライブドアみたいにスクロールしたらサイドバーの広告を固定する

ところで最近、ライブドアの一部の人気ブログで、サイドバーの挙動に「んん？」って思ったことありませんか！
…百聞は一見にしかずってことで、実際の例をみてみましょう！

※PC版のみです
ハムスター速報 (左のサイドバーを見ながら、下にスクロールしてください)
痛いニュース(ﾉ∀`) (右のサイドバーを見ながら、下にスクロールしてください)

ある程度スクロールすると、サイドバーの広告がぴたっと固定されますね！
これって流行りなんでしょうか…！

大変恐れ入りますが、いかなる方法でもお客様が Google 広告の動作を変更することは許可しておりません。
スクロールしても広告が表示されるような設定はご遠慮くださいませ。
お問い合わせのウェブ サイトがプログラム ポリシーに違反している場合は、Google で該当のアカウントに対して所定の措置を取らせていただきます。

というわけで、チクられたハムスター速報と痛いニュース(ﾉ∀`)はポリシー違反でペナルティを受ける可能性がありますね。

パーフェクトJavaScript (PERFECT SERIES 4)
技術評論社 著者：井上 誠一郎,土江 拓郎,浜辺 将太

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

[2223] Posted by kagahiro at 2012/08/31 17:44:06
0 point | Link (1) | Trackback (0) | Comment (0)

＋ 

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

－ 

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

PHPの開発環境でプログラムからメールを送信できるかチェックするために作成した、ごく簡単なメールフォームのサンプルスクリプト（プログラム）です。mailmform.PHPを実行すると入力フォームが表示され。送信ボタン...

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, 'メール送信に失敗しました');
    }
}

?>

[2216] Posted by kagahiro at 2012/06/13 13:04:06
0 point | Link (5) | Trackback (0) | Comment (0)

＋ 

B ブログに忠実な読者を築くための40の方法 | SEO Japan

  ブックマーク先へ

－ 

B ブログに忠実な読者を築くための40の方法 | SEO Japan

  ブックマーク先へ

なるほど、いろんな方法があるのですね。自分の読者が何を必要としているのか耳を傾ける。そして、それを届けるのだ。あなたが作るコンテンツにひらめきを与えているのはそれらの読者であることを認めるのだ。読者の...

なるほど、いろんな方法があるのですね。

1. 自分の読者が何を必要としているのか耳を傾ける。そして、それを届けるのだ。あなたが作るコンテンツにひらめきを与えているのはそれらの読者であることを認めるのだ。
2. 読者のコメントに返答する。彼らは認められ注目されていると感じるだろう。
3. 頻繁にコメントする人にメールを送ってフィードバックする。 そういう人達は大ファンであることが多いため、ブログを超えて人間関係を深めるのだ。
4. 自分の読者をTwitterでフォローする。彼らを探して‘フォロー’ボタンをクリックする のにはほんの数分しかかからない。
5. LinkedInで繋がる。これが読者を、自分がクールな人々の1人であると感じさせ、あなたが彼らのバックグラウンドを簡単に詳しく調べて彼らがしていることについてもっと知ることを可能にする。
6. もしもLinkedInグループで読者を見かけたら、声をかける。 それがフレンドリーさを感じさせる。
7. 読者のブログにコメントする。コメントする人の大部分は、コメントする時にURLを残しているため、そこをクリックして彼らのことをチェックし反応を残すことは難しいことではない。
8. 読者の投稿をリツイートする。あなたがそこにいる間、あの小さなRTボタンをクリックするのだ。1つのリツイートが大きな賛辞になる。
9. 読者がコメント欄でした質問に回答する記事を書く。１つの興味深いコメントに関連した記事を書くこともできるし、多くの読者の質問に答えるかばんいっぱいの総まとめを作ることもできる。彼らの質問をコンテンツのひらめきとして使う時には、読者を認めることを忘れないこと！
10. 読者のメールに回答する。あなたのメールを見つけ出すのに時間を取って、ブログコメント以外であなたにメッセージを送る読者は、返答を受けるに値する。
11. 求人情報を提供する。仕事を与えることほど感謝の念を引き起こすことはないため、多くの人気ブログが求人を提供しているのだ。
12. 知識のあるコメント者にあなたのブログにゲスト投稿することを依頼する。彼らは特別感を感じるだろう。そして、私の経験上、この先何年もあなたの投稿をリツイートするだろう。
13. 読者のブログにゲスト投稿を書く。これは、ちょっとした知り合いから近しい友人になる最速ルートの1つだ。
14. アンケートを取る。読者は何を考えているのか？それが分かれば、あなたは彼らが本当に好きな記事を書くことができるだろう。
15. エッセイのコンテストを実施し、勝者を記事の中で特集する。気分を変えるために読者に自分たちのライティングを見せる。
16. 読者の1人にSkypeする。私は、定期的に新しい人とバーチャル‘ランチ’をすることを試みている。
17. 6人の常連と一緒に立案する。セールスの達人Grant Cardoneは今、ファンと一緒に新しい本を立案している―そして、他の人も恩恵を受けることができるようにそれを録音している。
18. 地元の読者と直接会う手配をする。地元のコーヒー店で一服して、おしゃべりをする。
19. 読者のために無料のポッドキャストまたはオンラインセミナーを録音もしくは録画する。あなたの声を聞いたりあなたの姿を見たりすることが、リスナーとより親密な繋がりを作る。
20. 彼らの質問に生電話で答える。生電話の直接性が、読者にあなたが気にかけていることを感じさせる。
21. 読者にクッキーを送る。真面目な話だ。彼らの住所を突き止めて、小さなギフトを送るのだ。それが人々の心を圧倒する。
22. 投稿の最後に質問をする（フリーアンサーの質問が好ましい）。それが通常は彼らに話をさせる。
23. 投稿を完結しない。 いくつかのヒントを提供し、その後は読者にコメント欄に追加してもらう。
24. 読者に自分たちが取り組んでいることへのリンクを残してもらう。彼ら自身のプロジェクトやURLに触れることへの誘いほど人々のコメントを得られるものはない。
25. 読者のeブックをレビューする。もしくは、数人の読者のeブックを集めて1つの記事にする。
26. フォーラムを提供する。コメント欄以外で、読者に気軽なおしゃべりの集いをさせる。これが驚くほどのコミュニティになることがある。
27. バディ・プログラムを作る。サイト上にサポートの必要性や友達が欲しいことを伝えることができる場所を提供することによって、読者がお互いに助けうことを支援する。
28. 読者をエキスパートにする。ひとつの記事の中で彼らの最高のアドバイスを求め、別の記事の中で最高の返答を寄せ集めたものを発表する。
29. 読者に彼らの最大の問題を説明してもらう。 私たちは文句を言うのが好きなのか？そうだ、好きなのだ。このような投稿は、あなたが書くべきことが何かを教えてもくれる。
30. 価値のある賞品を付けたコンテストを実施する。最近、AppSumoが優れたコンテストを実施した。あなたはMacBook Airを勝ち取ることができるのだ。
31. BlogWorldやSXSWのような大きなイベントでの集まりを企画する。もしあなたが、自分の業界のイベントに出かけていないのなら、そういう場所に出ていくことを検討しよう。最近では、対面での会話は珍しく素晴らしいものだ―それに読者にあなたのこともっと知るようになったと感じさせる。
32. あなたのメールを一度も開かないEメール購読者の理由を知る。自分のコンテンツを改善する方法について多くを学ぶことができる。
33. 読者のスキルを発見し、彼らとサービスを交換する。小さなビジネスを一緒にすることが双方に利益をもたらし、あなたがもっと知りあう手助けをする。
34. コンサルティング・パッケージを提供する。 無差別に親切をし、時にただ読者を助けるのだ。
35. 有料クラスやイベントへの無料パスをあげる。あなたのことは分からないが、私は、他の人がお金を払っていることに対して無料チケットをもらうことほどに特別感を感じるものはない。
36. 購読者のために無料eブックを作る。一度でやめず、興味深い新しいものを作り続けるのだ。
37. 役に立つ情報を持つ自動ステップメールを配信する。Copybloggerの独自のInternet Marketing for Smart Peopleコースが良い例だ。無料トレーニングコースが、あなたのブログはもっと提供するものを持っていることを示す。
38. コラボレーションしたプロジェクトを行う。読者のゲスト投稿を1つのeブックにまとめたり、読者にあなたと一緒にポッドキャストを共同でホストしてもらう。
39. 自分の製品サービスを売るアフィリエイトプログラムに招待する。あなたはそれをあくどいと思うかもしれないが、読者の中にはすでに自分がしていること―友達にあなたのサイトについて話すこと―をしてお金を稼ぐチャンスに飛びつく人もいるのだ。
40. 読者に彼らを助けることができる人々を紹介する。仲を取り持つことは全くお金がかからないし、あなたが読者を助けることに関して本当に気にかけていることを示す。

ブックマーク先へ ブログに忠実な読者を築くための40の方法 | SEO Japan

[2193] Posted by kagahiro at 2012/05/24 16:40:24
0 point | Link (0) | Trackback (0) | Comment (0)