Форум программистов, компьютерный форум, киберфорум
Наши страницы
Perl
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.78
Vadim_ig
0 / 0 / 1
Регистрация: 05.01.2010
Сообщений: 235
#1

Программа на PERL для загрузки и сохранения файла на сервер - Perl

21.07.2010, 16:40. Просмотров 2640. Ответов 1
Метки нет (Все метки)

помогите, нужна программа на PERL для загрузки и сохранения файла на сервер(фото, текстовые данные). Заранее благодарен.
http://www.cyberforum.ru/perl/thread476293.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.07.2010, 16:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа на PERL для загрузки и сохранения файла на сервер (Perl):

Perl скрипт для анализа готового файла журнала аудита
добрый день господа! прошу вашей помощи по следующему заданию - хочеться его и...

Программа для сохранения и загрузки фрагментов растровых изображений
Помогите, пожалуйста, исправить ошибку Сборка происходит успешно, но при...

Написать форму для загрузки файла на сервер, в свою рабочую папку (с проверкой размера файла)
Написать форму для загрузки файла на сервер, в свою рабочую папку. И должен...

Функция для загрузки файла на сервер
public void sendMedia(String urlAddr, String filePath) { final String...

Ошибка загрузки и сохранения файла
Здравствуйте. Возникла проблема, надеюсь поможете разобраться. При запуске...

1
synthez
0 / 0 / 0
Регистрация: 10.08.2010
Сообщений: 3
10.08.2010, 20:29 #2
Ну для начала надо правильно создать форму отправки файла:
HTML5
1
2
3
4
5
6
7
8
9
<form action= './up.cgi ' method= 'POST ' еnctype= 'multipart/form-data '>
    Выберите файл для загрузки: 
        <input type= 'file ' name= 'upfile ' size=40>
    Введите имя файла:
        <input type= 'text ' name= 'filename ' size=40>
    информация:
    <textarea rows=22 cols=60 name= 'diz '></textarea>
    <input type= 'submit ' value= 'закачать '>
</form>
Теперь следует кусок кода на Perl'е, для получения и сохранения файла.

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
my $dir = '../htdocs/archive' # директория куда сохраняется файл. Здесь можешь указать другую.
 
&ReadParse; # функция из модуля cgi-lib.pl.
 
my $filename    = $in{'filename'};
my $diz     = $in{'diz'};
 
$filename =~ s/([^w.-])/_/g;
$filename =~ s/^[-.]+//;
 
if (-e '$dir/$filename') 
{
    print 'Ошибка: файл  '$filename ' уже существует!'; 
    print '<form action=./control.cgi method=POST>
    <input type=hidden name=upload_file value=1>
}
else
{
    open FH, '+> $dir/$filename';
    binmode FH; # Для виндов
    print FH $in{'upfile'};
    close FH;
    
    my $size = -s '$dir/$filename';
    my $filesize = int($size / 1024);
    $filesize++;
 
    print 'Файл закачен!';
    print '<form action=./control.cgi method=POST>
           <input type=hidden name=upload_file value=1>';
}
если что не понятно спрашивай
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.08.2010, 20:29
Привет! Вот еще темы с решениями:

Ошибка сохранения/загрузки объекта с файла
Привет всем. Столкнулся с проблемой сохранения/загрузки объекта в/из файла....

Как из Web приложения на c# вызвать диалог для загрузки файла на ASP сервер?
Товарищи как из Web приложения на c# вызвать диалог для загрузки файла на ASP...

Сохранение оригинального название файла, после загрузки файла на сервер
Есть код, который загружает файл в папку if($_FILES){ ...

Импорт данных из файла .csv в mysql сразу же после загрузки файла на сервер
Коллеги! Добрый день! Помогите пожалуйста. Задача состоит в том, чтобы через...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru