�֗��ȃ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/</</g;
$string =~ s/>/>/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
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�[����Ă���
|
|
|