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>
#__________________________�����Ʒ��� �������
#__________________________ï¿½Ö¾î¼ Ç³ï¿½ï¿½ï¿½ï¿½ ���̸� �����ϴµ�
#__________________________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'�̶�� ���س��� ����� ���� ������ � ������ ���⿡
���Խ�Ű�� ���� ������ �н����尡 �ɰ��̴�.
|