DQNEO起業日記 tag:dqn.sakusakutto.jp,2010-06-14://5 2010-09-08T19:08:53Z ど素人プログラマの挑戦。 Movable Type Pro 5.02 PerlとPHPにおける「リスト」概念の違い tag:dqn.sakusakutto.jp,2010://5.349 2010-09-08T17:17:36Z 2010-09-08T19:08:53Z naoyaさんのPHP版 List_RubyLikeを見ていて面白いことに気づき... DQNEO PHP版 List_RubyLikeを見ていて面白いことに気づきました。

$list->push('foo');
$list->push('bar','buz');

一瞬、「なんて美しい！」と思いました。
と同時に、「なんてPerl的な！」とも思いました。
「これじゃまるでPerlじゃないか」と。

私ならこういうインターフェイスにすると思います。

$list->push('foo');
$list->push(array('foo','bar'));

少し冗長ですが、こっちの方がPHPとしてしっくりきます（私にとっては）。
実際にはpush(array('foo','bar'))などとリテラルを渡すことはあまりなくて、push($hoge)とかpush($this->hoge())などと書くことになるでしょう。

この違いを突き詰めていくと、「PerlとPHPにおけるリストの考え方が違うんだ」という面白い事実を発見しました。

PHPプログラマとPerlプログラマのものの見方の違い


func('foo', 'bar');

このコードを見たとき、
PHPプログラマは「関数に２つの値を渡している」と考えます。
一方、
Perlプログラマも「関数に２つの値を渡している」と考えますが、
同時に「関数に１つのリストを渡している」とも考えます。

Perlにおいて、下記の２つのfunc呼び出しは同じ意味です。

func(1,2,3);

my @list = (1,2,3);
func(@list);

ところがPHPにおいては、下記の２つのfunc呼び出しは意味が異なります。

func(1,2,3);

$list = array(1,2,3);
func($list);

サンプルコード

Perl
use strict;
use Data::Dumper;

func(1,2,3);

my @list = (1,2,3);
func(@list);

sub func() {
    print Dumper \@_;
}

---結果---

$VAR1 = [
          1,
          2,
          3
        ];
$VAR1 = [
          1,
          2,
          3
        ];
PHP
<?php

func(1,2,3);

$list = array(1,2,3);
func($list);

function func() {
    $args = func_get_args();
    print_r($args);
}

---結果---
Array
(
    [0] => 1
    [1] => 2
    [2] => 3
)
Array
(
    [0] => Array
        (
            [0] => 1
            [1] => 2
            [2] => 3
        )

)
もちろん、func_get_argsの戻り値に応じてif文で分岐すればPerlと同じ振る舞いをさせることはできます。
しかしそこまでやってしまうとPHPらしくない気がします。
何故かというと、PHPの配列関数(array_*系の組込み関数)はPerlのような「引数のリスト渡し」をサポートしていないからです。

参考：Perlにおける配列とリストの違い

リストとは、スカラーの集合に順序を付けて並べたものです。
配列とは、リストを保持する変数のことです。
リストはデータであり、配列は変数であるという違いがあります。
--- 「初めてのPerl」３章 リストと配列
PHPでも「array型のデータ」と「arra型の変数」は異なる概念です。
しかし「スカラーを並べたものをリストと呼ぶ」という考え方はない気がします。

結論

  • PHPに「リスト」というものはない。ただarray型のデータとarray型の変数があるのみ。
  • func_get_argsは@_の代わりにはならない。
※誤解のないように言っておくと、naoyaさんのList_RubyLikeを批判しているわけではありません。
「PHPらしい、らしくない」はあくまで私の主観です。

