Perl - KazLog ChangeLog

undefは未定義化する宣言であり、初期化ではない。

初期化は,

@array = ();

PHP-MySQL サンプルプログラム

• http://www.sitepoint.com/article/hierarchical-data-database
• http://www.hotscripts.com/Detailed/58440.html

Visualizing Software

• http://www.tonymarston.net/php-mysql/tree-structure.html

DBIx::TableHashは木構造ではなく一層

• http://search.cpan.org/~chthorman/DBIx-TableHash-1.05/TableHash.pm

DBIx::Tree::NestedSetが使えるか？

• http://search.cpan.org/~djcp/DBIx-Tree-NestedSet-0.16/lib/DBIx/Tree/NestedSet.pm

it's highly recommended for efficiency and safety reasons that you use an array to pass arguments to system()

重要1: http://www.perlhowto.com/executing_external_commands

重要2: http://www2.denshi.numazu-ct.ac.jp/unix/perl/gaibu.shtml

たとえば、wgetなどのときarrayに楊祚を格納するときは、--header="header data"をそのまま格納せず、

• -headerと "header data"を別々の要素として配列に格納する.

配列についての情報

@moremusic = ("organ", @music, "harp");

との表記が、許される。push使う必要ないじゃないか。

http://www.comp.leeds.ac.uk/Perl/arrays.html

#!/usr/bin/env -perl

my $temp="http://a.com http://b.com http://c.com";

my $flag=5;

#while($temp=~s/(http:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/$1/){ # case1

while($temp=~s/(http:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)//){ # case2(理想)

print "$1\n";

$flag--;

exit unless($flag);

}

# case 1

# http://a.com/

# http://a.com/

# http://a.com/

# http://a.com/

# http://a.com/

#

# case2

# http://a.com/

# http://b.com/

# http://c.com/

• Perl on Cygwin から MySQL にアクセスするときは、DBI/DBDではなく（ソースからのコンパイルは通らない）、Net::MySQLを使うこと。

http://sonic64.com/2004-10-11.html

• Digest::SHA1 がないとエラーになるので、以下のrpmからインストールする。（ソースからのコンパイルは通らない）

http://d.hatena.ne.jp/Bayside/20070806/p1