It's  Common  Geteway  Interface

����ȸ�� 239 ȸ

���⿡���� Ȩ������ ������ �ʼ��� cgi �� �ۼ��� �̰��� �������� Ȱ���ϴ� ����� ����
�̾߱⸦ �Ϸ� �մϴ�.
ó�� Ȩ�������� �����Ϸ��� �е鲲 �����̳��� ������ �DZ� �ٶ��ϴ�.
�ٷ� ������ ������ �����ϴ�.

 1,CGI������� ����  2,win95���� cgi��..  3,����Ȱ���ϱ�  4,������ ��ũ��

   

1. CGI �н� ������ ����

    ���� ���� �ص� ���� ������ ���� �߿��մϴ�. 
    CGI�� �����ϴµ� �־ ó�� �����ϴ� å�� ����, ���� �׻����
    Ȩ������ ���� ������ �ٸ��� ��Ÿ���ϴ�.
    �� �ڽſ� ���� �ʴ� å�� �����Ͽ� ó������ �� ��̸� �Ҿ� �����⵵
    �մϴ�.
    �Ʒ��� ����ϴ� ������ ���� �ְ����� �����̹Ƿ� ������� ���δ�
    �׷��� ���������� �������� ���ϴٸ� , �����Ϸ��� �е鲲 ������
    �Ǿ����� �ϴ� �������� �Ұ��� �ø��ϴ�.
    �� å���� ��.�߱޻������ �������� �����Ǿ����� �����帳�ϴ�.

    [[[  CGI �н� ��õ����  ]]]

    perl cgi ���α׷��� 21�� �ϼ�
    cgi ���̺�
    cgi �𸮽���
    using cgi
    �����غ����� cgi ���� ��ũ��
    cgi ���α׷��� �÷���
    perl 5 for dummies
    perl 5   21�� �ϼ�

    ��..........��
    ��..........��
    ��...,......��


    �� perl cgi ���α׷��� 21�� �ϼ� ��

    ��õ��� =�ʱ�
    ���ǻ�=�ﰢ��   ï¿½ï¿½ï¿½ï¿½=1998.3.27   ï¿½ï¿½ï¿½ï¿½=kmk������� ������    ï¿½ï¿½ï¿½ï¿½=17,000��
    �з�=520��    cd�ηϾ���

    perl�� ����� cgi�ۼ����� �ٷ��. �ʱ��ڿ��� ������ å�̴�.
    cgi�� perl �� ���� ���������� ���� �е鲲 ���ϰ� �ʹ�.
    �� å�� ���� cgi����� perl���� ���� .cgi�ϸ� �� �Ƿ� perl�� ���� �ٴ����� �� ��
    ���� ���̴�.
    perl�� ���� �������� Ȱ����� ���� ������ �����, ī��Ÿ ���� ������ �ִ�.
    ��å�� �����ҽ��� ���뺸�ٴ� �������� cgi �н��� ������ �� ���ϴ�.
    '21�� �ϼ�'�̶�� ������ �޷��ִµ� ��� �ʱ��ڿ��� 21���� �����̴�.
    ������ �׸�ŭ ���ٴ°� ��Ÿ���� �����̶� �����Ѵ�.
    �ƽ������� �����ҽ��� �ʹ� ����ϴٴ� ���̴�.
    �׷���ī��Ÿ,����ϸ���⸦ �����ϸ� �̷����� ��밡���� ��ü�� �����ҽ��� ����.

    �� cgi ���̺� ��

    ��õ���=�ʱ�~�߱��̻�
    �������ǻ�    ï¿½ï¿½ï¿½ï¿½=1997.4.10    ï¿½ï¿½ï¿½ï¿½=�ǿ���,Ȳ��ȣ   ï¿½ï¿½ï¿½ï¿½=25,000��
    �з�=650��    ï¿½Î·ï¿½cd=cgi���� ����Ʈurl , �����ҽ�

    perl�� ����� cgi�ۼ�,Ȱ����� �ٷ��.
    ���ʿ��� ������ũ�б��� �� ���� ������ �ٷ��.
    ��å�� ������ ������ ������ �дٴ� ���̴�.�۰� ���� ��ũ�п��� �������� ��ũ�б���
    ���а� �ٷ�� �ִ�.cgi �� ���� �����µ� �Ѹ� �� �� �ִ� å�̶� �����Ѵ�.
    �ƽ������� �������� Ƽ�� ���� ���ϰ� �ִ� �� ���Ƽ� �Ϲ����� ���⿡�� �ټ�
    �����ϴٴ� ������ �ش�.  ï¿½×°ï¿½ �� �׸� ����� �ݹ��ϴ� ����� ���� ���̴�.
    �׷��� �н��ǿ��� ����µ� �־ �̰��� ����� �߿��� ���̴�
    ��̾��� ��ȭå�� ���� ������ �� ���ΰ�? ��ȭ���ΰ��� ����� �� �ʺ���.
    �� ��å�� �з��� ���ٺ��� �ʽ��ڴ� ���� �н���ȹ�� ���� �� ���� ���̴�. ��ü�� �������ٴ� �������� Ȱ��ʸ� �ٷ���ٴ����� �ƽ���.


    �� cgi �𸮽��� ��

    ��õ���=�߱��̻�
    ������ȭ��   ï¿½ï¿½ï¿½ï¿½=1997.4.21    ï¿½ï¿½ï¿½ï¿½=�̱Լ�    ï¿½ï¿½ï¿½ï¿½=20,000��
    �з�=800��   ï¿½Î·ï¿½cd=perl, c, c++���̺귯��,html������, ����, java kit1.0.2�� ����

    ��ȭ��, ����, ���������, �����, �ֹ���, ����, ��Ƽ��X �� ��ü���� ������ �ٷ��
    c, c++ �� cgi �� �ణ�� ��� ������ ���ǰ� perl cgi������ �����̴�.
    ������ ������ ����������� �н��� �� ���ִ�.
    �ƽ������� ���� �ʽ��ڿ����� ����� �����ѵ��ϴ�.
    cgi ���� �κ��� ������ ����ϴ�, ������� ���� ������ �ʿ��Ұ��̴�..

    �� using cgi ��

    ��õ���=�ʱ�~�߱�
    ������ȭ��   ï¿½ï¿½ï¿½ï¿½=1996.10.25    ï¿½ï¿½ï¿½ï¿½=�迵��    ï¿½ï¿½ï¿½ï¿½=20,000��
    �з�=830��    ï¿½Î·ï¿½cd=�����ҽ�

    unix��, perl, c++, �� cgi�� �Ұ��ϰ� �ִ�.
    �������� ������ ���� �κ��� �����ϰ� �ִ�.
    cgi�� �����ϴµ� �����ϸ�, �ۼ������ٴ� Ȱ��ʸ� ���� �����ϰ� �ִ�.
    �ƽ������� �����ִ� ���� �н����� ����ġ ���� �� ���ٴ� ���� ������ �ʱ��ڿ���
    ���� ������ å�� �ɰ��̴�..

    �� �����غ����� cgi ���� ��ũ�� ��

    ��õ���=�ʱ�~�߱�
    �ѱ۰� ��ǻ��    ï¿½ï¿½ï¿½ï¿½=?   ï¿½ï¿½ï¿½ï¿½=����ȯ    ï¿½ï¿½ï¿½ï¿½=15,000��
    �з�=500��   3.2��ġ����=�����ҽ�

    ����幰�� �������� �ƴ� �� �ʹ�.
    c �� Ȱ���� cgi�� �ٷ��.
    c��� �Ұ�, html����, ��������ġ���, cgi�⺻����, ī��Ÿ, �����, ���Ϲ߼۱�
    log���Ϻм���, �����ͺ��̽� �ۼ����� ������������ �ٷ�� �ִ�.
    c�� �𸣴� �ʽ��ڵ� ���� ��� �� �����Ͱ���.
    �ƽ������� �����Ͼ���� c�� ����Ѵٴ� ���̴�.
    �ʽ��ڿ��Դ� ���� ������ �� �ִ� . �������̶�°���....
    �׸��� ������ ū ��ż��� ��ü ��κ��� c�� ����� cgi�� ������� �ʰ��ִ�.

    �� cgi ���α׷��� �÷��� ��

    ��õ���=�ʱ�~�߱�
    ������ȭ��   ï¿½ï¿½ï¿½ï¿½=1997.4.10    ï¿½ï¿½ï¿½ï¿½=�ŵ���    ï¿½ï¿½ï¿½ï¿½=20,000��
    �з�=830��   ï¿½Î·ï¿½cd=����, �������α׷�(������Ʈ1.16), �����ҽ��ټ�)

    "perl, http, html, �� ��� cgi�� �����Ͽ� ������ ���� ����°�" ��� Ÿ��Ʋ��
    åǥ���� �ް� �ִ�.
    �ֵȳ����� perl�� Ȱ���� cgi �ۼ������� �׿� perl ��ġ���, ������ġ�������
    �������.���� pc���� cgi�� �ۼ� ,�׽�Ʈ�غ����� ����鿡�� ������ �����ϰ��̴�.
    �ƽ������� �з��� �ʹ� ���ٴ� ���̴�.�̰� ������ ���� ������ ���� �ִ� ����������
    ���� �� ���� �д� ����� �ʽ��ڶ�� ������ �Ѵٸ� �̰� �����̶�� �����̴�.
    �ٽ��� �ľ��ϱⰡ ���� ���� �� �����Ƿ�....

    �� perl 5 for dummies ��

    ��õ���=�ʱ�~�߱�
    �������ǻ�    ï¿½ï¿½ï¿½ï¿½=1997.11.30   ï¿½ï¿½ï¿½ï¿½=����� �������м�Ÿ    ï¿½ï¿½ï¿½ï¿½=15,000��
    �з�=480��   ï¿½Î·ï¿½cd=����, ��, ���н� �� �����ҽ� �ټ�

    ��å���� perl�� �̿��� cgi�� �ٷ�� ������ �ַ� perl��� ��ü�� ������ �ΰ� �ִ�.
    �Ϲ����� cgi ���α׷����� �ٷ� ���� å��� �ٸ����� �װ��̴�.
    perl����� ����, �Լ�,���� ���� ���ٸ� cgi�� �����ϴµ� �Ѹ��ϸ��� ����.
    �ƽ������� cgi�� ������ Ȯ���� �������� ���� ����� �� å�� ���ϸ�
    perl�� cgi�� ȥ���� �� ���� �����Ŷ� �����̴�.
    ��å�� ȿ�������� ����ϱ� ���ؼ��� �� å �̿��� ������ cgi �н��� ����ž� �Ұ��̴�..

    �� perl 5   21�� �ϼ� ��

    ��õ���=�߱�
    ���δ�   ï¿½ï¿½ï¿½ï¿½=1997.7.28   ï¿½ï¿½ï¿½ï¿½=�ֿ�ȣ    ï¿½ï¿½ï¿½ï¿½=28,000��
    �з�=950��    ï¿½Î·ï¿½cd����

    perl ����� �Լ������� ������ �ַ� �ٷ��.
    �������� ���� ������ ������ �Լ���� ������ ������ �н��� �����Ѵ�.
    cgi������ ����� ������, html�� �Ѱ踦���� cgi�� ã�ҵ� , ���� �ܼ��� cgi�� �Ļ��ϸ�
    ���� ��Ư�� ���� �����Ϸ� �õ��� �� ��å�� ã�� �ɰ��̴�.
    perl�� ���� ���������̶� �� �� �ִ�.
    �ƽ������� �ʱ��ڿ����� ����� �ʹ� �����ϴٴ°��̴�.
    �� ���α׷����� ó���ϴ� ����̶�� å �β��� �Ⱑ���� ���� ���� ���� ���� �ִ�.
    "21�� �ϼ�" �̶����� �͹��� ���� ���̶� �����Ѵ�.




    �̿ܿ��� ������ Ȯ���� �غ��� ���� cgi �н������� ���ʰ��� �� �˴ϴ�.
    .���Ŀ� �˾ƺ��� ��õ�Ҹ��ϴ� ���� å�� �� �Ұ��� �ϰڽ��ϴ�.
    Ư���� ��õ�ϰ� ���� å�� �ִٸ� ���� ���� �̳� �Խ��ǿ� ���� ���� �ֽʽÿ�.

    �׸��� ���� ������ ��ż� � ã�ƺ��Ⱑ ����е� ���� �ֽʽÿ�. 


2. win95 ���� cgi�� �ۼ�,�׽�Ʈ �Ϸ���..

    ���� ������ ����� �����ôº�,
    �׸��� pc�� "����95"  ï¿½ï¿½ï¿½ï¿½ cgi�� �������λ��·� �ۼ�,�׽�Ʈ
    �� ���÷��� �е��� ���� �׸��Դϴ�..

    ���ϸ���, perl ���α׷��� �ٿ� �޴´�.
    �˻�����Ʈ���� 'perl' �� ã���� �Ƹ� perl ������ �̱��� ��� ����Ʈ�� �տ� ���ð��̴�..
    �װ����� ���� �ֽŹ����� perl ���α׷��� �ٿ�ްų� �� ã�ƺ��� ���� ����Ʈ����
    �ٿ���� �� �ִ°��� ���� ���̴�.�� 1.5MB.

    �� ��°,�� ���α׷��� pc �� ��ġ�Ѵ�.
    �ٿ���� ������ ������ Ǯ�� ���߿� install ������ ���ϰ��̴�.
    install ����� �Ϲ� ���α׷��� �װͰ� ���� �ٸ��� �ʴ�.
    �׳� ������� ôô ���͸� �����ֱ⸸�ϸ� �ȴ�.
    install�� �Ϸ�Ǹ�  c����̺곻���� autoexec.bat ������ � �ؽ�Ʈ������� ������ ����.
    �ű⿡ perl �� �������α׷��� Ǯ�н��� �����Ǿ��ֳ� ���캻��.
    install�������� �н��� �ڵ����� �����Ǵ°� �����̴�. ���� �ʵǾ� �ִٸ� �������� �����Ѵ�.
    ( ��, PATH=c:\perl\bin; )  ï¿½ï¿½Ä¡ï¿½ï¿½ ��ο� ���� �̿Ͱ��� �� ������ �߰��Ѵ�.

    ����°, pc�� ������ ����ϱ����� �������α׷��� �ٿ� �޴´�.
    �������α׷� ���� �˻�����Ʈ���� ã�ƺ��� ���� ������ �������̴�.
    �װ����� �ٿ�ްų� ��(this) Ȩ������ �ڷ�ǿ���
    Personal Web Server �� �ٿ� �޴´�.

    �� ��°, �������α׷��� pc �� ��ġ�Ѵ�.
    ���⼭�� "personal web server"(���� 'pws' �� ��Ī)�� ��ġ ������� �����ϴ� ,�ٸ� ���α׷���
    �ٿ� �޾Ҵٸ� �ű��� �޴����� ������.
    pws �� ��ġ ���� �Ϲ� ���α׷��� ��ġ�� ���� �ٸ��� �ʴ�.
    ������ Ǯ�� ��ġ������ �����Ű�� ������ ��ġ�� �Ϸ�ȴ�.

    �ټ� ��°,  *.cgi ������ ������������ ����ȯ�漳���� �Ѵ�.
    Windows ���丮���� 'hosts' �� �̸��� �ؽ�Ʈ ������ �ϳ� �����.
    �ؽ�Ʈ������� ����  "127.0.0.1   localhost"��� ���� �����Ѵ�.(����ǥ ����)
    ����ȭ����
    ���۹�ư-����-regedit.exe(�Է�)-(����)-�� ������ ������Ʈ�� �����Ⱑ ���.
    �ٽ�,������ ������� ��������
    HKEY_LOCAL_MACHINE --System--CurrentControlSet--Services--W3Svc
    --Parameters--Script Map

    cript Map�� ������ ��, ������ ����� �޴�����
    ����--���--���ڿ� ��
    �������� �����ʿ� ��Ÿ���� ĭ�� 'cgi' �� ���� ����
    �����Է� �ڽ��� ��Ÿ��
    '���� ������'����
    c:\perl5\bin\perl.exe %s %s  ï¿½ï¿½ï¿½ �Է��Ѵ�.(perl�� ��ġ�Ȱ�θ�..)

    �ٽ�
    ����--���--���ڿ� ��
    �������� �����ʿ� ��Ÿ���� ĭ�� 'pl' �� ���� ����
    �����Է� �ڽ��� ��Ÿ��
    '���� ������'����
    c:\perl5\bin\perl.exe %s %s  ï¿½ï¿½ï¿½ �Է��Ѵ�.(perl�� ��ġ�Ȱ�θ�..)

     c:\cgi-bin ���丮(����)�� �ϳ� �����.

    �ζ����(�ݽ���, �ͽ��÷�)�� �����ϰ� �¶��θ�忡�� �Է¶���
    http://127.0.0.1/htmla/htmla.htm
    ��� �Է��ϰ� ���͸� ������ �䷷�� ȭ���� ���.
    ���⼭
    WWW administration ��ũŬ��
    ----
    Directories ���� Ŭ��(���⼭ ����ȭ������ �ٲ�µ� �ð��� �� �ɸ� ���� ������ ��ٸ���)
    ----
    Directory, Alias, Action ���� �ִ� ���̺��� ��Ÿ����
    �ٽ�
    Action �ϴܿ� �ִ� Add ��ũ�� Ŭ��(���⼭�� ����ȭ�� �ߴµ��� �� �ð��� �ɸ� �� �ִ�.)
    ----
    Directory text �Է¶��� �Ʊ� ���� cgi-bin ������ ��θ� �����ش�.
    ��) C:\cgi-bin
    -----
    Virtual Directory ������ Virtual Directory ��ư�� üũ
    ----
    Directory Alias �� �Է¶���
    /cgi-bin �� ����
    Access �� �ִ� Read �� Execute �� üũ�ڽ� üũ,
    OK ��ưŬ��

    ��ġ ��~~~ ���� ������!

    ��ǪŸ�� ������Ѵ�.
    ���� �����ϰ����ϴ� cgi������ ���� ���� cgi-bin ���丮���� ����ְ� �ζ��������
    http://127.0.0.1/cgi-bin/**.cgi
    �̷��� �����Ű�� �ȴ�.
    cgi������ �����ε� ������ ���� �ʴ´ٸ� ��ġ�� �߸��� ���̴� �ٽ� �� Ȯ���Ұ�.
    �ٸ� ���丮������ ������� ������ �õ������� ����.