ご意見、ツッコミあればお願いします。]]> [PHP]Imagickのインストールエラーの対処法 tag:dqn.sakusakutto.jp,2010://5.348 2010-08-01T04:12:15Z 2010-08-01T05:19:58Z CentOS 5.3、PHP5.1.6な環境でPECLでImagickをインスト... DQNEO # pecl install imagick downloading imagick-3.0.0.tgz ... Starting to download imagick-3.0.0.tgz (93,488 bytes) .....................done: 93,488 bytes 13 source files, building running: phpize Configuring for: PHP Api Version: 20041225 Zend Module Api No: 20050922 Zend Extension Api No: 220051025 Please provide the prefix of Imagemagick installation [autodetect] : building in /var/tmp/pear-build-root/imagick-3.0.0 running: /tmp/tmpGia3gn/imagick-3.0.0/configure --with-imagick checking for egrep... grep -E checking for a sed that does not truncate output... /bin/sed checking for gcc... gcc checking for C compiler default output file name... a.out checking whether the C compiler works... yes checking whether we are cross compiling... no checking for suffix of executables... checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ANSI C... none needed checking whether gcc and cc understand -c and -o together... yes checking if compiler supports -R... no checking if compiler supports -Wl,-rpath,... yes checking build system type... i686-redhat-linux-gnu checking host system type... i686-redhat-linux-gnu checking target system type... i686-redhat-linux-gnu checking for PHP prefix... /usr checking for PHP includes... -I/usr/include/php -I/usr/include/php/main -I/usr/include/php/TSRM -I/usr/include/php/Zend -I/usr/include/php/ext checking for PHP extension directory... /usr/lib/php/modules checking for PHP installed headers prefix... /usr/include/php checking for re2c... re2c checking for re2c version... 0.13.5 (ok) checking for gawk... gawk checking whether to enable the imagick extension... yes, shared checking whether to enable the imagick GraphicsMagick backend... no checking ImageMagick MagickWand API configuration program... found in /usr/bin/Wand-config checking if ImageMagick version is at least 6.2.4... found version 6.2.8 checking for magick-wand.h header file... found in /usr/include/wand/magick-wand.h checking PHP version is at least 5.1.3... /tmp/tmpGia3gn/imagick-3.0.0/configure: line 3339: test: Usage: /usr/bin/php-config [--prefix|--includes|--ldflags|--libs|--extension-dir|--include-dir|--php-binary|--version]: integer expression expected configure: error: no. found 5.1.6 ERROR: `/tmp/tmpGia3gn/imagick-3.0.0/configure --with-imagick' failed
エラーメッセージでGoogle検索しても全然事例が見つからない。
大パニック。(><)

ふと、PHP公式サイトのimagickインストールの項を見ていたらヒントがあった。
http://www.php.net/manual/ja/imagick.installation.php
vbsaltydog 31-Jul-2010 03:31 I could not install via PECL or compiling from source because of an error from line 3339 of the configure file generated by phpize so I looked at the configure file at line 3339 and it was just a check for the PHP version using the php-config command with the --vernum switch which was not supported by my PHP version so I commented out that check from the configure file and then it would configure, compile, and install. After installation, it put the shared object file in my php extension modules directory so I added an entry to my /etc/php.d directory to load the extension file and restarted apache and the imagick section is present in my info.php output.
imagickのインストーラがPHPのバージョン確認しようとして、その"php-config --vernum"コマンドがこけているというのだ。

imagickのバグ？peclのバグ? はたまたphpizeのバグ？・・・一瞬途方にくれた。

しかしよく見ると、手動configure & コンパイルすればいけたと書いてあるのでやってみる。

まず、PECLのサイトでソースパッケージを探す。
http://pecl.php.net/package/imagick
展開する 
# wget http://pecl.php.net/get/imagick-3.0.0.tgz
# tar xvfz imagick-3.0.0.tgz
# cd imagick-3.0.0

ここでおもむろに、 
# ./configure
んー何も起こらん。

# pecl install .
これもダメ

# pecl install ../package.xml
ERROR: file ../examples/polygon.php does not exist
お、一歩前進。

# cp ../package.xml
# pecl install package.xml
をを、インストーラが起動した。
最初と同じエラーが出た。

