| |
一个简单上传文件代码,也是核心,可以自己完善g]V[ ©雷傲极酷超级论坛 -- 雷傲极酷超级论坛,最新软件,BT 下载,游戏娱乐,交友聊天,您网上的自由天堂 IG?DQE use CGI;0UwXk $read = CGI->new();[GP}3P $file = $read->para('filename'); #<input type="file" name="filename">I*hHv2 $filename = $file;/ $filename =~ s!.*(\\|\/)!!; #得到文件名,如 test.txt!/0grN $dir = "aa"; #当前目录下的aa文件夹p open (FILE,">$dir/$filename");L;t\ while(my $bytesread=read($file,$buffer,1024)){Pw*Ft print FILE $buffer;W(E }©雷傲极酷超级论坛 -- 雷傲极酷超级论坛,最新软件,BT 下载,游戏娱乐,交友聊天,您网上的自由天堂 RnC close FILE;<t}Au
| | |
|
|
|