3 .���� Ȱ���ϱ�

    1.�켱 dz�� �ø��� cgi��ũ��Ʈ�� ����� ����!

    �̰��� cgi�� html���� ��ȣ �ۿ��� ���� �����ϱ� ���� �����Դϴ�.
    ���ʴ� ���� Ȩ�������ڷ�ǿ��� ã�� �� �� �ֽ��ϴ�.
    ���� �� Ȩ�������� ���� ȭ���� �׷����� ���� �ƶ��Դϴ�.

    Ȩ�������湮���� ���ڿ� ���� dz���� �ö󰡰� �����.
    dz���� �ʹ� ������ ȥ���������״� �� �� ���� ��� ����� ����
    �� ��ũ��Ʈ�� �����ϱ� ���� ���븸 ���ڸ� ������ ����.


    #user/local/bin/perl      
    #__________________perl���α׷��� ���

    print "Content-type: text/html\n\n";
    #_____���

    $countpath1="./guestbook/count.txt";
    #______ī��Ÿ���ڰ� ����� ����1�ǰ��
    $countparh2="./webboard/count.txt";
    #______ī��Ÿ���ڰ� ����� ����2�ǰ��
    $pungsan1="./img/boom1.gif";
    #____________dz���׸�1�� ���
    $pungsan2="./img/boom2.gif";
    #___________dz���׸�2�� ���
    $kkori="./img/kkori.gif";
    #________________dz���� �����׸��� ���
    $space="./img/space.gif";
    #____________���� �Ʒ��� ������� ä�� �׸�

    open(COUNT1,$countpath1);
    #_______ù ��°ī��Ÿ������ ���� ���ڸ� �д´�
    $count1=<COUNT1>;  
    #____________���� ���ڸ�$count1�� �����Ѵ�
    colse(COUNT1);
    #_________________������ ������ �ݴ´�.

    open(COUNT2,$countpath2);
    #____�� ��°ī��Ÿ������ ���� ���ڸ� �д´�
    $count2=<COUNT2>;
    #___________���� ���ڸ� $count2�� �����Ѵ�
    colse(COUNT2);
    #__________________������ ������ �ݴ´�

    print <<END;
    #________________END ������ ���� ������ ����Ʈ�϶�

    <html>
    #____________________html�� �ۼ��Ѵ�.
    <body>
    <table border=0>

    <tr><td>
    <img src=$pungsa1n border=0>
    #______dz���׸��� �ҷ��´�
    <br>
    $count1
    #________________________������ ���� ī��Ÿ���ڸ� �ִ´�
    <br>
    <img src=$kkori border=0>
    #____________dz���� �����κ��� �ִ´�
    <br>
    <img src=$space border=0 width=0 height=$count1>
    #__________________________�����Ʒ��� �������
    #__________________________�־ dz���� ���̸� �����ϴµ�
    #__________________________html�±� heigh(����)�� ī��Ÿ���ڸ� ����ִ´�


    #__________________�� ��°�� ���� ������� �ۼ��Ѵ�
    </td></tr>

    <tr><td>
    <img src=$pungsan2 border=0>
    <br>
    $count2
    <br>
    <img src=$kkori border=0>
    <br>
    <img src=$space border=0 width=0 height=$count2>
    </td></tr>

    </table></body></html>
    END
    #______________________END������ �������� ������� ����Ʈ �ȴ�.


    �� ��ũ��Ʈ�� �������� �帧�� �����ϱ����Ͽ�
    ���� ��������  ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½, ����open, print ���ɾ�� ������ �ۼ��Ѱ��̴�
    html�� �����̶� �ƴ� ����̶�� dz���� �󸶵��� �� �� �� �������̴�,
    ���� ī��Ÿ�� ���ڰ� �������� dz�����̰� �ʹ� ������ ī��Ÿ���ڰ� ����� ����,
    $count1, $count2�� html�±׿� �ֱ����� ���������ָ� �ȴ�.
    ��) $count1=$count1/2;
    �̷��� ���ָ� ���̴� �������� �پ���.

    ���⼭ dz���� �о� �ø��� �������ϴ� ���� �����̹������� space.gif�̴�.
    �� �׸��� dz���� ���� �Ʒ��� �ְ� ī��Ÿ�� ���ڸ� �� �׸� ���̿� �����Ų���̴�.
    �ּ�(����)���� ����� �̻��·� Ȱ���� ���� ������ �� ��ũ��Ʈ�� ����
    �����͸� � ������� html�� �����Ű�°��� �����ϰ� �Ǿ��ٸ� �ϴ��� �����̴�.

    2.��ü�����ڼ�,���������ڼ�,���������ӽð��� �˷��ִ� ī��Ÿ 

    ī��Ÿ�� Ȩ�������� �� �� ���ݸ� �� �Ű澲�� �ξ��� ������ ī��Ÿ�� ���� �� �ִ�.
    ��ü����,��������, �������ӽð��� ��Ÿ���� ��ũ��Ʈ�̴�.
    ���ʴ� �̰� Ȩ�������� �����,��ũ����...�� ���������� �� �� �ִ�.

    �ҽ��� ������ ����.
    contt.cnt��� ���Ͽ��� ī��Ÿ ���ڰ� ����Ǵ� �����̶� �����ϰ�........



    local ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
    #____ȯ�溯���� ȣ���Ͽ� ����ð��� ���� ���ڸ� ���Ѵ�.
    $time = $hour.":".$min; #____________����ð�
    $date =$mon,$mday,$year;#________����



    open(READCOUNT, "count.cnt"); #____ī��Ÿ���ڸ� �б����� ������ ����

    @readcount=<READCOUNT>; #____����������@readcount ��� ������ �迭�� ����
    chop(@readcount); #___________���� ������ �� ���γ��� �ִ� �ٹٲ޹��ڸ� ����
    close(READCOUNT); #___________������ �ݴ´�

    $total=$readcount[0]; #_@readcount�迭�� ù���� $total������ ����(��ü�湮��)
    $today=$readcount[1]; #________�� ��°����  $today������(���ù湮��)
    $redate=$readcount[2]; #_______����°����...$redate��..(����)
    $retime=$readcount[3]; #_______�׹�°����....$retime��..(�ð�)


    if($redate eq $date){#___���� ���Ͽ��� ���� ���ڰ� ���ó��ڿ� ���ٸ�
    $check=1;#______________$check�� 1�� �����ϰ�
    }
    else{ #___________________�׷����ʴٸ�
    $check=2; #______________2�� �����Ѵ�
    } #_________
    $total += 1;#___________��ü�湮�ڿ��ٰ� 1�� �߰�

    open(PRINTCOUNT,">count.cnt");#_____�ٽ� ī��Ÿ������ "����"���� ����
    print PRINTCOUNT "$total\n";#_____��ü�湮�ڼ��ڸ� ù�ٿ� ���

    if($check == 1){#__________________����$check�� 1�� ���ٸ�
    $today += 1;#_____________���ó��ڿ� �����Ƿ� ���� �湮�� ���ڿ��� 1�� ���Ѵ�
    print PRINTCOUNT "$today\n";#___���ù湮�ڼ��� ���
    print PRINTCOUNT "$redate\n";#__���Ͽ��� ���� ���ڸ� �״�� �ٽ� ���
    print PRINTCOUNT "$time\n";#____����� ���
    }#_________________________________

    else{#______________________���� ���� "if"�� ������ ���� �ʴٸ�
    $today = "1";#_______________���� ù�湮���̹Ƿ� ���ù湮�ڼ��ڴ�1�̴�
    print PRINTCOUNT "$today\n";#___���ù湮�ڼ��� ���
    print PRINTCOUNT "$date\n";#_____���ó��ڸ����
    print PRINTCOUNT "$time\n";#______��������
    }#___________________________________
    close(PRINTCOUNT);#_________________������������ �ݴ´�

    ��ũ��Ʈ ��
    ����
    $total ���� ��ü �湮�ڼ��ڰ�
    $today���� ���� �湮�� ���ڰ�
    $retime���� �����湮�ð��� ��� �����Ƿ� �� ������ html�±׳���
    �����Ѱ��� �ְų� �׷���ī��Ÿ�� �����ؼ� �׷��������� ȣ���ϰԲ� �ϸ� �ȴ�.

    �� ��ũ��Ʈ�� �� Ȩ�������� �ִ� ���� ���� ���� �Ͱ� �������̹Ƿ�
    �״�� ����ص� �ȴ�.�ڷ�ǿ� ���� �ٷ� �ٿ� ���� �� �ִ�.

    3.����� �ۼ��ϱ�




4.������ ��ũ��

    1.����Ʈ�� ����

    � ������ ���ؼ� ����Ʈ ���Ѿ� �� ���� �ִ�.
    ���� ���ڸ� �Խ��Ǹ���� ��ȸ������ ���Ľ�Ų�ٴ��� �ϴµ���.....
    �̷��� "sort" �Լ��� �̿��ϴµ�  
    sort(@data);
    �̷����ϸ� �������� ������ ���ĺ� a-z�� ����, ����0-9�� ������ ������ �ȴ�
    �׷��� perl���������ʹ� �������� �� �տ������� �켱������ ���� �����Ƿ�
    �������� ���� ��������� ������

    0
    198
    20
    24
    30001
    52
    766
    8
    .
    .
    .
    ��ġ �ʴ� ����� �Ǿ� �����°��̴�.
    �̰��� ������ ����ũ���� ���Ľ�Ű�ڸ� ��� ��ũ���� ����ؾ� �Ѵ�.

    -�� ���� ȭ�鿡�� �ϳ��� �ϼ��� ���� �ٷ����� �ʴ´�..
    �ٸ� ��Ʈ�� ���� �ҽ��� ������ ���̴�.

    @list ��� �迭�� ������ ���� ��Ұ� ���ԵǾ� �ִٰ� ���� ����.

    998,�ϴ�,��,��
    21,��,����,����
    7326,���,�ູ,�̺�
    5,�ٺ�,��û��,�Ƕ���
    8830,ö��,����,����

    �� �迭�� �Ǿ� �޸� ���� ����ũ������� �����ϱ� ���� ��Ʈ����
    sort(@list);

    �̷��� �ϸ�
    21,��,����,����
    5,�ٺ�,��û��,�Ƕ���
    7326,���,�ູ,�̺�
    8830,ö��,����,����
    998,�ϴ�,��,��
    �̷� ������ �ȴ�.���� ���ϴ� �ٰ� �ƴϴ�.

    �ױ״�1-�������� ��ũ��-sort �Լ��� ������ ���ı�Ģ�� �������ش�.
    @new_list=sort number (@list);
    �̷��� .sort�Լ� ������ ���ı�Ģ�� ������ ���� ����� ���ĵǾ��� ���̴�.
    'number'�� ���� ��ƾ���� ���ǵ� ���ı�Ģ�̴�.
    ������ ���� ��ƾ�� ���� ����.
    sub number{
    local($num_a, $num_b); #__������������
    $num_a=$a=~/^[0-9]/; #___$a�� ���ڷ� �����ϴ� ����̸� $num_a��1
    $num_b=$b=~/^[0-9]/; #___$b�� ���ڷ� �����ϴ� ��� �̸� $num_b��1
    if($num_a && $num_b){ #__���� �� ��Ұ� 1�� ��쿡��
    $retval=$a<=>$b; #________�� ���ڸ� ���Ѵ�.
    }
    elsif($num_a){ #__________$num_a�� 1�ϰ��
    $retval=1; #______________$retval�� 1
    }
    elsif($num_b){ #___________$num_b�� 1�ϰ��
    $retval=-1; #_______________$retval�� -1
    }
    else{
    $retval=$a cmp $b; #_�� �� 1�� �ƴҰ��(���ڰ� �ƴ� ���) ���ڿ� ��
    }
    $retval;
    }

    ��ũ��2
    ���ڿ� ���ı����� �״�� ����ϵ� �����Ϸ��� ������ �ڸ����� ���߾� �ش�.
    �����͸� ������ �� �������� �����Ƿ� ������ ���� ����ϴ� ����̴�.
    ����<����>�� �� Ȩ�������� �ִ� �Խ��� �ҽ��� �Ϻκ��̴�.
    <����>
    if($hit> 999999){$jamsu=$hit;}
    elsif($hit> 99999){$jamsu="0$hit";}
    elsif($hit> 9999){$jamsu="00$hit";}
    elsif($hit> 999){$jamsu="000$hit";}
    else{$jamsu="0000";}

    �� ���� ���ڸ� �����ϰ� �ڸ����� ���߾� �ִ°��̴�.
    ������ ���� ���̴�

    00005,�ٺ�,��û��,�Ƕ���
    00021,��,����,����
    00998,�ϴ�,��,��
    07326,���,�ູ,�̺�
    08830,ö��,����,����
    ���� ���ϴ� ������ �Ǿ��� ���̴�.
    �ڼ��� ������ �ϼ��� ���� �����ϱ� �ٶ���.

    2.�Ҽ�������
    �ҽ��� ����ٺ��� � ���� �������ؾ��ϴ� ��찡 �ִµ�
    �� �������� ����� '3.3333333' �� ���� �� �Ҽ��� ������ ���ڸ�
    �ް� ���´ٸ� ��� �� ���� ó�� �� ���ΰ�.
    ���� $divide=3.333333;
    ��,$divide������ ���� 3.333333�� ���ԵǾ� �ִٸ�
    $new=int($divide);
    �̷��� �ϸ� $new�������� �Ҽ��� ���ϰ� ����� ���� '3'�� ���� �ȴ�.
    �׷��� $divide=3.884588; �̶�� �����ϰ�
    $new=int($divide);
    �̷��� ���� ��쵵 �����'3' �Ȱ���. �� �ݿø��� �̷������ �ʴ´�.
    �� �����ذ��� ���ؼ���
    $new=int($divide+0.5);
    �̷��� ���ָ� �ݿø� ������� ���� �� �ִ�.

    3.��й�ȣ �����
    Ȩ�������� � ������ 'eunsoo12'��� �ܾ ��й�ȣ�� ����Ϸ��� �Ѵ�.
    �� �ܾ Ȩ���������� � ���Ͽ����� �Ǿ� �ְ� �Էµ� ��й�ȣ��
    �� ����Ǿ� �ִ� ��й�ȣ�� ���ƾ߸� � ������ ����ȴٰ� ����.
    ���� �ٸ��̰� �� ������ �ζ������ ȣ���Ѵٸ� ��й�ȣ�� ������ ���̴�.
    $pass="eunsoo12"; ��� �����ϰ�
    $pass2=crypt($pass,az); �̷����ϸ�
    $pass2���� "az5JykOhbKpyQ"��� �ܾ ���Եȴ�.
    �̷����Ͽ� �����ϸ� �ƹ��� �˾ƺ� �� ���� ���̴�.
    ���� ��й�ȣ�� �Է��ϰ� � ���α׷��� �����ؾ� �Ѵٸ�
    ����Ǿ� �ִ� "az5JykOhbKpyQ"�� ���� �� �Է��� �ܾ� "eunsoo12"�� ��������
    ���ؼ� ���� ��쿡�� ����� �ǰ� �ؾ� �Ѵ�.
    $enterpass=�Է��Ѵܾ�; ���
    ���� ���� �������
    $newpass=crypt($enterpass,az);
    �̷����Ͽ� ����Ǿ� �ִ� ��й�ȣ�� �Է��Ѵܾ�$newpass�� �����ϰԲ� �ϸ� �ȴ�.
    ������ 'az' �� ������ ���ڷμ� ����,����,.,/� ���̵� �� ���� ������ �ȴ�.
    �� �� ���ڿ� ���� ��ȯ ����� �޶�����.
    ���� ����ó�� �ƿ�'az'�̶�� ���س��� ����� ���� ������ � ������ ���⿡
    ���Խ�Ű�� ���� ������ �н����尡 �ɰ��̴�.