これでめでたくディレクトリ内にconfigureファイルが生成された。
# cat configure -n

  3325
  3326    if test -z "${PHP_VERSION_ID}"; then
  3327      if test -z "${PHP_CONFIG}"; then
  3328        { { echo "$as_me:$LINENO: error: php-config not found" >&5
  3329  echo "$as_me: error: php-config not found" >&2;}
  3330     { (exit 1); exit 1; }; }
  3331      fi
  3332      PHP_IMAGICK_FOUND_VERNUM=`${PHP_CONFIG} --vernum`;
  3333      PHP_IMAGICK_FOUND_VERSION=`${PHP_CONFIG} --version`
  3334    else
  3335      PHP_IMAGICK_FOUND_VERNUM="${PHP_VERSION_ID}"
  3336      PHP_IMAGICK_FOUND_VERSION="${PHP_VERSION}"
  3337    fi
  3338
  3339    if test "$PHP_IMAGICK_FOUND_VERNUM" -ge "50103"; then
  3340      echo "$as_me:$LINENO: result: yes. found $PHP_IMAGICK_FOUND_VERSION" >&5
  3341  echo "${ECHO_T}yes. found $PHP_IMAGICK_FOUND_VERSION" >&6
  3342    else
  3343      { { echo "$as_me:$LINENO: error: no. found $PHP_IMAGICK_FOUND_VERSION" >&5
  3344  echo "$as_me: error: no. found $PHP_IMAGICK_FOUND_VERSION" >&2;}
  3345     { (exit 1); exit 1; }; }
  3346    fi
  3347
3339行目あたりに注目。
確かに、PHPのバージョンを確認するのに"php-config --vernum"のようなコマンドを実行している。

試しに、手動でコマンドを実行してみる。 
# php-config --vernum
Usage: /usr/bin/php-config [--prefix|--includes|--ldflags|--libs|--extension-dir|--include-dir|--php-binary|--version]
をを、最初のエラーと同じようなエラーが出た。

なるほどこれが原因か。
「php-config --vernumでバージョン番号を取得しようとしているが、--vernumオプションは存在しない。よってconfigureがコケる。」

Imagickのバグか、PECLのバグか、phpizeのバグか、php-configのバグか、どれが真の原因なのかはわからないが、とりあえず修正することはできそうだ。

とりあえず安直php-configを修正することにする。 
$ which php-config
/usr/bin/php-config
$ nano /usr/bin/php-config

#! /bin/sh

prefix="/usr"
exec_prefix="/usr"
version="5.1.6"
vernum="50106"
includedir="/usr/include/php"
includes="-I$includedir -I$includedir/main -I$includedir/TSRM -I$includedir/Zend -I$includedir/ext"
ldflags=" -L/usr/kerberos/lib"
libs="-lcrypt   -lcrypt -laspell -lpspell -lgmp -ldb-4.3 -lcurl -lbz2 -lz -lpcre -lresolv -lm -ldl -lnsl  -lxml2 -lz -lm -lgssapi_krb5 -lkrb5 -lk5crypto -lcom_err -lss$
extension_dir='/usr/lib/php/modules'
program_prefix=""
program_suffix=""
exe_extension=""
php_binary="/usr/bin/${program_prefix}php${program_suffix}${exe_extension}"

case "$1" in
--prefix)
        echo $prefix;;
--includes)
        echo $includes;;
--ldflags)
        echo $ldflags;;
--libs)
        echo $libs;;
--extension-dir)
        echo $extension_dir;;
--include-dir)
        echo $includedir;;
--php-binary)
        echo $php_binary;;
--version)
        echo $version;;
--vernum)
        echo $vernum;;
*)
        echo "Usage: $0 [--prefix|--includes|--ldflags|--libs|--extension-dir|--include-dir|--php-binary|--version]"
        exit 1;;
esac

exit 0
編集したら実行 
# php-config --vernum
50106
成功！

そして再度imagickをインストール。 
# pecl install imagick
うまく行った！
あとはphp.iniに
extension=imagick.so
を書けばOK！

あ～解決できてよかった。。。]]> リファクタリングに失敗してとんでもないバグを入れてしまった orz tag:dqn.sakusakutto.jp,2010://5.347 2010-07-21T16:51:59Z 2010-07-21T18:08:30Z その悲劇は、PHPの巨大なクラスをリファクタリングしたのが原因で起こりました。 ... DQNEO その悲劇は、PHPの巨大なクラスをリファクタリングしたのが原因で起こりました。


「フォームの送信ボタンを連打すると発生するとDB上で２重登録されてしまうバグがあり、その問題に対処するために確認画面に遷移したときに重複レコードを削除することになっているはずが削除されない」というものでした。


リファクタリング前のクラス


class myClass {

   ...

   function doSomething($user_id)

   {

           $sql1 = "SELECT  * FROM tb1 WHERE user_id = " . $user_id;

           ....

           $sql2 = "DELETE FROM  tbl1 WHERE user_id = " . $user_id;

   }

   ...

}


リファクタリング後のクラス（バグ有り）

class myClass { 
　...


   function doSomething()

   {

           $sql1 = "SELECT  * FROM tb1 WHERE user_id = " . $this->gerUserId();

           ....

           $sql2 = "DELETE FROM  tbl1 WHERE user_id = " . $user_id;

   }

   ...

}


いわゆる「問い合わせによる一時変数の置き換え」をやろうとして、置換が漏れてました。

（$user_id を $this->getUserId()に置き換えたかった）

しかもこのバグを本番にアップして２ヶ月間も気づかず放置。

上記のDELETE文はSQL文法エラーで実行されず、消さなきゃいけないデータが２ヶ月も消えないまま残ってしまっていた。。。


敗因


最初に頭によぎったことは、「Perlで書いてれば！！Perlなら絶対use strictって書くからこんなミスしないのに！！」
こともあろうに私は言語のせいにしようとしました。

もちろんPHPに非があろうはずがありません。
悪いのは私であって、言語ではありません。


E_STRICTを有効にしてなかった

Perlのuse strict;を羨むくらいなら、E_STRICTを有効にしておけばよかった。


自動単体テストを書いていなかった

リファクタリングには自動単体テストが必須なわけですが、私はこれを怠けたのです。

「それってリファクタリングちゃうやん」と言われたら、まったくその通りです。


手動テストをしていなかった

上記delete文がちゃんと機能しているかを確認する手動テストすらしていませんでした。
典型的なEdit & Pray（編集して祈る）開発スタイル !!


本番サーバでのエラーログを見てなかった

上記スクリプトはSQL的に文法エラーなわけで、当然サーバのエラーログにもエラーが残っていました。
しかしその文法エラーのエラー文を見ても、上記スクリプトが原因だと気づきませんでした。。。


ユーザからの声に気づけず

「動作がおかしい」という話をここ数週間聞いてたのですが、どうしてもバグが再現しないので「バグじゃないかもしれない」などと甘いことを考えていました。

本気でバグを探そうという気概が足りなかったのかもしれません。


心がまえ

「自分はリファクタリングに慣れてるからテストなんか書かなくても大丈夫」という慢心がありました。

この慢心がすべての原因のような気がします。（←これが言いたかった）

]]> 携帯サイトでform送信できない場合の対処法 tag:dqn.sakusakutto.jp,2010://5.346 2010-07-19T12:39:45Z 2010-07-19T12:43:35Z 携帯サイトを作成しているときに、AUやドコモの端末でフォームの送信ができないこと... DQNEO DocomoのSH505iSでこの現象を確認しました。

症状

送信ボタンを押しても何の反応もない。

原因


formタグのaction属性を指定していない。

例
<form>
<input ... />
<input ... />
</form>

対処法

formタグのaction属性をきちんと指定してやると、送信できます。

<form action="hoge.php"  >
<input ... />
<input ... />
</form>

FormのAction属性は必須です！

この現象は決してDocomoさんやSharpさんのせいではありません。

HTMLの仕様上、form要素のaction属性は必須です。
http://www.w3.org/TR/html401/interact/forms.html#edef-FORM
action属性はきちんと書きましょう！
]]> 携帯サイトでのbrタグの書き方の注意点 tag:dqn.sakusakutto.jp,2010://5.345 2010-07-19T11:54:23Z 2010-07-19T12:01:39Z 携帯サイトを作るときは、brタグの書き方に気をつけましょう。 正しい例 br と... DQNEO
正しい例
br と /の間に半角スペース 
<br />


悪い例
下記のように書くと改行されないことがあります

