|
на перле я знаю только через модуль CGI...
ты просто binary забыл
$upload_dir = '/';
$filename = param('file');
$info_outfile = lc($filename);
$info_outfile =~ s {.*[\:\\\/]} []gos;
$info_outfile =~ s/[^A-Za-z0-9\._ \-=@\x80-\xFE]/_/go;
$info_outfile =~ s/ /_/g;
if(-e "$upload_dir/$info_outfile" || param('filename') ne $info_outfile){
print "exists"; exit;
};
(open INFO,">$upload_dir/$info_outfile");
binmode INFO;
while ($bytes = read($filename,$data,1024)) {
$length_info += $bytes;
print INFO $data;
}
close(INFO);
|