CVSへのアクセスAnonymous CVS で呵糠のソ〖スコ〖ドを茂でも掐緘できます。數恕は肌の奶りです。% cvs -d :pserver:guest@cvs.namazu.org:/storage/cvsroot loginCVS password: guest% cvs -d :pserver:guest@cvs.namazu.org:/storage/cvsroot co -P namazuまた、2001-06-25から奧年惹 (2.0.x) と倡券惹 (2.1.x) に尸呆しました。奧年惹のソ〖スを掐緘したい眷圭には% cvs -d :pserver:guest@cvs.namazu.org:/storage/cvsroot loginCVS password: guest% cvs -d :pserver:guest@cvs.namazu.org:/storage/cvsroot co -r stable-2-0 namazuとしてください。==============================================================GNU Build ToolsCVS から掐緘した Namazu を make するには、あらかじめ笆布のパッケ〖ジがインスト〖ルされている澀妥があります。	- GNU m4 1.4	- GNU autoconf 2.13 (もしくはそれ笆懼)	- GNU automake 1.4 (もしくはそれ笆懼)	- GNU libtool 1.3 (もしくはそれ笆懼)	- GNU gettext 0.10.35 (もしくはそれ笆懼)いずれも GNU のミラ〖(e.g. ftp://ftp.ring.gr.jp/pub/GNU) から緘に掐れることができます。CVS からソ〖スを艱評したら、まずautogen.sh スクリプトを悸乖してください。===============================================================メッセ〖ジカタログ溯條の緘界1. 稱poファイルの踏溯條嬸尸を溯條する2. ja_JP.SJIS.po に簇しては、ja.po の溯條稿に make_sjis_po を   澀ず悸乖する。これで ja.po における恃構が ja_JP.SJIS.po にも   瓤鼻される。3. po 笆布で、make update-po を悸乖することによって、鏈 po を   namazu.pot に票袋させることができる。答塑弄にはこれの帆り手しです。:)なお、GNU gettext 0.10.37 笆慣では Big5 や Shift_JIS な矢機誤を'\' でエスケ〖プする澀妥はなくなりましたが、'\' でエスケ〖プされた矢機誤を崔むカタログを借妄するためには、茨董恃眶OLD_PO_FILE_INPUT および OLD_PO_FILE_OUTPUT を肋年する澀妥があります。惡攣弄には% env OLD_PO_FILE_INPUT=yes OLD_PO_FILE_OUTPUT=yes make update-poなどとしてください。================================================================Namazu のコ〖ディング憚摟 - Perl試mknmz蓋銅の禍攫  * ハッシュのキ〖を矢機誤で回年するときは澀ず '' で崇る。毋:    ∵ $NMZ{log}  ← $NMZ{'log'}  => log という簇眶があるため perl 5.004 では warning が叫る  * debugメッセ〖ジを叫蝸するときは澀ず     util::dprint() を蝗う  * verboseメッセ〖ジを叫蝸するときは澀ず     util::vprint() を蝗う  * エラ〖などの妄統で die するときは澀ず     util::cdie() を蝗う  * ファイルを倡くときには澀ず util::efopen() (エラ〖の箕に    util::cdie() する)または util::fopen() を蝗う  * while (<>) {} や while (<$fh>) {} を敦賄する。$_ はグロ〖    バル恃眶であるため、錯副。洛わりに    while (defined(my $line = <$fh>)) {} とする。  * 辦箕ファイルを侯るときは澀ず     my $tmpfile = util::tmpnam("NMZ.foobar");    として辦箕ファイルの嘆漣を艱評する。  * ファイルの面咳をまるごと粕み哈むときは util::readfile()    を蝗う。 join '' <$fh> より廬いはず。  * ファイルを rename するときは澀ず util::Rename() を蝗う。    OS/2 灤忽。  * プログラム鏈攣に逼讀をおよぼすグロ〖バル恃眶は    lib/var.pl.in に年盜する。  * mknmz 柒だけに逼讀をおよぼすグロ〖バル恃眶は    src/mknmz.pl.in に年盜する。 $SYSTEM のみ毋嘲。  * ユ〖ザが mknmz.conf, ~/.mknmzrc にて恃構したいであろう恃    眶は lib/conf.pl.in に年盜する。今恕  * 澀ず -w オプションを脫いる       #! /usr/bin/perl -w  * 澀ず use strict する  * local() は蝗わない  * 恃眶は蝗う疤彌で離咐する    - C咐胳のようにブロックの呵介で離咐する澀妥はない  * 恃眶の離咐箕にはできる嘎り介袋步を乖う  * for は for my $tmp (@foo) { ... } のように脫いる    - my $tmp の嬸尸が妥 ($tmpのスコ〖プをル〖プ柒に嘎年する)  * 提り猛は哇に return する    - サブル〖チン呵稿の及が return される、というル〖ルに完らない  * built-in簇眶鈣び叫しの狠は臼維できる摧崇柑はできるだけ臼く    - ← substr $str, $offset, $len;  ∵ substr($str, $offset, $len)  * 賴憚山附では $&, $', $` を蝗わない    - プログラム鏈攣が覓くなるため  * サブル〖チンの鈣び叫しは foobar() とする    - &foobar は稍材 ("&" は稍妥)  * サブル〖チンの年盜ではプロトタイプ離咐を乖う    - sub foobar($$$) { ... } のように  * $_ はできる嘎り蝗わない    - $_ はグロ〖バル恃眶なので錯副  * open() は蝗わない。 use IO::File を脫いて    my $fh = new IO::File; $fh->open() とする  * ファイルは哇に誓じず、 destructor にまかせる    - $fh->close() しない (スコ〖プで擴嘎する)  * リファレンスは絡いに寵脫する  * 貸賂の perl module を寵脫する    - 賈嗚の浩券湯をしない  * $| といった潑檢恃眶はできるだけ脫いない    - $| は STDOUT->autoflush(1) で洛脫できる  * グロ〖バル恃眶はできるだけ蝗わない  * コ〖ドはできる嘎りモジュ〖ル步する    - APIを年めて橙磨を推白にする  * 澀妥に炳じて Object Oriented Programming を艱り掐れる    - すべてを OOP で今くことはない  * 墓い賴憚山附には努倒 /x モディファイアを努脫する  * 恃眶を蝗った賴憚山附には奧鏈なら /o モディファイアを努脫    する  * コメントは毖胳で今く嘆漣憚摟  * テンポラリな恃眶は房を啼わず tmp という嘆漣にする  * for 矢のカウンタには $i, $j, $k を脫いる    - 3檬より考くしないように丹をつける  * サブル〖チン嘆は瓢混 (+謄弄胳)、恃眶嘆は嘆混    - e.g. update_registry()  * 胳の息馮にはアンダ〖スコア ('_') を脫いる    - e.g. get_os_name(), $os_name  * 渡疥恃眶の嘆漣は井矢機  * グロ〖バル恃眶の嘆漣は capitalize し、アンダ〖スコアを臼    維する (妥浮皮)    - $IndexType  * 芹誤、ハッシュの恃眶嘆は剩眶妨にする (妥浮皮)    - @files  * 恃眶嘆の端眉な臼維はしない    - $on (OS name) などは稍材  * が、澀妥に炳じて臼維する (妥浮皮)  * 臼維のル〖ルは湯澄步する    - file handle -> fh    - pointer     -> ptr    - index       -> idx    - current     -> cur    - protocol    -> proto    - length      -> len    - string      -> str    - argument    -> arg    - source      -> src    - destination -> dest    - control     -> ctrl    - module      -> mod    - language    -> lang    - initialize  -> init    - variable    -> var    - 戮にもあれば納裁する  * package が佰なれば票じサブル〖チン嘆を脫いて紊いインデント  * インデントは 4矢機帽疤    $foo = 1 + 2 + 3;    $bar = ((1 + 2) + 3) * 4;    if ($foo == $bar) {        print foobar($foo, $bar), "\n";    } else {        die "error";    }    sub foobar ($$) {        my ($foo, $bar) = @_;        return $foo + $bar;    }Perl簇息リンク  * CPAN    <ftp://ring.asahi-net.or.jp/archives/lang/perl/CPAN/>  * Perl Style    <ftp://ftp.dti.ad.jp/pub/lang/CPAN/doc/FMTEYEWTK/style/slide-index.html>  * perl5.005_02のドキュメント    <http://www.kt.rim.or.jp/%7ekbk/perl5.005/index.html>  * perl5.004_04のドキュメント    <http://www.kt.rim.or.jp/%7ekbk/perl5.doc/index.html>  * Perl information memo    <http://www.st.rim.or.jp/~cond/perlinfo/index.html>  * /pub/IIJ/dist/utashiro/perl directory    <ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl>  * /pub/lang/CPAN/authors/Hirofumi_Watanabe directory    <ftp://ftp.dti.ad.jp/pub/lang/CPAN/authors/Hirofumi_Watanabe>  * FMTEYEWTK    <ftp://ftp.dti.ad.jp/pub/lang/CPAN/doc/FMTEYEWTK/index.html>  * Yahoo! - Computers and Internet:Programming Languages:Perl    <http://www.yahoo.co.jp/Computers_and_Internet/Programming_Languages/Perl/>  * JPerl for Win32    <http://www.yk.rim.or.jp/~hizumi/perl/index.html>  * Index of /archives/lang/perl/CPAN/modules/by-authors/Gurusamy_Sarathy    <http://ring.nacsis.ac.jp/archives/lang/perl/CPAN/modules/by-authors/Gurusamy_Sarathy/>  * Learning Perl/Tk    <http://tanaka-www.cs.titech.ac.jp/~ueki/PerlTk/index.html>  * ActiveState Tool Corp. - Professional tools for Perl developers    <http://www.activestate.com/>  * Index of /archives/lang/perl/CPAN/modules/by-module/Tk    <http://ring.nacsis.ac.jp/archives/lang/perl/CPAN/modules/by-module/Tk/>  * What's wrong with Perl       <http://www.stud.ifi.uio.no/~larsga/download/artikler/perl.html>