<br/>


]]> 空メールからの会員登録でパラメータを渡す方法(Postfix) tag:dqn.sakusakutto.jp,2010://5.344 2010-07-19T03:09:36Z 2010-07-19T04:42:34Z 携帯サイトで、空メールから会員登録するときに、あて先のメールアドレスを「reg+... DQNEO

宛先メールアドレスの"+"以降をパラメータとして扱う

まず、"reg+123@"宛てに送っても"reg+foo@"宛てに送っても、"reg@"にメールが届くようにします。
Gmailで使われているテクニックですね。

main.cfを編集する
Postfixの/etc/postfix/main.cfの"recipient_delimiterという項目がコメントアウトされているので、 #を削除して有効にします。 
# recipient_delimiter = +
↓ 
recipient_delimiter = +
（Ubuntu9.04ではデフォルトで有効になっていました。)

変更を反映させる
変更したらPostfixを再起動します。 
/etc/init.d/postfix restart

スクリプトでパラメータを抜き出す
あとは、PHPなどスクリプト側で、宛先メールアドレスを正規表現で解析します。 

/**
 *  "reg+12345@example.com"から"12345"部分を抜き出す
 */
function getParam($mailaddress)
{    
        if(preg_match('/reg\+(.+)/i', $mailaddress, $matched )) {
            return $matched[1];
        } else {
            return false;
        }
}

参考

ケータイサイトでメール送受信をする際のポイントをご紹介 : Media Technology Labs (MTL) : メディアテクノロジーラボ　ブログ]]> [Postfix][自宅サーバ]Outbound port 25 Blocking対策してメール送信する方法 tag:dqn.sakusakutto.jp,2010://5.343 2010-07-18T09:33:34Z 2010-07-18T10:56:10Z No route to host (port 25)の原因と対策 自宅サーバか... DQNEO No route to host (port 25)の原因と対策 自宅サーバから自分の携帯やらGmailやらにメール送信しようしたら、送れませんでした。
Postfixのメールログを見るとこんな感じでした。 

Jul 18 18:16:41 centos postfix/smtp[3250]: connect to gmail-smtp-in.l.google.com[74.125.53.27]: Connection timed out (port 25)
Jul 18 18:16:52 centos postfix/smtp[3250]: connect to alt1.gmail-smtp-in.l.google.com[74.125.95.27]: No route to host (port 25)
Jul 18 18:17:22 centos postfix/smtp[3250]: connect to alt2.gmail-smtp-in.l.google.com[74.125.65.27]: Connection timed out (port 25)
Jul 18 18:17:36 centos postfix/smtp[3250]: connect to alt3.gmail-smtp-in.l.google.com[74.125.93.27]: No route to host (port 25)
Jul 18 18:17:47 centos postfix/smtp[3250]: connect to alt4.gmail-smtp-in.l.google.com[209.85.227.27]: No route to host (port 25)
Jul 18 18:17:47 centos postfix/smtp[3250]: 96E9D78834A: to=<********@gmail.com>, relay=none, 
delay=96, delays=0.07/0.01/96/0, dsn=4.4.1, status=deferred (
connect to alt4.gmail-smtp-in.l.google.com[209.85.227.27]: No route to host)
調べたところ、どうやら「Outbound port 25 Blocking(OP25B)」というやつが原因のようでした。
ISPが迷惑メール対策として25番ポートに制限をかけているそうです。

対策


準備
契約しているISPのアカウント、パスワード、smtpサーバのアドレスを確認します。
ここでは、ISPの契約情報が下記の通りになっていると仮定します。
メールアカウント hoge001
パスワード mypasswd
送信メールサーバ(smtp) smtp.example.ne.jp

main.cnf
main.cnfに下記を追記します。 
# OP25B対策の設定
relayhost = [smtp.example.ne.jp]:587
smtp_sasl_auth_enable=yes
smtp_sasl_password_maps=hash:/etc/postfix/isppasswd
smtp_sasl_security_options = noanonymous
smtp_sasl_mechanism_filter =

master.cnf
master.cnfで、#submission inet ..... あたりがコメントアウトされているので#を削除して有効にします。
CentOS5.3の場合 
submission inet n       -       n       -       -       smtpd
  -o smtpd_enforce_tls=yes
  -o smtpd_sasl_auth_enable=yes
  -o smtpd_client_restrictions=permit_sasl_authenticated,reject

