HEX
Server: Apache
System: FreeBSD www860.sakura.ne.jp 13.0-RELEASE-p14 FreeBSD 13.0-RELEASE-p14 #2: Mon Dec 9 13:54:55 JST 2024 root@www5301.sakura.ne.jp:/usr/obj/usr/src/amd64.amd64/sys/GENERIC amd64
User: yoyo0427 (1306)
PHP: 8.3.8
Disabled: NONE
Upload Files
File: //usr/local/share/namazu/etc/HACKING-ja
CVS�ؤΥ�������

Anonymous CVS �Ǻǿ��Υ����������ɤ�ï�Ǥ����Ǥ��ޤ���
�ˡ�ϼ����̤�Ǥ���

% cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co -P namazu

�ޤ���2001-06-25��������� (2.0.x) �ȳ�ȯ�� (2.1.x) ��ʬ��
���ޤ����������ǤΥ���������ꤷ�������ˤ�

% cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co -r stable-2-0 namazu

�Ȥ��Ƥ���������

==============================================================

GNU Build Tools

CVS ������ꤷ�� Namazu �� make ����ˤϡ����餫����ʲ���
�ѥå����������󥹥ȡ��뤵��Ƥ���ɬ�פ�����ޤ���

	- GNU m4 1.4
	- GNU autoconf 2.50 (�⤷���Ϥ���ʾ�)
	- GNU automake 1.6 (�⤷���Ϥ���ʾ�)
	- GNU libtool 1.4 (�⤷���Ϥ���ʾ�)
	- GNU gettext 0.13 (�⤷���Ϥ���ʾ�)

������� 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 2.0.18 �ʹߤϡ�'\' �ǥ��������פ��ʤ��褦�ˤ�
�ޤ����Τǡ��Ķ��ѿ���������� make update-po ��¹Ԥ��Ƥ�
��������

% make update-po

================================================================

Namazu �Υ����ǥ��󥰵�§ - Perl��

mknmz��ͭ�λ���

  * �ϥå���Υ�����ʸ����ǻ��ꤹ��Ȥ���ɬ�� '' �dz�롣��:
    �� $NMZ{log}  �� $NMZ{'log'}
  => log �Ȥ����ؿ���뤿�� perl 5.004 �Ǥ� warning ���Ф�

  * debug��å���������Ϥ���Ȥ���ɬ�� 
    util::dprint() ��Ȥ�

  * verbose��å���������Ϥ���Ȥ���ɬ�� 
    util::vprint() ��Ȥ�

  * ���顼�ʤɤ��ͳ�� die ����Ȥ���ɬ�� 
    util::cdie() ��Ȥ�

  * �ե�����򳫤��Ȥ��ˤ�ɬ�� util::efopen() (���顼�λ���
    util::cdie() ����)�ޤ��� util::fopen() ��Ȥ�

  * �ե�������Ĥ���Ȥ��ˤ�ɬ�� util::fclose() ��Ȥ�

  * 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 �ˤޤ��������ۤ��Ĥ���
    - util::fclose() ���Ѥ��� (2.0.13 �ʹ߲���)
  * ��ե���󥹤��礤�˳��Ѥ���
  * ��¸�� 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>