※このサンプルの解説は、「CGI（Perl）の解説」をすべて読み終えてる方を前提としています。

�� O��t�B�b�N�J�E��^�̍쐬�iCGI�`��j

��āA��͂��Ɩ��CGI�`��̃O��t�B�b�N�^�̃A�N�Z�X�J�E��^�ł��B
CGI�`��͉��̖��Ƃ��ƁA�摜�𒼐ڏo�͂��Ȃ��Ƃ��Ȃ��ł��B
CGI�`��ł́A��̌Ăяo��͒��ڃ^�O��ɋL�q��Ȃ��Ƃ��܂��񂩂�A�\�ȃ^�O�Ƃ���uimg�v�^�O��炢��܂��B

��A�Œ�I�ȉ摜�Ȃ��͂Ȃ��̂ł��A�J�E��^�͂��̂��щ摜�̓��e��ς��܂��B
��CGI�őg�ݍ��킹�Ȃ��o�͂��Ȃ��Ƃ��Ȃ��ł��B

�{��Ȃ炻�̌��̉摜��1�̉摜�Ƃ��ďo�͂��̂��Ԃ��̂ł��A��Ȃ�Ɖ摜�̌��Ȃ��Ƃ��Ȃ��Ȃ�܂��B
��̌��܂��Ȃ��ŊȒP�ȃT��v��ł͍��܂��B

��č��́A1��\��@��āA�摜�̌��K�v�Ƃ��Ȃ��悤�ɂ��܂��B
��D�D��A�摜��̕��@��肽��ꍇ�́A�u�Ƃق��v��́uCGI�\�t�g�W�v��uGIF�摜�A��C�u��v�Ƃ��̂��̂Ŏ��Ă݂�̂��ł��傤�B

��ƁA�O��t�B�b�N�J�E��^�Ƃ��ƂȂ̂œ��R�摜��K�v�ɂȂ�܂��B
�摜�́A��u0�v�`�u9�v�ɑΉ��摜 �A�u0.gif�v�`�u9.gif�v��p�ӂ��Ă��Ƃ��܂��B
��̉摜�ɂ��Ă͂��̃T�C�g�́u�t��[�f��v�ɂ���u�A�N�Z�X�J�E��^�v�֌W��肷��ΊȒP�ł��ł��傤�B

�y�@��@�@�@�@��@�z

��āA�܂��ŏ��ɁA�J�E��^�̒��C�ӂ̌��̐��擾��ɂ͂ǂ��΂��̂ł��傤��H

��̃q��g�͈ȑO��u�O��t�B�b�N�J�E��^�̍쐬�iSSI�`��j�v�̒��ɂ��܂��B
��ł��ˁA�usubstr()�v�֐��g�p��Ή\�ł��B
�J�E��^�̒l���u$totalc�v�ɃZ�b�g��Ă��āA�擾���u$ketai�v�ɃZ�b�g��Ă��ꍇ�A��̂悤�ɋL�q��Ύ擾�ł��܂��B
$suji = substr($totalc, $ketai-1, 1);

��āA��ɊY��摜���u$suji.gif�v�Ƃ��t�@�C��ɂȂ�܂��A��̉摜��o�͂��鏈��̓t�@�C��̓Ǎ��g��̂悤�ɋL�q��܂��B
$filnam = "$suji.gif"; open(FP, $filnam); read(FP, $gdat, 10000); close(FP); print $gdat;

�ł́A�ŏ���u�w�肵��v�͂ǂ̂悤�ɂ��炢��̂ł��傤��H
��́A��CGI�̌Ăяo��̎��A�u�w�肵��v��p��[�^�Ƃ��ė^��܂��B
��CGI���ugcntc.cgi�v�Ƃ��A1��ڂ��Ăяo��ꍇ�͎��̂悤�Ȋ��ł��B
gcntc.cgi?1

��āA��擾��ɂ́uCGI�iPerl�j�̉��v�ŉ��Ƃ��莟�̂悤�ɋL�q�ł��܂��B
$ketai = @ARGV[0];

��ɁA��܂��傤�B
��̂܂܂ł́A�J�E��^�̌��1��2��ցA2��3��ւƑ��Ă����т��ыL�q��ǉ��Ȃ��Ă͂Ȃ�Ȃ��Ȃ�܂��B

��̎��̑Ή��Ƃ��āA2�ʂ�̕��@��l��܂��B
�ЂƂ̓J�E��^��Œ茅��ɂ��Ă��܂��@�ŁA��ЂƂ͌��ӂ�̏ꍇ�̏��ǉ��@�ł��B
��͓��҂̕��@��Ă݂܂��B

��݂̃J�E��^�̌��͈ȑO�́u�O��t�B�b�N�J�E��^�̍쐬�iSSI�`��j�v�ŉ��܂��B
�\��̌��傫��ꍇ���u��\��Ȃ��摜�v��\��܂��B
��̎��A�{��ɉ��\��Ȃ��ƕ\��Ă��܂��̂ł܂��킯�ł��ˁB

��ŁA��̃T�C�g�́u�t��[�f��v�ɂ���u�A�N�Z�X�J�E��^�v�֌W�̉摜�̒���uno.gif�v�Ƃ��摜��Ǝv��܂��B
��̉摜���u��\��Ȃ��摜�v�ł��B

��āA��̐؂蕪���uif�v��g��A��ꂼ��J�E��^�̃t�@�C��w�肵�܂��B
��̕��@�͎��̂悤�ɁA�J�E��^�ȉ��̌��Ȃ�w�肵��t�@�C��A��ȊO�Ȃ��u��\��Ȃ��摜�v�̃t�@�C��ɂ��܂��B
if ($ketai <= $ketat){ $filnam = "$suji.gif"; }else{ $filnam = "no.gif"; }

�܂��肪��܂��B
��CGI�J�E��^�̏ꍇ�A�e��Ƃɂ��CGI��Ăяo��킯�ł��A6��J�E��^�Ȃ�S��6��Ă΂�A��̂܂܂ł̓J�E��^��6��A�b�v��邱�ƂɂȂ�܂��B

��ŁA�J�E��g�A�b�v�p�̏��Ɖ摜�\��p�̏��؂蕪��Ȃ��Ƃ��Ȃ��Ƃ��ƂɂȂ�܂��B
�p��[�^���u0�v��^��A�J�E��g�A�b�v��s��悤���uif�v��Ő؂蕪��܂��傤�B
���uif�v��͎��̒ʂ�ł��B
if ($ketai == 0){ }else{ }

��A�J�E��^�̃t�@�C���ugcntcf.cgi�v�Ƃ��܂��B
��̃t�@�C��͉��ł��̂ł��A�Z�L��e�B�̈Ӗ��Ŋg��q���u.cgi�v�ɂ��Ă��Ƃ��߂��܂��B

��̂悤�ɂ��Ă��ƁA�K��҂��̃t�@�C��`��Ƃ��A��I��CGI�Ƃ��Ď��s��悤�Ƃ��܂��A��g��CGI�ł͂Ȃ��̂ŃG��[��܂��B
��āA�`��Ƃ��Ă��G��[��Ĕ`��Ȃ��Ȃ邩��ł��B

�܂��̃J�E��^��Ăяo��߂�HTML�y�[�W���ugcntc.html�v�Ƃ��O�ō쐬��܂��B
�J�E��^�̌��6��ɂ��̃T��v��͎��̒ʂ�ł��B

�y�L�q�T��v��z: <HTML> <HEAD> <title>CGI�`��̃O��t�B�b�N�^�J�E��^</title> </HEAD> <BODY> <img src="./gcntc.cgi?0"><img src="./gcntc.cgi?1"><img src="./gcntc.cgi?2"><img src="./gcntc.cgi?3"><img src="./gcntc.cgi?4"><img src="./gcntc.cgi?5"><img src="./gcntc.cgi?6"> </BODY> </HTML>

��āA��L�̓��e��g�p���uCGI�`��̃O��t�B�b�N�^�J�E��^�v��쐬��܂��B
��̎��ӓ_��ЂƂ��܂��B
�摜�f�[�^�Ƃ��ďo�͂��ꍇ�A��L�T��v��3�s�ڂ̂悤���uprint "Content-type:text/html\n\n";�v ��ǋL��Ȃ��Ɛ��ɓ��삵�Ȃ��T�[�o�[��܂��B
�Ȃ��A��̃T��v��ł��r��i��ݎ��̐��j�͍s��Ă��܂��B
Windows��r��ɂ��ẮuCGI�iPerl�j�̗\��m��v�|�u�t�@�C��݂̔r��v��Q�Ɖ��B

�y�L�q�T��v��z: #!/usr/bin/perl print "Content-type:text/html\n\n"; $ketai = @ARGV[0]; $filnam = "gcntcf.cgi"; open(FP,"<$filnam"); $totalc = <FP>; close(FP); if ($ketai == 0){ $totalc++; $filnam = "gcntcf.cgi"; open(FP,">$filnam"); print FP "$totalc"; close(FP); $filnam = "no.gif"; }else{ $ketat = length($totalc); $suji = substr($totalc, $ketai-1, 1); if ($ketai <= $ketat){ $filnam = "$suji.gif"; }else{ $filnam = "no.gif"; } } open(FP, $filnam); read(FP, $gdat, 10000); close(FP); print $gdat;

��s��ʂɂ��

��L�̃T��v���ugcntc.cgi�v�Ƃ��O�ŕۑ��Ď��s��Ă݂Ă��B
�i��Ӂj
�T�[�o�[�Ńe�X�g��ꍇ�́A�O��A�N�Z�X��O��L�^��邽�߂́A��f�[�^�̓��Ă��Ȃ��ugcntcf.cgi�v�Ƃ��O�̃t�@�C��p�[�~�b�V���u666�v�ŕK��쐬��Ă��ĉ��B

��s��ʂ��N��b�N��Ă��B
�Ȃ��A��s��ʂɂ��ẮA�e�X��T�[�o�[�̊��A��[�U�[�̊��ɂɂ��ē��e�͕ς��Ă��܂��B

page update：2007/12/26

Home ↑ページトップ
 タオル卸市場

技術提供：株式会社ピーオーピー
SEO対策 & ツール

�� �O���t�B�b�N�J�E���^�̍쐬�iCGI�`���j

�� O��t�B�b�N�J�E��^�̍쐬�iCGI�`��j