Ubuntu9.04の場合 
submission inet n       -       -       -       -       smtpd
  -o smtpd_enforce_tls=yes
  -o smtpd_tls_security_level=encrypt
  -o smtpd_sasl_auth_enable=yes
  -o smtpd_client_restrictions=permit_sasl_authenticated,reject
  -o milter_macro_daemon_name=ORIGINATING

パスワードファイルを作る
/etc/postfix/ の下に"isppasswd"というファイルを作成します。 
vi /etc/postfix/isppasswd
smtp.example.ne.jp hoge001:mypasswd
postmapコマンドを実行します。 
postmap /etc/postfix/isppasswd

sasl関係のライブラリをインストール
Ubuntuの場合 
# apt-get install libsasl2-2 libsasl2-modules sasl2-bin
CentOSの場合 何もインストールしないで行けました。
postfixを再起動
# /etc/init.d/postfix reload
以上でメール送信できるようになりました。

参考

Outbound port 25 Blocking対応 | Debian LennyでLinuxサーバー構築:]]> Call to undefined function imagecreate() tag:dqn.sakusakutto.jp,2010://5.342 2010-07-11T09:38:47Z 2010-07-11T09:45:47Z 上記のエラーが出るのは、GDモジュールが入ってないのが原因です。 GDをインスト... DQNEO 上記のエラーが出るのは、GDモジュールが入ってないのが原因です。

GDをインストールする方法　( Ubuntu + PHP5 )

sudo apt-get install php5-gd
sudo /etc/init.d/apache2 restart     # apache再起動
]]> warning: incompatible implicit declaration of built-in function 'exit' tag:dqn.sakusakutto.jp,2010://5.341 2010-07-10T06:05:50Z 2010-07-10T06:13:14Z C言語で上記のようなエラーが出た場合の解決方法。 原因 ヘッダーファイル"std... DQNEO 原因 ヘッダーファイル"stdlib.h"を読み込み忘れている

対処法

ソースコードの先頭に、下記のように書きます。 
#include <stdlib.h>
]]> Windows + PHP + Imagickをインストールする方法 tag:dqn.sakusakutto.jp,2010://5.340 2010-07-09T11:53:07Z 2010-07-12T01:21:36Z PHP 5.3.1や PHP 5.3.2の場合、何をどうやってもImagickを... DQNEO PHP 5.3.1や PHP 5.3.2の場合、何をどうやってもImagickをインストールすることができませんでした。

結局、PHPのバージョンを5.2.13にしたらうまく行きました。

Windows + PHP5.2でImagickをインストールする方法

・ImageMagickをダウンロード＆インストール

・PHP公式サイトから、PHP5.2の最新版をダウンロード
(現時点ではphp-5.2.13-win32-installer.msi)

　http://www.php.net/downloads.php

・下記サイトから、php_imagick_dyn-Q16.dllをダウンロード

　http://valokuva.org/outside-blog-content/imagick-windows-builds/080709/

・php.exeと同じ場所にphp_imagick_dyn-Q16.dllを置く。

・php.iniに下記を追記

　extension=php_imagick_dyn-Q16.dll

]]> Movable Type 4.0から5.02にアップグレードしました。 tag:dqn.sakusakutto.jp,2010://5.339 2010-06-13T16:21:06Z 2010-06-13T19:35:46Z 2007年夏にMT4.0を導入してから、一度もアップグレートしていなかった（怖く... DQNEO 2007年夏にMT4.0を導入してから、一度もアップグレートしていなかった（怖くていじれなかった）のですが、ついにバージョン５(5.02)にアップグレードしました。

バージョン４→５への移行について

公式サイトの手順どおりにやったら、わりとすんなりアップグレードできました。


バージョン５を使ってみての感想

まだほんの少ししか触っていませんが、管理画面がすっきりして使い勝手がよくなった気がします。

バージョン４の場合だと、ログインしてからブログ記事を作成するまでに、下記のように５ステップ必要でした。

