2008年12月アーカイブ

c:\> perl -e "print chr(7)"

マシンによっては大きい音が出るので、周囲にご注意を。

備忘録のためにメモ。

Onにしたいときは、

<form name='frm' >

<input type="checkbox" name='foo' value='bar' >

<input type="submit">

</form>

<script>

document.frm.foo.checked = "checked";

</script>

document.frm.foo.checked = "checked";

ある特定のモジュールが、自分のマシンにインストール済みかどうかを調べる方法。

いまいちベストなやり方がよくわかりません。

私は定数はあまり使わないが、それで困った事はほとんどない。どうしてもというときは明示的に

sub DEBUG { 1 } # DEBUG 

を定数として使う
http://blog.livedoor.jp/dankogai/archives/50465942.html

ということなので、Danさんのこのやり方に従うことにしてみます。

意外と知られていない技。

C:\>ppm

C:\p>pm-shell

最近やっとOOPでPerlを書けるようになってきて、Class::Accessor::Fastなるモジュールの存在を知りました。
ところがppmで検索してもClass::Accessor::Fast::**　みたいな親戚モジュールばっかり出てきて、肝心のClass::Accessor::Fast本体が見つかりませんでした。

c:\>ppm　serach Class-Accessor-Fast

1: Class-Accessor-Fast-Contained

   Fast accessors with data containment

   Version: 1.01

   Released: 2008-11-08

   Repo: ActiveState Package Repository


2: Class-Accessor-Fast-Contained

   Fast accessors with data containment

   Version: 1.01

   Repo: trouchelle

3: Class-Accessor-Fast-GXS

   generate C::A::Fast compatible XS accessors

   Version: 0.01

   Released: 2008-05-05

   Repo: ActiveState Package Repository

4: Class-Accessor-Fast-GXS

   generate C::A::Fast compatible XS accessors

   Version: 0.01

   Repo: trouchelle

5: Class-Accessor-Fast-XS

   XS replacement for Class::Accessor::Fast

   Version: 0.02

   Released: 2008-11-12

   Repo: ActiveState Package Repository

6: Class-Accessor-Fast-XS

   XS replacement for Class::Accessor::Fast

   Version: 0.02

   Repo: trouchelle

7: MooseX-Emulate-Class-Accessor-Fast

   Emnulate Class::Accessor::Fast using attributes

   Version: 0.00600

   Released: 2008-12-17

   Repo: ActiveState Package Repository

8: MooseX-Emulate-Class-Accessor-Fast

   Emnulate Class::Accessor::Fast using attributes

   Version: 0.00500

   Repo: trouchelle

調べたら、cpanコマンドでインストールできるようです。
Windowsでもcpanコマンド使えるの知りませんでした。(><)

c:\>cpan

cpan> i Class::Accessor::Fast

cpan> q

c:\>perl -MClass::Accessor::Fast -e "print 1;"

1

反省点

環境エラー

• ローカル環境(windows)で作って、本番環境(linux)に移行した段階でエラー多発。
• ブックマークが使えなくなって作業効率低下。
• FTPアップロード忘れが多発して作業効率低下。
• PHP.iniの設定が違うので挙動が変わり、作業効率低下。
  　→ 早い段階から本番環境で開発してればよかった。

ファイル命名規則の失敗

ページ遷移図、ファイルリストの不備

いろんなファイルにコードを分散

配列の使い方のルール

関数の仕様を途中で変更して自爆

セッション変数はデフォルトでダンプすべき

良かった点

• ieHTTPHeaderが超便利
• クッキーの値を確認するのに役立った。
• PHPはオンラインマニュアルが充実している
• 定数を使ってページ先頭で遷移先を記述。define("NEXT","form.php"); これで可読性向上した。

ソースコードをUTF8で書いて、print文をUTF8で出力したい場合。

自分でもよく忘れるのでメモ。

#!/usr/bin/perl


use strict;

use warnings;

use utf8;      # このスクリプトはUTF8で書かかれていますよ、という宣言

binmode STDOUT, ":encoding(utf8)";　  # 以下のPrint文を自動的にUTF8として出力せよ、という命令

my $str ="あいうえお\n";

print substr($str,2,1)."\n;"　　　　#  'う'　 と出力される。

#!/usr/bin/perl  (Linuxの場合)

#!c:¥perl¥bin¥perl  (Windowsの場合)

JavaScriptにおける、送信前確認ボタンの出し方。

<input type='submit'  value='送信' onclick='return confirm("よろしいですか？");'/>

フォーム送信前に確認メッセージを出して、ユーザが「はい」をクリックすると送信され、「いいえ」をクリックすると何も起こらない。