¾Æ·¡ ¼Ò½º·Î ¹Ù·Î Àû¿ë½Ãų ¼ö ÀÖ´Â ¾÷·Îµå ¼Ò½º Á» ¾Ë ¼ö ÀÖÀ»±î¿ä? ;; ÀÚ·á½Ç, °Ô½ÃÆÇ ´Ù µÚÁ³´Âµ¥ ¾÷·Îµå ÇÔ¼ö±îÁö ´Ù µé¾î°£ ÆÄÀÏÀÌ ÇϳªÀÖ±ä Àִµ¥... CGI¸¦ Á¦´ë·Î ¸ð¸£´Â ÀÔÀåÀÌ¶ó °ªÀ» Àû¿ëÇϱⰡ Èûµå³×¿ä. -_-;;
-----------------------------------------------------------------------------------------------------------
#!/usr/local/bin/perl
require './mem_set.pl'; require './info.cgi'; require './sendcheck.cgi'; require './main_lib.cgi';
~...(»ý·«)~
<FORM action=./ÇöÀçÆÄÀÏ.cgi onSubmit="return_check()" METHOD=post ENCTYPE=multipart/form-data>
<input type=hidden name=mode value=file_upload>
<input type=hidden name=pic_num value=1>
<INPUT type=file size=50 name=uploaded_file><input type=submit class=lines value='submit'>
</form>
sub file_upload{
# µ¥ÀÌÅÍ Àбâ
$pic_num = $in{'pic_num'};
&mem_read;
$line = $pic_c;
~(ÀÌ ºÎºÐ¿¡ µé¾î°¥ ¼ö ÀÖ´Â ¾÷·Îµå ¼Ò½º Áú¹® T.T)??? ??? ??? (Æû ó¸®. ¾÷·Îµå ÇÔ¼ö.) ~
&head&foot;exit;}
------------------------------------------------------------------------------------------------------------
Àú À§¿¡ ±¸¹® ¾Æ·¡¿¡¼ ÀÛµ¿ÇÒ ¼ö ÀÖ´Â ¼Ò½º ¾øÀ»±î¿ä? µî·ÏÇÏ´Â ÆÄÀϸíÀ» Á¢¼ÓÇÑ ¾ÆÀ̵ð·Î ¹Ù²ãÁÖ°í ÆÄÀϸíÀ» ´Ù½Ã ¾ÆÀ̵𿡠±â·ÏÇØ¾ß Çؼ... -_-
µ¥ÀÌÅÍ Àо °ª¸¸ÀÌ¶óµµ Àû¿ëµÇ´Â ¾÷·Îµå ¼Ò½º¸¸ÀÌ¶óµµ ¾Ë·ÁÁֽøé Á¤¸» °¨»çÇÏ°Ú½À´Ï´Ù. T.T;; ´Þ¸® CGI ¹è¿ï ½Ã°£Àû ¿©°ÇÀÌ ¾ÈµÇ¼ °¡ÀÔÇؼ ¾î·Æ°Ô Áú¹®µå¸³´Ï´Ù.