ログイン　→　ブログ一覧　→　目的のブログを選択　→　記事の新規作成

これがバージョン５だと、

ログイン　→　記事の新規作成

と２工程にまで減りました。

また、管理画面のレイアウトで、メニューバーが従来は画面上部にプルダウン式だったのが、３カラム方式の左サイドに変わっています。

噂ではバージョン３のスタイルに戻したそうですが、少し使いやすくなった気がします。

インストールしてすぐ感じたのは以上です。
もっと使い込んだらいろいろ感想が出てくると思いますので、このブログで報告します。

]]> たった５行のコードでWebページ取得・解析をするJavaScriptプログラム tag:dqn.sakusakutto.jp,2010://5.338 2010-06-07T17:57:02Z 2010-06-07T23:35:43Z ５行のコードで、Yahoo!のトピックス一覧を抽出する！使うのは「メモ帳」だけ！... DQNEO ５行のコードで、Yahoo!のトピックス一覧を抽出する！使うのは「メモ帳」だけ！ Windowsユーザのみなさん、社会人・学生のみなさん、こんにちわ。
プログラマではないあなたのために、プログラムの面白さを伝えるためにこの記事を書きました。

これから、たった５行のコードでYahoo!のトピックス一覧を抽出してみます。
このプログラムのすごいところは、何もインストールしなくてよいことです。
Windowsとメモ帳だけあれば動きます。

下記のコードをメモ帳に貼り付けて、デスクトップに保存してください。
(IE6,7で動作確認済みです。たぶんIE8でも動きます。）

ファイル名： yahoo.jse 

var IE = new ActiveXObject('InternetExplorer.Application');
IE.navigate('http://yahoo.co.jp');
while (IE.busy);
while (IE.document.readyState != "complete");
WSH.Echo(IE.document.getElementById('topicsfb').innerText);

ファイル名が　" yahoo.jse.txt "　にならないように気をつけてくださいね

jscript01.JPG

保存したら、ダブルクリックします。

02.jpg

すると、、、ほら！！

03.jpg
ね、すごいでしょ？

応用例

株価を取得する
トヨタ自動車の株価をチェックしてみたりとか。


var IE = new ActiveXObject('InternetExplorer.Application');
IE.navigate('http://profile.yahoo.co.jp/fundamental/7203');
while (IE.busy);
while (IE.document.readyState != "complete");
WSH.Echo(IE.document.getElementById('left_col').innerText);
04.jpg

気象庁の天気予報を取得する
明日のデートにそなえたりとか。


var IE = new ActiveXObject('InternetExplorer.Application');
IE.navigate('http://tenki.jp/');
while (IE.busy);
while (IE.document.readyState != "complete");
WSH.Echo(IE.document.getElementById('descriptionEntries').innerText);

05.jpg
どうですか、簡単でしょう？

まとめ

JavaScript(厳密に言うとJScript)で遊んでみました。
Windowsには、このようにメモ帳だけでプログラムを実行できる素晴らしい環境があります。
特別なソフトを入れずとも、すぐプログラムが書けるのです。

これでプログラミングの楽しさを知っていただけたら幸いです。

（くれぐれも悪用しないでくださいね！！）
]]> 簡単！たった１行のコードでWebページを取得するPerlスクリプト tag:dqn.sakusakutto.jp,2010://5.337 2010-06-06T18:21:50Z 2010-06-06T18:53:10Z コマンド１発で、ヤフーのトップページを取得する！ Perlを使うと、たった１行の... DQNEO コマンド１発で、ヤフーのトップページを取得する！ Perlを使うと、たった１行のコード（というかコマンド）でウェブページのHTMLを取得できます。

しかも、LinuxでもWIndowsでも全く同じコマンドで動作します。

Linux系の場合
$ perl -MLWP::Simple -e  " print get 'http://yahoo.co.jp' "


Windowsの場合（コマンドプロンプトで下記を入力)
> perl -MLWP::Simple -e  " print get 'http://yahoo.co.jp' "

