Главная страница статей --> Советы по фотошопу, графике и хитрости в построении php кода

Пример загрузки файла в Perl

Источник: realcoding.net

Этот пример показывает возможность загрузки файла через форму при помощи модуля CGI. Очень просто и красиво.

#!/usr/bin/perl -w

$basedir = "/usr/home/kuku/site";
$donepage = "http://www.lala.ru/~kuku/site";
use CGI;

$onnum = 1;
while ($onnum != 11)
{
 my $req = new CGI;
 my $file = $req->param("FILE$onnum");
 if ($file ne "")
 {
     my $fileName = $file;
     $fileName =~ s!^.*(\/)!!;
     $newmain = $fileName;
     open (OUTFILE,">$basedir/$fileName");
     print "$basedir/$fileName";
     while (my $bytesread = read($file, my $buffer, 1024))
     {
         print OUTFILE $buffer;
     }
     close (OUTFILE);
 }
 $onnum++;
}

print "Content-type: text/htmln";
print "Location:$donepagenn";

к нему htmlка:

<form ENCTYPE="multipart/form-data" method=post>
 <p>File 1: <input TYPE="file" NAME="FILE1" size="20"> File 2:
 <input TYPE="file" NAME="FILE2" size="20"> File 3:
 <input TYPE="file" NAME="FILE3" size="20"> File 4:
 <input TYPE="file" NAME="FILE4" size="20"> File 5:
 <input TYPE="file" NAME="FILE5" size="20"> File 6:
 <input TYPE="file" NAME="FILE6" size="20"> File 7:
 <input TYPE="file" NAME="FILE7" size="20"> File 8:
 <input TYPE="file" NAME="FILE8" size="20"> File 9:
 <input TYPE="file" NAME="FILE9" size="20">
 <input TYPE="submit" VALUE="Upload!"> </p>
</form>



Похожие статьи:
- Поисковые роботы - как они работают и что делают
- Пример обращения к сервису Whois на PHP
- Обзор платных хостингов
- Квартира для вашего сайта
- Введение в ASP
- Представление в Internet содержимого каталога средствами ASP
- Отладка CGI-скриптов на Perl
- Работа с cookies на Perl
- Java Server Pages
- Модуль mod_rewrite. Часть 1.
- Модуль mod_rewrite. Часть 4.
- Защита include-модулей от несанкционированного доступа
- О грамотном использовании БД MySQL


Оглавление | Обсудить на форуме | Главная страница сайта | Карта сайта |

Контакты
Редакция:
[0.001]