Perl/ActivePerl For UNIX/Linux/Windows
 
TryThe Homepage
���߂Ă�CGI
CGI ������
�_�C�i�~�b�NCGI
�_�E�����[�h
�T�[�r�X
�T�[�o�\�z(Windows)
�f�[�^�x�[�X�A�N�Z�X
�L���T�[�r�X
FAQ
���₢���킹
���̃y�[�W�����
�֗��ȃT�u���[�`���֐��W
  perl-lib.pl�̗��p
perl-lib�́Aperl�X�N���v�g�ɑg�ݍ��ނ����ō��x�ȋ@�\���ȒP�Ɏ�������ėp�̊֐��W�ł��B
CGI�ւ̑g�ݍ��݂́A
#!/usr/local/bin/perl

#���{��R�[�h�ϊ����W���[��
require 'jcode.pl';
#�֐����C�u�����̓ǂݍ���
require 'perl-lib.pl';
���ꂾ���ŁA���C�u�������񋟂���S�ẴT�u���[�`���A�֐����ǂ�����ł��Ăяo�����Ƃ��ł��܂��B

�@�\�A�b�v�ׁ̈A�\���������ς��Ă��܂��B����I�Ƀ_�E�����[�h���ăA�b�v�O���[�h���Ă��������B
  • ���{�ꕶ����֐�4���lj� [2003/04/02]
  • i-Mode���[���A�h���X�ɑΉ� [2003/03/02]
  • GIF�摜�̃T���l�C�������usumnailcopy�v�֐���lj� [2003/03/01]
  • ASCII���������ɈÍ�������uascscramble�v�֐���lj� [2003/02/15]
�{�͂ł́A�ȗ��ł���Y������[ ]�Ŋ����ĕ\�����Ă��܂��B
  �֐����t�@�����X
  • html_head
    html_head(bgcolor,text,link,vlink,alink[,background,topmargin,leftmargin,title])

    �قƂ�ǂ�CGI��html�h�L�������g��Ԃ��悤�쐬����܂����Ahtml_head�֐���html��Mime�^�C�v�̐錾�ƁA html�h�L�������g�̃w�b�_�[��錾���܂��B
    bgcolor=�w�i�F
    text=�����F
    link=�����N�F
    vlink=�A�N�Z�X�ς݃����N�F
    alink=�A�N�Z�X�������N�F
    background=�w�i�摜
    leftmargin=��]��
    bgcolor=���]��
    title=�y�[�W�̃^�C�g��

  • img_head
    img_head[(flag)]

    �A�N�Z�X�J�E���^��A���I�ɉ摜��Ԃ��X�N���v�g�ł͉摜��Mime�^�C�v��錾����K�v���L��܂��B
    flag = gif/jpeg/png

  • comma
    comma(number)

    ���l�ɂR�����Ƃ̃J���}�u,�v��}�����܂��B
    number = ���l

  • readparts
    readparts([Variable, Tag, Jcode])

    �t�H�[������̃f�[�^���w�肵���z��y�јA�z�z��Ɋi�[���܂��B �t�H�[�����}���`�p�[�g(ENCTYPE=multipart/form-data)�ő��M���ꂽ�ꍇ�́A �w�肳�ꂽ�t�@�C�����A�b�v���[�h���邱�Ƃ��ł��܂��B
    Variable=�i�[����ϐ���
    �u%�v�^�̘A�z�z�񂾂��łȂ��A�u@�v�^�̔z��ϐ����g�p����܂��̂ŁA �����Ŏw�肵���ϐ����𑼂̃��[�`���Ŏg�p���邱�Ƃ͂ł��܂���B
    Tag=�����ɂ��镶��
    Jcode=jis/sjis/euc
    �����R�[�h���w�肵�܂��B ���̈������w�肵���ꍇ�́Ajcode.pl���C���N���[�h����Ă��Ȃ���΂Ȃ�܂���B
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';
    readparts('QUERY', '<>=', 'sjis');
    ���̗�́A�t�H�[������̃f�[�^��%QUERY�A�z�z���@QUERY�Ɋi�[����Ɠ����ɁA �S�Ẵ^�O�𖳌��ɂ��Ă��܂��B

  • send_email
    send_email(sendmailpath,uuencodepath,subject,from,to,cc,bcc,body[,files,encoding])

    �z�[���y�[�W���璼�ڃ��[���𑗐M���܂��B �T�[�o�ɓY�t����t�@�C�������݂���΁A���M���郁�[���Ƀt�@�C����Y�t���邱�Ƃ��ł��܂��B
    sendmailpath= UNIX��sendmail���C���X�g�[���������p�X(/usr/lib/sendmail)
    uuencodepath= �o�C�i���t�@�C�����G���R�[�f�B���O����uuencode�̃p�X(/usr/bin/uuencode)
    subject=���[���̌���
    from=���M�҂̃��[���A�h���X
    to=���M��̃��[���A�h���X
    cc= �J�[�{���R�s�[�ő��M���郁�[���A�h���X
    bcc= �u���C���h�J�[�{���R�s�[�ő��M���郁�[���A�h���X
    body=���[���{��
    files=�Y�t����t�@�C���̃p�X
    encoding= �G���R�[�f�B���O�̎��
    (�o�C�i���t�@�C��=uuencode�^�e�L�X�g�t�@�C��=text)
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';
    $sendmail = '/usr/lib/sendmail';
    $uuencode = '/usr/bin/uuencode';
    readparts('QUERY', '<>=', 'sjis');
    $subject = '���肪�Ƃ��������܂���';
    $master = 'info@trythehomepage.com';
    $body = '���o�^���肪�Ƃ��������܂����B';
    $body .= '����Ƃ���낵�����肢���܂��B';
    &jcode'convert(*subject,'jis');
    &jcode'convert(*body,'jis');
    $err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
    $err && &error_view($err);
    html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
    print "<center>\n";
    print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
    print $body;
    print "</font></td></tr></table>\n";
    print "</center>\n";
    print "</body></html>\n";
    exit;
    sendmail���g�p�”\�Ȋ‹��ł́A���ꂾ���Ńz�[���y�[�W���烁�[���𑗐M���邱�Ƃ��ł��܂��B ���T�C�g�����Љ��z�[���T�[�o�̍\�z��Blatj���C���X�g�[������Ă���ꍇ�́A Windows�T�[�o����ł����[�������M�ł��܂��B

  • data_read
    data_read(data_path)

    data_path�Ɏw�肵���f�[�^�t�@�C����ǂݍ��݁A�z��ϐ��Ɋi�[���܂��B
    data_path = �f�[�^�t�@�C���̃p�X

  • data_save
    data_save(data_path, WRITE_DATA)

    WRITE_DATA�z��ϐ��̓��e��data_path�Ɏw�肵���f�[�^�t�@�C���ɕۑ����܂��B �Ǝ������ɂ�鋭�͂ȃt�@�C�����b�N�V�X�e���ő�؂ȃf�[�^��ی삵�܂��B �ۑ��ɐ��������ꍇ�̓k�����A���s�����ꍇ�͎��s����������Ԃ��܂��B
    data_path=�f�[�^�t�@�C���̃p�X
    WRITE_DATA=�ۑ��f�[�^���i�[���ꂽ�z��ϐ�
    #!/usr/local/bin/perl
    require 'perl-lib.pl';
    $err = data_save('log.txt', @DATA);
    $err && &error_view($err);
    ���̗�ł́A�z��@DATA���ulog.txt�v�Ƃ����t�@�C�����ŕۑ����Ă��܂��B ���s�����ꍇ�́A�G���[�̌������擾���ăG���[���b�Z�[�W��\�����܂��B

  • upload
    upload(autoname,filetype,format,dir,max,permission,mode[,variable])

    �}���`�p�[�g�ɑΉ������u���E�U(InternetExplorer4�ANetscape3�ȏ�)���� ���ڃp�\�R���̃t�@�C�����T�[�o�ɃA�b�v���[�h���܂��B �e�L�X�g�����͂������A�摜�t�@�C����A���k���ꂽ���Ƀt�@�C���Ȃǃo�C�i���t�@�C�����A�b�v���[�h�ł��܂��B
    Autoname= 0:���̃t�@�C�����̂܂ܕۑ��B �����t�@�C���������݂���ꍇ�͏㏑�������
    1:�����I�ɏd�����Ȃ��t�@�C�������쐬���ĕۑ�
    filetype= �A�b�v���[�h�����‚���t�@�C���̎��
    �k��('')�ɐݒ肷��Ƃ��ׂẴt�@�C���A'image'���w�肷��Ɖ摜�t�@�C���Ɍ���
    format= �A�b�v���[�h�����‚���摜�t�@�C���̎��
    filetype��'image'�ɐݒ肳��Ă���ꍇ�ɗL���ŁAjpeg/gif/png���w��ł���
    dir= �A�b�v���[�h���ꂽ�t�@�C����ۑ�����f�B���N�g���̃p�X
    max= �A�b�v���[�h�����‚���t�@�C���̑傫��
    ����𒴂���t�@�C���̓A�b�v���[�h�ł��Ȃ��B�O���w�肷��Ƃ��ׂẴT�C�Y
    permission=�ۑ���̃t�@�C������
    mode= �e�L�X�g�t�@�C���ƃo�C�i���t�@�C���̉��s�R�[�h���قȂ�OS(Windows)����UNIX��A Linux�̂悤�ȃT�[�o�Ƀe�L�X�g�t�@�C�����A�b�v���[�h����ꍇ�͉��s�R�[�h�𑵂���K�v������܂��B ���̂悤�ȏꍇ��mode��'text'���w�肵�܂��B Windows98,Me����WindowsNT,Windows2000���̓���n�T�[�o�ɃA�b�v���[�h����ꍇ�͎w�肷��K�v�͂���܂���B �܂��ALinux����UNIX�̏ꍇ�����l�ł��B
    variable= cgi-lib.pl��ReadParse�֐��ɓn�����ϐ���
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');
    @UPFILES = upload(1,'image','jpeg','./upload/',0,644,'','QUERY');
    @FILE = split(/\t/, $UPFILES[0]);
    foreach (@FILE) {
        ($key, $value) = split(/=/, $_);
        $FILE{$key} = $value;
    }
    $FILE{'err'} && &error_view($FILE{'err'});
    ���̃T���v���ł́A�����Ńt�@�C�������쐬���A jpeg�`���̉摜������upload�Ƃ����f�B���N�g���Ƀt�@�C���̑傫�������肵�Ȃ��ŃA�b�v���[�h���A �p�[�~�b�V������644�ɐݒ肵�Ă��܂��B
    upload�֐��́A�t�@�C���̃A�b�v���[�h�Ɋւ��邳�܂��܂ȏ���Ԃ��܂��B
    name= �A�b�v���[�h���ꂽ�t�H�[���̃t�B�[���h��
    local= �A�b�v���[�h���ꂽ�t�@�C���̃��[�J���p�X
    filename=�ۑ����ꂽ�t�@�C����
    filetype=�t�@�C���̃^�C�v
    format=�摜�̎��
    err= �G���[���b�Z�[�W
    �A�b�v���[�h����t�@�C�����Ȃ��ꍇ��'UploadFile Not Select'��Ԃ�

  • tag_change
    tag_change(String)

    String�Ɏw�肵�������񒆂ŁA���S�ȃ^�O(�C���[�W<img>�A�{�[���h<b>�A �C�^���b�N<i>�A�t�H���g<font>�A�A���_�[���C��<u>)������L���ɂ��܂��B �����ȊO�̃^�O�͂��̂܂ܕ\������܂��B String = �ϊ����镶����
    String���̃^�O�́A�\�ߖ����ɕϊ�����Ă��Ȃ���΂Ȃ�܂���B
    $string =~ s/</&lt;/g;
    $string =~ s/>/&gt;/g;
    readparts('QUERY', '<>=', 'sjis');�Ŏ擾�����f�[�^�͎����I�ɕϊ�����Ă��܂��B

  • tag_check
    tag_check(String, FREETAGS)

    String�Ɏw�肵�������񒆂ŁAFREETAGS�ŋ��‚����^�O������L���ɂ��܂��B �����ȊO�̃^�O��A�u>�v�ŕ‚����Ă��Ȃ��^�O�A �u</font>�v�̂悤�� �‚��^�O�̕K�v�ȃ^�O�ŕ‚��^�O�����‚���Ȃ��ꍇ�͊��S�ɍ폜����܂��B
    String=�ϊ����镶����
    FREETAGS=���‚���^�O�̃��X�g
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');
    html_head ('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',8,8,'');
    print "<form action=lib-test.cgi method=POST>\n";
    print "<textarea name=string cols=80 rows=10>$QUERY{'string'}</textarea>";
    print "<input type=submit value=���M>\n";
    print "</form>\n";
    print "<font size=2>\n";
    $QUERY{'string'} = tag_check($QUERY{'string'}, 'div', 'center', 'p','font','u','i','b', 'img');
    $QUERY{'string'} =~ s/\r/<br>/g;
    print "$QUERY{'string'}<hr>\n";
    print "</font>\n";
    print "</body></html>\n";
    exit;
    ���̗�ł� 'div', 'center', 'p','font','u','i','b', 'img'�̃^�O�����‚���tag_check�֐����Ăяo���Ă��܂��B �����ȃ^�O��A�‚��Y���ꂽ�^�O�̓\�[�X������폜����܂��̂ň��S�ɁA �����������ɓ��삳���鎖���ł��܂��B �M�҂̃T�C�g�̂悤��CGI����������y�[�W��A�^�O����������y�[�W�̃T�|�[�g�p�f���‚ł́A �^�O��\�������āA�Ώ��@��A�A�C�f�A���������K�v������܂��̂ŁA �^�O�����S�ɍ폜����tag_check�֐��ł͂Ȃ��A�����ɂ��邪�\������tag_change�֐����g�p����K�v������܂����A ��ʓI�Ɍf���‚ł͊��S�ɍ폜���č����ɓ��삷��tag_check�֐������E�߂��܂��B

  • inline_link
    inline_link(String[, Changestring])

    Stringa�Ɏw�肵�������񒆂ŁA�uhttp://�v��A�uftp://�v�Ŏn�܂�C���^�[�l�b�g��URL�܂��́A ���[���A�h���X�Ɏ����Ń����N��t���܂��B
    String=�ϊ����镶����
    Changestring=�A�h���X��u�������镶����

  • domain
    domain(Flag)

    CGI�ɃA�N�Z�X���ꂽ�K��҂̃z�X�g�����擾���܂��B
    Flag= 0:IP�A�h���X���܂ރt���A�h���X���擾
    1:IP�A�h���X���폜�����h���C�������擾
    �f���‚Ȃǂł́A�t���A�h���X���擾���鎖�ł�����x�l�����ł��܂� (�v���o�C�_�̋��͂��K�v)�̂ň��Y�h�~�ɂ����ʂ��L��܂����A �v���o�C�_���Ƃ̓��v�����ꍇ��IP�A�h���X������قȂ�׏W�v���鎖���ł��܂���B ���̂悤�ȏꍇ�́AFlag��1��ݒ肷�鎖�ŃT�[�o�A�h���C�����������擾���鎖���ł��܂��B

  • user_agent
    user_agent()

    CGI�ɃA�N�Z�X���ꂽ�K��҂̃u���E�U�̎�ނ��擾���܂��B �����I�Ƀu���E�U���擾���鎖�ŁA�u���E�U�̋@�\�ɍ��킹���y�[�W����鎖���ł��܂��B
    �y��ȃu���E�U�z
    Internet Explorer= Mozilla/4.0 (compatible; MSIE 5.5; Windows 98) ��
    Netscape Navigator= Mozilla/4.73 [ja] (Win95; U) ��
    Docomo I-Mode= DoCoMo/1.0/SH821i/c10 �ADoCoMo/1.0/N501i ��
    j-sky= J-PHONE/3.0/J-D03 ��

  • jst_time
    jst_time(SerialTime[,Flag])

    SerialTime�Ɏw�肵���V���A���l��Flag�̗l���œ��t�Ǝ����̕�����ɕϊ����܂��B
    Flag= 0:2001�N5��25�� (��) 10:54:15
    1:2001�N5��25�� (��)
    2:2001�N5��25��
    3:2001/5/25 (Friday) 10:54:15
    4:2001/5/25 (Friday)
    5:2001/05/25

  • progpass
    progpass()

    �W���̃����_���ȉp�����̃p�X���[�h��������쐬���܂��B
    @MEMBER = data_read('member.txt'); #����f�[�^�̓ǂݍ���
    $pw = progpass; #�p�X���[�h���쐬
    while (1) { #�����p�X���[�h���g���Ă��Ȃ����`�F�b�N
        #�g���Ă��Ȃ���Ό��肵�ă��[�v����E�o
        if (!grep(/pw=$pw\t/, @MEMBER)) { last; }
        $pw = progpass; #�g���Ă���΂�����x�쐬����
    }

  • scramble
    scramble(String,Flag[,Key])

    String�Ɏw�肵����������Í����܂��́A�Í������ꂽ����������ɖ߂��܂��B perl�ɂ��Acrypt()�Ƃ����Í����֐����p�ӂ���Ă��܂����A�L�[���w��ł��Ȃ��ׁA ���������͖��񓯂�������ɕϊ������B �Q�o�C�g�̕������Q�O�o�C�g�ɂ��傫���Ȃ��Ă��܂��B ���{�ꂪ�����������₷���Ȃǎ��p�I�ł͂���܂���B Scramble�֐��͊J���Җ��́A�g�p�҂����R�ɃL�[��ݒ�ł��A���̃L�[���g���āA ���‚ł����ɖ߂������ł��܂��B���������{��ɂ��Ή����Ă��܂��B
    String= �ϊ����镶����
    Flag= 1:����
    0:���ɖ߂�
    Key= �Í�������L�[�𐔒l�Ŏw�肵�܂��B
    �L�[�́A�����̐����ł����܂��܂���B Flag�Ɂu0�v���w�肵�ĈÍ������ꂽ�������߂��ꍇ�ɁA ���̃L�[����v���Ȃ���΁A����������ɖ߂����Ƃ͂ł��܂���B
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');

    html_head ('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',8,8,'');
    print "<form action=lib-test.cgi method=POST>\n";
    print "<textarea name=pass cols=80 rows=10>$QUERY{'pass'}</textarea>";
    print "<input type=submit value=���M>\n";
    print "</form>\n";
    print "<font size=2>\n";
    $scramble = scramble($QUERY{'pass'},1, 1024);
    print "$scramble<hr>\n";
    $scramble = scramble($scramble,0, 1024);
    $scramble =~ s/\r/<br>/g;
    print "$scramble<hr>\n";
    print "</font>\n";
    print "</body></html>\n";
    exit;
    ���̗�ł̓t�H�[���ɓ��͂��ꂽ��������A�L�[�Ɂu1024�v �Ƃ����l��ݒ肵�ĈÍ������A�������u1024�v�̃L�[�Ō��ɖ߂��Ă��܂��B ����������ł�����قȂ镶���ɕϊ�����܂��B

    �L�[�́A�����̐��l�ł��ݒ�”\�ł�����A�f�[�^���ŕK�����l���i�[�����t�B�[���h���L�[�Ƃ��ĈÍ�������ƁA 1�����ƂɃL�[��ύX���鎖���ł��܂��B �܂��A��x�Í��������������ʂ̃L�[�ł�����x�Í�������΃L�[�̎�ނ�8649��8649��ƂȂ�A �V���w�I���l�ɂȂ�܂��B
    ���̗�́A����o�^���̎����̃V���A���l���牺�S�������o���A ���̐��l�ɊǗ��҂̐ݒ肵���L�[�u1234�v���v���X�����L�[�Ńp�X���[�h�A �����A�d�b�ԍ��A�Z���A���[���A�h���X���Í������Ă��܂��B �قƂ�ǂ̏ꍇ�A�o�^�����������قȂ�܂��̂�1�����ƂɃL�[�͕ύX����܂��B
    $datenow = time + $timelag * 3600;
    $key = substr($datenow, 5, 4) + 1234;
    $value = join("\t",
        "code=$newcode",
        "date=$datenow",
        "pass=". scramble($pass, 1, $key),
        "name=". scramble($QUERY{'name'}, 1, $key),
        "tel=". scramble($QUERY{'tel'}, 1, $key),
        "addr=". scramble($QUERY{'addr'}, 1, $key),
        "email=". scramble($QUERY{'email'}, 1, $key),
        "\n"
    );
    push(@MEMBER, $value);
    ���̂悤�ɂ��ĕۑ����ꂽ�f�[�^�͎��̃R�[�h�Ő��m�Ɍ��ɖ߂������ł��܂��B
    %FIELD = fields($MEMBER[1]);
    $key = substr($FIELD{'date'}, 5, 4) + 1234;
    $FIELD{'pass'} = scramble($FIELD{'pass'}, 0, $key);
    $FIELD{'name'} = scramble($FIELD{'name'}, 0, $key);
    $FIELD{'tel'} = scramble($FIELD{'tel'}, 0, $key);
    $FIELD{'addr'} = scramble($FIELD{'addr'}, 0, $key);
    $FIELD{'email'} = scramble($FIELD{'email'}, 0, $key);
    ��perl�̃}�j���A��crypt�ɂ��u�������S�̎����傾�������̊֐����g�p�ł���v �ƋL�ڂ���Ă���Ƃ���Ascramble�֐������l�ł��B �v���O���������J���Ă���̂ł����炠����x�v���O���~���O�̌o���̂�����͉̂�ǂ��”\�Ƃ������Ƃł��B �����Ƃ��A1�����ƂɃL�[���ύX����Ă���Ή�ǂ���ӗ~�𖳂����Ă��������鎖�����҂��Č��J���܂����B

  • ascscramble
    ascscramble(String,Flag[,Key])

    �g�p�@��scramble�֐��ƑS�������ł����A���������Í���ASCII���������ō\������Ă��܂��B ���̎��ɂ��A�Í������ꂽ�p�X���[�h��A���[���A�h���X��grep�֐��Ō����A���o���鎖���”\�ɂȂ�܂��B �܂��A���{����Í�������grep�Ō����ł��܂��B �w��”\�ȃL�[�́A�O�`�Q�O�S�W�̐����ł��B �w��ł���L�[�͏��Ȃ��̂ł����A���̈Í��`���͈Í������ꂽ�T�[�o�[�łȂ���Ε������ł��܂���B ���������āA�����^���T�[�o�[�ō쐬���ꂽ�Í������[�J���T�[�o�[�ȂǁA ���̃T�[�o�[�ŕ������ł��Ȃ��ƌ������ƂɂȂ�܂��B ���R�A���[�J���T�[�o�[�ō쐬�����f�[�^�������^���T�[�o�[�ɃA�b�v���[�h���Ă�����ɓ��삵�܂���B ���z�[���y�[�W�̂������z���������”\�����L��ꍇ��scramble�֐������g�p���������B

  • cookie_regist
    cookie_regist(Cookiename,Cookielist,Date)

    �K��҂��ƂɈقȂ�����N�b�L�[���g���ĖK��҂̃u���E�U�ɕۑ����܂��B
    Cookiename= �N�b�L�[�̖���
    CGI���ƂɕύX���Ȃ���Ό듮�삷��ꍇ������܂��B
    Cookielist= �ۑ�����L�[�ƒl�̃��X�g
    Date=�ۑ��������(�Œ��U�O�������S)
    @MEMBER = data_read('member.txt'); #����f�[�^�̓ǂݍ���
    $value = join("\t", #����t�H�[�}�b�g�𐮂���
        "id=$id",
        "pw = $pw",
        "name=$QUERY{'name'}",
        "email=$QUERY{'email'}",
    );
    unshift(@MEMBER, $value); #����f�[�^�ɒlj�
    %Cook = cookie_regist('shop',"id=$id,pw=$pw", 30); #�N�b�L�[�ɕۑ�
    ���̗�ł́A����R�[�hid�ƁA�p�X���[�hpw���R�O���Ԃ̊�����t���ĕۑ����Ă��܂��B cookie_regist�֐��́A�ۑ��������e��A�z�z��ŕԂ��܂��B ���������āA�N�b�L�[�ɕۑ����ꂽ�f�[�^�́A$Cook{'id'}�A$Cook{'pw'}�ŎQ�Ƃł��܂��B

  • cookie_read
    cookie_read(Cookiename)

    �K��҂̃u���E�U�ɃN�b�L�[�ŕۑ�����Ă������A�z�z��Ɏ擾���܂��B
    Cookiename=�ۑ��������Ɠ����N�b�L�[�̖���
    %Cook = cookie_read('shop'); #�N�b�L�[���擾
    �N�b�L�[�ɕۑ�����Ă����f�[�^�́A$Cook{'id'}�A$Cook{'pw'}�ŎQ�Ƃł��܂��B

  • age
    age(BirthdayString, Timelag)

    ���N�������w�肵�Č��݂̔N���Ԃ��܂��B
    BirthdayString=���N������������������(1958/02/17)
    Timelag=���E�W�����Ƃ̎���(���{�̏ꍇ��9����)

  • kaconv
    kaconv(String)

    String�Ɏw�肵�������񒆂ŁA���p�����ɕϊ��”\�ȑS�p�����𔼊p�ɕϊ����ĕԂ��܂��B ���z��A���N�������t�H�[���Ŏ擾���Ă��S�p�����ŋL������Ă���ꍇ�͌v�Z���鎖 (���ׂĂO�Ɣ��f�����)���ł��܂���B �܂��A���[���A�h���X���S�p�ł̓��[���𑗐M�ł��܂���B kaconv�֐��͐��l��A���t�@�x�b�g�A�L���Ȃǔ��p�ɕϊ��”\�ȕ����𔼊p�ɕϊ����܂��B
    String = �ϊ����镶����

  • fields
    fields(fields[, Separator])

    Key=Value�`����Separator�ŋ�؂�ꂽ1���̃f�[�^�𕪉����ăt�B�[���h���Ƃ̘A�z�z��ɕϊ����ĕԂ��܂��B
    fields=��A�̃t�B�[���h�f�[�^
    Separator= ��؂蕶��(�ȗ�����ƃ^�u\t�ɂȂ�)
    @MEMBER = data_read('member.txt');
    $value = join("\t",
        "id=$id",
        "pw = $pw",
        "name=$QUERY{'name'}",
        "email=$QUERY{'email'}",
    );
    unshift(@MEMBER, $value);
    ���̌`���ŕۑ�����Ă���f�[�^�t�@�C���͎��̂悤�ɂ��ăA�N�Z�X�ł��܂��B
    @MEMBER = data_read('member.txt');
    @DUMMY = grep(/id=$QUERY{'id'}\t/, (@MEMBER);
    $match = 0;
    foreach (@DUMMY) {
        %MEMBER = fields($_);
        if ($MEMBER{'pw'} eq $QUERY{'pw'}) { $match = 1; last }
    }
    if ($match) {
        print "���肪�Ƃ��������܂��B
    ���łɓo�^����Ă��܂��B\n";
    } else {
        print "�\���󂠂�܂���
    ����ȊO�����p���������܂���B\n";
    }

  • fcopy
    fcopy(Src,Des[,Permission])

    Src=�R�s�[���t�@�C���̃p�X
    Des=�R�s�[��t�@�C���̃p�X
    Permission= �R�s�[��̃t�@�C���̑���(�ȗ������644)

  • rgb
    rgb(Color)

    �F�R�[�h��RGB�ɕ�������10�i���ɕϊ����܂��B
    Color = �F�R�[�h

  • kindex
    kindex(String, Search)

    �������܂ޕ����񂩂�w�肵����������������čŏ��Ɍ��‚������ʒu��Ԃ��܂��B �擪�̕������O�Ƃ��ăJ�E���g����܂��B
    String=�������܂ޕ�����
    Search=�������镶����

  • klength
    klength(String)

    �w�肵��������̕�������Ԃ��܂��B������1�����Ƃ��ăJ�E���g����܂��B
    String = ������

  • kreplace
    kreplace(String, Oldstr, Newstr)

    �����񒆂̎w�肵��������𑼂̕�����ɂ��ׂĕϊ����܂��B �}�b�`���Z�q�ł͕s�”\�Ȋ������܂ނ��Ƃ��ł��܂��B
    String=������
    Oldstr=�u���������镶����
    Newstr=�u�������镶����

  • ksubstr
    ksubstr(String, Start, Length)

    ������̎w�肵���ʒu����w�肵�������������o���܂��B perl��substr�֐��Ƃقړ��l�ȓ�������܂����A�������܂񂾕�����������ł��܂��B
    String=������
    Start= �J�n�ʒu  �ŏ��̕������O�Ƃ���
    Length= ���o��������  ������1�����ƃJ�E���g
    $str = '���m�����m�s���{��1-2-3�ԂT��';
    $str = ksubstr($str, 5, 3);
    print $str;

  • deletedir
    deletedir(Dir)

    �w�肵���f�B���N�g���ƁA�f�B���N�g�����̃t�@�C�������ׂč폜���܂��B
    Dir=�폜����f�B���N�g����

  • weekday
    weekday(date, timelag, flag)

    �w�肵�����t�̗j����Ԃ��܂��B
    date= ���t������(2004/06/12)
    timelag=����
    flag= 1:���{��
    0:���l

  • get_url
    get_url(URL,Flag,Encode)

    �w�肵��URL�̃h�L�������g��ϐ��Ɏ擾���܂��B
    URL=�y�[�W�̃A�h���X
    Flag= 0:���e��ϐ��Ɏ擾
    1:�y�[�W�̑��݂̂݊m�F
    Encode= jis,sjis,euc ����I�����w��
    �擾�������e�́A�A�z�z��$HTML{'Body'}�Ɋi�[����Ă���
    �G���[�̊m�F�́A$HTML{'Err'}�Ɋi�[����Ă���
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written