CGI.pmÀ» »ç¿ëÇϸé Ưº°È÷ °øºÎÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. ¸ðµâÀÌ ¾Ë¾Æ¼­ ´Ù ÇØÁִϱî¿ä...

ÀϺΠ»çÀÌÆ®´Â À¥À» ÅëÇØ È¨ÆäÀÌÁö¿¡ ÆÄÀÏÀ» ¿Ã¸®´Â °èÁ¤À» Áִµ¥... CGI ¸ðµâÀ» ÀÌ¿ëÇØ ÆÄÀÏÀ» ¾÷·Îµå ÇÏ´Â CGIÀÇ ÇÙ½É ÄÚµå´Â 5ÁÙ ¹Û¿¡ µÇÁö ¾Ê½À´Ï´Ù.

ÆÄÀÏ¿¡ ´ëÇÑ ¼³¸íÀº ÀÚ¹Ù ½ºÅ©¸³Æ®³ª µ¥ÀÌÅÍ ÆÄÀÏÀ» ÀÌ¿ëÇؼ­ Ãß°¡ÇÏ¸é µÉ °Ì´Ï´Ù.

#!/usr/bin/perl -w
use CGI;
$q = CGI->new();

...
...
$file = $q->param('uploaded_file');
open(FILE, ">myfile");
while(<$file>){ print FILE $_; }
close($file);
close(FILE);
...
...


$upfile = $FORM{'file_name'};
@a = split(/\"/,$real_file);
@b = split(/\\/,$a[3]);
$t = @b;
$org_name = ($b[$t-1]);
$filename = "$main_dir/files/".$org_name;
if(-e $filename){
        $err = exist;
        &error;
}
open(FILE, ">$filename") || exit(1);
binmode FILE;
print FILE $upfile;
close FILE;