檔 案 上 傳 怎 麼 做

Form 的 參 考 寫 法

<FORM ENCTYPE="multipart/form-data" ACTION="upload.cgi" METHOD=POST>
File to upload:
<INPUT TYPE="file" NAME="filename">
<INPUT TYPE="submit" VALUE="SEND">
</FORM>

Perl 的 CGI 程 式 參 考 寫 法

#!/usr/local/bin/perl

use CGI;
use Fcntl;

$q = new CGI;

print $q->header;

my $uploaddir = "tmp";

if ($file = $q->param('filename')) {
    $fname = $file;
    $fname =~ s/\\/\//g;
    $fname =~ s/\.\.//g;

    if (($pos = rindex($fname, '/')) != -1) {
	$fname = substr($fname, $pos+1);
    }

    print "<h2>File: $fname</h2>";

    if (length($fname) > 0) {
	$fname = sprintf "%s/%s", $uploaddir, $fname;
	open (FN, "> $fname");
	print "<pre>";
	while (<$file>) {
	    print;
	    print FN $_;
	}
	print "</pre>";
	close FN;
    }
}

print $q->end_html;