|
|
|
Forum Member
 
участник
Last Login: 23.02.2003 13:08
Сообщ.: 29,
Visits: 320
|
|
Привет всем!
Помогите с проблемой, необходимо реализовать закачку файла на сервер.
Киньте фрагмент кода HTML с необходимой формой и фрагмент скрипта, принимающий и записывающий файл.
Спасибо всем :)...
|
|
|
|
|
Forum Member
участник
Last Login: 23.02.2003 13:08
Сообщ.: 29,
Visits: 320
|
|
Да ну что, повымирали все? :)
Или все сбежали на tek-tips.com?
|
|
|
|
|
Forum Member
участник
Last Login: 23.02.2003 13:08
Сообщ.: 29,
Visits: 320
|
|
Да ну что, повымирали все? :)
Или все сбежали на tek-tips.com?
|
|
|
|
|
Supreme Being
участник
Last Login: 20.09.2003 13:10
Сообщ.: 121,
Visits: 1 332
|
|
| http://www.goole.com => "perl upload CGI.pm"
|
|
|
|
|
Supreme Being
участник
Last Login: 25.05.2003 20:08
Сообщ.: 125,
Visits: 1 376
|
|
ДЕБИЛЫ!!! ЧЕЛОВЕ ПОПРОСИЛ ПОМОЧЬ А ВЫ ЕГО НА ГУГЛ ПОСЛАЛИ!!!
Я вот, добрая душа, помогу ему....
Держи код.
#!/usr/bin/perl
$UploadPath = "../WWW/test";
$ScriptURL = "upload.cgi";
$MaxSize = "20"; # For no max size, leave blank. Max size of KBYTES.
use File::stat;
use CGI qw(:standard);
print "Content-Type: text/html";
$Action = param('action');
$Query = $ENV{'QUERY_STRING'};
if ($Action eq "upload") {
&Upload;
exit;
}
sub Upload {
$File2 = param('whichfile');
$NewFile = "$UploadPath/test.html";
$MaxSizeBytes =1024 * $MaxSize;
$ok = 1;
if (!-e "$NewFile") {
open(OUTFILE, ">$NewFile") or &error("cant create new file of this name! $!");
binmode OUTFILE;
while ($bytesread=read($File2,$buffer,1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
$inode = stat($NewFile);
$Size = $inode->size;
if ($Size > $MaxSizeBytes) {
# If it is too big, remove it and &error out
unlink "$NewFile" or &error("cant unlink $NewFile, too big; $!");
&error("Your file was too big!");
}
}
print qq~
<font size="2" face="Verdana" color="black">Your file has been uploaded to:<P>
Absolute Path: <B>$NewFile</B><P>
~;
}
print qq~
<center>
<form method=post action="$ScriptURL" enctype="multipart/form-data" name=form>
<input type=hidden name=action value="upload">
Choose File: <input type=file name="whichfile" size=45><P>
<input type=submit value="Upload Selected File" >
</form>
~;
sub error {
my $err = shift;
print qq~
An error occured: <B>$err</B>~;
exit;
}
|
|
|
|