実行結果
Wide character in print at -e line 1.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 
Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<meta http-equiv="content-style-type" content="text/css">
<meta http-equiv="content-script-type" content="text/javascript">
<meta name="description" content="日本最大級のポータルサイト。
検索、オークション、ニュース、メール、コミュニティ、ショッピング、など80以上のサービスを展開。
あなたの生活をより豊かにする「ライフ・エンジン」を目指していきます。">
<title>Yahoo! JAPAN</title>
<base href="http://www.yahoo.co.jp/_ylh=X3oDMTB2OHNyYWxqBF9TAzIwNzkxODE5OTkEdGlkA
zEzBHRtcGwDdGFibGU-/">
<style type="text/css">
(以下省略)

取得したHTMLをファイルとして保存したい場合は、下記のようにします。
こうすると、結果を画面に表示する代わりにファイルに保存できます。


perl -MLWP::Simple -e  " print get 'http://yahoo.co.jp'" > yahoo.html
ちなみに">"記号のことを「リダイレクト」といいます。

Perlって素晴らしい！！



【補足１】
LWP::Simpleモジュールが必要です。
上記のget関数は、Perlの標準関数ではなくてLWP::Simpleというモジュールが提供する関数です。
インストール方法は割愛しますが、よく使われるモジュールなのでレンタルサーバなどでは初めから入ってることが多いです。
（Xreaにはインストール済みでした。）

【補足２】
出力結果の１行目に警告が出ちゃってますが、多めに見てあげてください。。。 ]]> Smarty 半角数字を全角数字に変換するプラグイン tag:dqn.sakusakutto.jp,2010://5.336 2010-06-06T12:57:58Z 2010-06-06T13:02:23Z /** * 半角数字→全角数字に置き換えるmodifier * * @s... DQNEO /** * 半角数字→全角数字に置き換えるmodifier * * @see * http://pentan.info/php/smarty/mod_hkana.html * */ function smarty_modifier_numeric_hantozen($string, $encoding = 'UTF-8') { return mb_convert_kana($string, "N", $encoding); }

使い方

ファイル名を "modifier.numeric_hantozen.php" にして、Smartyのプラグインディレクトリに保存してください。

テンプレート内で、下記のようにと書くと変換してくれます。 

{$number|numeric_hantozen}
参考記事
携帯表示用に文字を全角から半角にする - [Smarty] ぺんたん info]]> [Perl] Ubuntu9.04にWeb::Scraperをインストールする方法 tag:dqn.sakusakutto.jp,2010://5.335 2010-06-06T09:18:05Z 2010-06-06T09:19:37Z 前回の記事で、XML::LibXMLのインストールが失敗してることまではわかりま... DQNEO 
cpan[1]> install XML::LibXML
CPAN: Storable loaded ok (v2.18)
Going to read '/root/.cpan/Metadata'
  Database was generated on Sat, 05 Jun 2010 04:27:23 GMT
CPAN: YAML loaded ok (v0.70)
Going to read 86 yaml files from /root/.cpan/build/
CPAN: Time::HiRes loaded ok (v1.9711)
DONE
Restored the state of none (in 2.0500 secs)
Running install for module 'XML::LibXML'
Running make for P/PA/PAJAS/XML-LibXML-1.70.tar.gz
  Has already been unwrapped into directory /root/.cpan/build/XML-LibXML-1.70-IIX0Tb
  No 'Makefile' created
, won't make
Running make test
  Make had some problems, won't test
Running make install
  Make had some problems, won't install

とりあえず解決できたので、以下にその方法を載せておきます。
原因や仕組みはよくわかりません。すいません。。


# su -        # rootになる
# cd /root/.cpan/build/XML-LibXML-1.70-IIX0Tb
# perl Makefile.PL      # Makefile.PLを実行　→　エラーが出る
# apt-get install libxml2-dev       # ライブラリをインストール
# perl Makefile.PL       #  Makefile.PLを実行　→　またエラーが出る
# apt-get install libxml-libxml-perl      # ライブラリをインストール
# perl Makefile.PL       # 成功！！
# make
# make test
# make install
# update-perl-sax-parsers       # 一応。
# cpan

cpan>  install XML::libXML       # 成功！
cpan>  install Web::Scraper      # 成功！

成功！！

動作確認は次回の記事で。 ]]>