|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Evgeni Kubachev 2:5030/1509 19 Feb 2005 16:59:52
To : All
Subject : upload
--------------------------------------------------------------------------------
Здорово, All !!!
Hарод, помогите, плз. Hифига не получается нормально сохранить файл - бинарный
файл сохраняется как ascii -=8o( и, ессно, не исполняется как надо.
_upload.html_
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<body>
<form action="../cgi-bin/file.cgi" method="post" enctype="multipart/form-data">
<input type="file" name="file">
<input type="submit" name="Send" value="SEND">
</form>
</body>
</html>
_cgi-bin/file.cgi_
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI qw(:standard);
$q = new CGI;
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;
$file_name = $q->param('file');
$file = get_file ($file_name);
save_file ();
sub get_file {
my $full_name = shift;
$full_name = basename ($full_name);
$full_name =~ s/\s/\_/g;
return ($full_name);
};
sub save_file {
print $file, "<br>\n", $file_name;
open (AAA, ">../upload/$file");
$fh = $q->upload("file");
while (<$fh>) {
print AAA;
}
close (AAA);
};
вроде как в perldoc CGI сказано, что upload в бинарном виде закачивает, а
результирующий файл все-равно отличен размером от исходного (exe-шник) -=8о(
что я делаю не так?
Прощай !
np: Para Bellum - [2000] Para Bellum - 03/11 - Завтра будет тепло
--- GoldED+/W32 1.1.5-020726
* Origin: и тебе и тебя и ты сам... (2:5030/1509)
Вернуться к списку тем, сортированных по:
| Тема: |
Автор: |
Дата: |
|
upload |
Evgeni Kubachev |
19 Feb 2005 16:59:52 |
 upload |
Nikita Melnikov |
07 Mar 2005 19:46:00 |
 upload |
Evgeni Kubachev |
08 Mar 2005 10:11:04 |
|
upload |
Nikita Melnikov |
09 Mar 2005 23:11:00 |
|
|
