2004������10·���
2004������10·���23������
\���\���\���\�������������������«���½�����¡��
���������³��������������¡��²��я�����������������������²��ҏ����ҏ�����������������������돪㏢����������perl\³���¼\���������»��ӏ����ҡ돫�����я��·������\³���¼\��������������������я��������������������·�����ď��̏�¡��䏪����������»��������������������������������������������я�������¾������·�����돢�����돫�������¾���¹������̏����������������¹��¡�\³���¼\���������������������������¾���¹�����¡���������½��Џ��«��������������������������¡�print "hello\n"; ���������������« #!/usr/local/bin/perl������������������������\½���¼\¹�����¡돫������ԏ����ҏ��µ���·���������������������¹��¡�\½���¼\¹������������������������¾���¹�����¡�����������¹�����������ԏ���̏����ҏ��µ���·��¡�print "hello\n"; ��������������������������������������������������쏢�����돪؏����¹������������̢���������������������������������Ï��������¹��¡�\��\���\��\���\���������\½���¼\¹������������������������������¼���������������돪�����¹�������������������������������¹��¡��������¹���«�����������²��я�����돪������������������������������ď�¡���\���\���\���\�������������������\³���¼\���������¼«����돢�������½¼�����·������������������������������¡ߏ����������������Ï������������������������������������������������̏����������«���������·���������������»�����я�¡���������¡��������я��������������я����������������я������������������������������������¹���̏�¡���������������\½���¼\¹���������«\³���¼\������������«�����������������������쏢�ޏ��Ð����ӡ돫����������������������������¹��¡�µ������������»�����돢ď��������������������������������·�����������Ï�¡�
�����������돢������¡��²��я�����\��\���\��\���\����������������������«������
�����²���²¼���������������Ï�����\³���¼\���������¼���¹��ԏ��·���������·�����ď�¡�
#!/usr/local/bin/perl
print "Content-Type: text/html;charset=EUC-JP\n\n";
print "hello world";
\���\���\���\��������²���������������������
hello world
���������½¼�����µ�����������ď�����»�ߏ��������������¹��¡��µ������������
print "hello world";
������¹��ԏ�����"������"���������������µ�����������������ď���hello world�����������ԏ���̏����ҏ����Џ�𡯏�������������¡��½���������Џ�𡯏����ď�����»��⏢��\���\���\���\�����������½¼�����µ�����������ď�����»�ߏ��������������¹��¡�
���³�����������������������Ï�����������\���\«\���\���\������������½¼�����µ�����������������������ď������������·�����������Ï��«����
print ������������������������"���������������µ�����������������ď�����»��⏢����\���\���\���\��������²���������������½Ð�������¹�������������������¹��¡�
���������¹���«������"������"�����¡���ӏ�����
<a href ="hello_world.cgi">hello_world.cgi</a><br>
���������������Ï��������ԡ���������������½��Џ��ޏ��Ð\���\���\���\�����������½������������²���¼������·��������¡�\���\���\���\��������²���������������������
hello_world.cgi
���������������Ï�����\���\���\������̏��½�����������������������������돢�������¹��¡�
���³���³���������¾���������쏢�������������«�����������돢�������������������³���������«���������·���������������»�����я��̏�¡��³������¹�����𡯏��������Ð������¾���������������²��ҏ�����»��㏢𡯏�����������������������»�ߏ��������������¹��¡�������������������¡�perl������¼���¹���·���²�������\���\���\���\��������²���������������½Ð�������µ��������������������������������������²����������������³�̏��̏����������������¹��¡��ޏ����������䏢����perl����\½���¼\¹������¼��؏���¼���������������²��ҏ��������·��������¡��½������·���²���������\���\���\���\�����������������·���������¹��¡��²�����������䏢����perl����²��ҏ��������·������·���²��������ҏ��µ������������\���\���\���\������²��ҏ��������·���������¹��¡��½������·���²���\���\���\���\��������²���������������²��ď��«���̏��½¼�����µ��������������¡�����������������»��������������Ώ��������¹��¡�
¾����������������������������Ï�����perl������\½���¼\¹������²��ҏ��������·������·���²���
<a href ="hello_world.cgi">hello_world.cgi</a><br>
�����������������Ï�����»��⏪�я�����\���\���\���\�����������������·���������¹��¡�
<a href ="hello_world.cgi">hello_world.cgi</a><br>
�����������������Ï�����»��⏪�я����ҏ��������µ������������\���\���\���\����������¡�HTML������������²���¼������·��������¡�\���\���\��������ҏ��½¼�����·���������¹��¡��������³���������̏�¡�¼�����돪�����»����·�����������Ώ��������������������«���������������¹���̏�¡�
#!/usr/local/bin/perl
print "Content-Type: text/html;charset=EUC-JP\n\n";
print "<a href ="hello_world.cgi">hello_world.cgi</a><br>";
���³�������������������������Ï��������������������«�����돢����\��\������¼���̏��������������·���������������������¹��¡���돩̏�������²�����������������������¹���̏�¡��²������������������������������������������¹�����𡯏��������Ð���¹���돪��̏��«���������������¹��¡�
1�����������䏢����perl�������������������������¹��¡�
print "<a href ="hello_world.cgi">hello_world.cgi</a><br>";
������������������¹��ԏ����������������䏢�·���������������������µ��������¡��������叢��������print ������������������������"���������������µ�����������������ď�����»��⏢����\���\���\���\��������²���������������½Ð�������¹��������¡ߏ��������������������·�����ď�¡��³������¾���¹���"���������������µ����������������������������������������
<a href =
���������¹��¡�a\���\�돢����»���������������"�����������������ġޏ�Џ��·���������·�����������Ï��«���������������¹��¡��³���������������Ï�����print���·�����ď�����������»��⏢��������������"���̡�������������������������·�����������Ï����������Ï�����¾���¹�����¡�perl�����������������¢���������⏢����µ¹���������»����������������������������������������¹���������������������������������������������������¹��¡��½������������qq[������]���������¹��¡�����������������
print qq[<a href ="hello_world.cgi">hello_world.cgi</a><br>];
������½��Џ�����»��ӏ�������¡�������������¹��¡��³������qq[������]��������������·�����������������������叢�������������������¹������»��ӏ����������������������������������Ï�����»�ߏ����Ï�����������¡��������������³������²��ď�����������������»��������������������Ώ��������������������µ��������¡�
�돪�¾�������1�����������䏢�����������������������������¹��¡��²�����������䏢��������������������������HTML�������������������������¹��¡�
\���\���\���\����������¾���������������������������¹�����𡯏��������Ð��¡�
<a href ="hello_world.cgi">hello_world.cgi</a><br>
�����������������Ï�����»��⏪�я��̏�������������������������ԏ�����¹��Џ����я��������������������������������²���¼������·�����ď������������������������«���������«���������������»�����я�¡�����������������HTML������½��Џ�����������������������������Ï�����html\���\�돢����body\���\�돢�����돪�����������������������������̏���ߏ��̏����������������¹��¡������ޏ��������¹��������¡�
#!/usr/local/bin/perl
print "Content-Type: text/html;charset=EUC-JP\n\n";
print "<html><body>";
print qq[<a href ="hello_world.cgi">hello_world.cgi</a><br>];
print "</body></html>";
��������������¡��³��������������¡�\���\���\���\��������²���������������������\���\���\������̏��½¼�����µ������������»��ӏ�����»�ߏ��������������¹��¡�
���³��������ߏ�������\���\���\���\������������������ҏ�����������¹��Џ����я����������돢���������돢����������\���\���\��������ҏ��½¼�����µ���»�����������Ώ��������·�����������Ï�¡�
\���\���\���\������������������ҏ���������������������
opendir(DIR,"./")������readdir(DIR)������»������������������¹��¡�
#!/usr/local/bin/perl
print "Content-Type: text/html;charset=EUC-JP\n\n";
opendir(DIR,"./");
@dir = readdir (DIR);
close (DIR);
print "<html><body>";
print @dir;
print "</body></html>";
���³������������¼���¹��ԏ��·�����������Ώ�����²¼���µ��������¡�
\���\���\���\���������������ď������\���\���\���\��������⏢���������䏢�������������½¼�����µ�����������ď�����»�ߏ��������������¹��¡�
����²��я��������³���³���������������������¹��¡�������������¡�¼���²��я��������³������\³���¼\���������²��ҏ�������������¡�·«�����������ӏ��·��돫¢�������������������������������������������·���������¹��¡�������������¡�����������
2004������10·���21������
\���\¹\���\���\���\���\��������ҏ��½¼�����·�����������Ώ�����������
\���\���\�����¼���«������\��\���\»\¹������������������Ð�������������¹��¡�
#!/usr/local/bin/perl
print "Content-Type: text/html;charset=EUC-JP\n\n";
print "hello world";
¾���������\³���¼\��������ҏ���̏����ӏ�����\���\\¹\���\��\���\��\��ď�����\»���¼\��ӏ��·������¼���¹��ԏ��·�����������Ώ��������·������
�����Ï�¡�\���\���\���\������¾������hello_world.cgi�������������������¹��¡�\���\���\���\���������\��\���\»\¹������
»����������������������«���������������¹���������������폢�������·����̏��«��������������������ď��������\³\���\���\���»������·�����������쏢����������²¼
���µ��������¡�������������\���\���\������¼���·���������¹��������¡�
����������������𡯏�����²¼½�����������������·������¾���������\���\���\���\���������
print "hello world";����������hello world�����������ԏ���̏����ҏ���̏����ӏ�����������»��⏢���������ӏ��
��¹��𡯏�����
\���\���\���\��������ҡ�µ�����������̏�돫��������������������������µ��������������¡�̏����ӏ�����������»��⏢�������������������������·�����ď��̏�¡��
³��Џ�¡¾³��Џ�¡�ޏ�Џ�ď��»��⏢¡�\«\�����¡����������������ҏ����Џ����������������Ώ��������������������µ��������¡�����������������\���\���\���
\������¾���������½���������¾������������kana_test.cgi��¡�zenkaku_test.cgi��¡�eisuuji_test.c
gi��¡�hankaku_test.cgi�����㏢�������������������������·�����������Ï�¡��ޏ�������ޏ��������µ»��ӏ��������½¼�����µ������������
���«»����·���������·�����������Ï�¡�
��µ���������������������µ»��ӏ��������½¼����������������ď��������·�����������Ï��«���폢���쏢�½������������³�����µ�����я��½¼�����������������������
������������»�ߏ����Ï������������¹���̏�¡��³�����������ҏ����������������������������������������ġ돪؏�ď����������¡�¼����������������������������³������������
�����������������¹��¡�\³���¼\���������½��Џ�����������»����¹������������������Џ��������·���µ������¼����������·�����������Ώ��·���«������������
�������������¹��¡��ޏ�������ޏ�����\���\���\���\��������\��\���\���\¹\Ð���¼������\���\���\���\������¾�����ҏ�����������¹��Џ����я�����
³����«���������������ޏ��������Ð�������������������������������������¹���������������폢�³���������«��������ġ����¹������\³���¼\���������½��Џ�����������
��������¡�²��ď�����²��я�����\���\¹\������¹������»��ӏ�����¹�����𡯏��������������³������돫¢������������²���������·�����������������я��������������µ
��������돫¢�������������������������������¹��¡�
���½���³��������¡�¼�������\���\���\���\���������test_cgi.html���������·��������¡��������叢������돫�����������\���\¹\���������
������\³���¼\�������������ޏ�����\���\���\���\��������������Џ�����������\��\���\»\¹���·�����������Ώ�����²¼���µ��������¡�
\���\¹\��������Џ�����\³���¼\��������ҡ돫�������\���\���\���\������¾��������돫����������ď�ď�����������½���������¾�����������Џ�𡯏�����������������
���µ��������������¡�
<html>
<body>
<a href ="hello_world.cgi">hello_world.cgi</a><br>
<a href ="kana_test.cgi">kana_test.cgi</a><br>
<a href ="zenkaku_test.cgi">zenkaku_test.cgi</a><br>
<a href ="eisuuji_test.cgi">eisuuji_test.cgi</a><br>
<a href ="hankaku_test.cgi">hankaku_test.cgi</a><br>
</body>
</html>
�����������Ï��������¹���«����\���\���\��������ҏ����폢�������������ޏ�������¡������ޏ�����\³���¼\���������³����«���������������������������¹������
����������
����²��я��������ԡ���������¼�������돢����\���\���\���������½��Џ�����������·�����ď��̏�¡��³�����������ҏ��������«����¼«����돢����
��������������������������������������¡��½���³������\��\���\»\¹���¹���������������ޏ�������¡�\���\���\���\�����������������������돩Ώ��¹������
\³���¼\��������ҏ��½¼�����·�����������������������ď����������������̏�����������»�ߏ��������������»�����я��«���폪���������叢�������������������Ï�����\��
\���\���\¹\Ð���¼������������������������������\���\���\���\������¾�����ҏ�����������¹��Џ��������³������������������\³���¼\�������³����«������
���������������������·��¡���돫����������ď��������������������������������������¹�����������ď��������·������\���\���\���\������¾������\³���¼\���
���������\���\���\���\���������³����«���������������������������¹��¡�
¼���²��я��«������������\���\���\���\�������������������\³���¼\���������¼«����돢�������½¼�����·�����������������������������������Ï����������쏢����
��돫�����������¹��ԏ��³�����Ï�����»�ߏ��������������¹��¡�������������¡����������ď��¼��¡�
2004������10·���18������
¼���¹��ԡ������������
����̏���ߏ���������������������
��ޏ�¡�perl�����䏪����
��²��¡���ߡ�\µ���¼\Ð���¼
������¾���������½��Џ����������������Џ��·���������¹���³��𡯏��������«���������·���������������»�����я��̏�¡�돫¢�������������·��������������𡭏�������𡭏��������������ޏ��������³������������������������¡�돪���ġ����·���������������������µ��������¡�
��돫¢������������돢����¾������·�����Ï����я����������������ҏ����ď��������������¹���̏�¡�\���\���\���\������������»�������������쏢���������������Ï�ď��������²¼������¼�����¹\µ\���\���������»²¹���������perl��������ߡ�\µ���¼\Ð���¼������\���\���\¹\������¼\������·���������폢����¾������²�����������Ώ��������������������µ��������¡�
¾���¼������������������ޏ��Ð���»��С���ӏ��������������������������돪�»���¹�����������������돢�������¹��¡�
�����Ï����я�������������¡���ߡ�\µ���¼\Ð���¼�����������������Ï�����\��\���\���\������̏�����¾������������¾�������������������»����������������������������������������������¹���̏�¡��Ώ��������̏��������������³���·��������¡��»���������«�����������������������������я���������������������돢�·���������·���������������������·�����ď�¡���������\���\¹\���������������������������Ï����Џ����я���������������¡��Ώ��������̡��������ޏ����������¡��ԡ�ԡ�Ð�������������������\���\������¼������\µ���¼\Ð���¼������»���������»��ӏ��������·���������·�����ď�¡�perl��������������·������������Windows����������돢����Active Perl�����������������Ï��������������ҏ��³�����Џ��·���������·�����ď�¡�
���¼���¹��ԡ�����������ҏ�돫���������WIN�����Џ���*Mac��¡�Linux��������������·������������ m(_ _)m
��ޏ�¡�perl������\���\���\¹\������¼\���
Perl\��\���\��\���\���\���\��¹��ӏ�돪�����³«������������������Ώ���������
http://www5a.biglobe.ne.jp/~n_rieko/perl/environment.htm#chapter2
���³������\µ\���\���������������Active perl���������Ώ��������̢���Џ��������쏢����¼���½�����������돪䏢�������������������¹��¡�
��²��¡���ߡ�\µ���¼\Ð���¼������\���\���\¹\������¼\���
WWW Server ¹½������ (AN HTTPD 1.33)
http://www5a.biglobe.ne.jp/~n_rieko/server/anhttpd.html
���³������\µ\���\�������������������Џ��������쏢����¼���½��������������¡��ԡ�ԡ�Ð����������Ώ���������������½��Џ��«���������������������������¹���«��������¡������ޏ����������Ώ�����������������������·�����ď�¡�
¼«������\µ���¼\Ð���¼������¹��ԏ��³������
http://www.y-kit.jp/saba/
\��\���\���\���������¾����������·�����ď����������������������Ï�ď�����������³������\µ\���\����������ӡ�ߡ�\µ���¼\Ð���¼�����ԏ�¡ߏ���»²¹������������������������«���������·���������������»�����я�¡�
�����������Ï��������¹���«���폪���Ώ�����������������������������·�����������Ï��«����
���µ��������¡�����������������������¼���²��я��«��������������¡���µ·���¼�돢������������������������\���\���\���\���½��Џ�����������������������������¹��������¡�
�����������������������ď��¼��¡�
������������������������
�����������������Ï�����������perl������\³���¼\���������½��Џ��»��������������������������������������������䏢���������؏�����½�����ġ�¼��ԏ����¡돫�������½Ð���������»�����я�¡�
���·���«���·��¡�»��������������ď��Ð���«������������������µ��ď�����������»�ߏ�����\���\���\���\�����������¡�
½�����ġ�¼��ԏ�����µ���»�����������������������������������������������������������������������«������»�ߏ��������������������������¹��¡�
���µ��������¡��³������\���\���\�돢����ď���������������������¹���̏�¡�
����������¼�����돪�����perl�����ҏ������������·�����ď����������ҏ�Ģ������������ӏ�����������������µ·���¼�돢�������������������������ߏ�����
��Ģ������������ӏ��������������̏�������¡��½���������ԏ����㏪��̏����⏢����\��\���\Ð\���\¹����½Ð�����������ď���������������������������»�ߏ��������������������¹��¡�
���½���³��������¡�perl�����ҏ������������¹������¾���������������\³\��������ҏ����������돪����¼��̏��·�����������Ï�����»�ߏ��������������¹��¡�
���½��������������¡��ӏ���̏���ߏ������������������������������������������������¹������»����������������½��Џ����������������Ώ�������¡ߏ�����������������»��ӏ��������¹��¡�
Perl�����������������Ï�������������������¡�ޏ�����½������������ҏ��¹������������������²��ď�����������������������½��Џ���������̏���������¡�
���½������������������½������������«������������������������돢�·�����������������������Ï���������»���¹��я��������������������¹��¡�
���·���«���·½������������������½�����я���������̏���ߏ����������������������»�����я�¡�
perl���������������������������������������������돢�«������������¼�ޏ����ҏ�����������¹������������»���������������ޏ�������������¡�
¼������������������¹������»��ӏ��̏���������������������������¹��¡�����������»������������������·�����������Ï�¡