 |
|
06.08.2007, 22:04
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
С нами:
10358109
Репутация:
203
|
|
Код:
sub upload(){
my $req = POST $URL,
Content_Type => 'multipart/form-data',
Content => [Content_Type => 'form-data',
filename => [$nam], ];
my $res=LWP::UserAgent->new->request($req); $content = $res->content;
if ($content=~/загружен на сайт./){print "$name - OK\n"} }
Выше представленная функция загружает файл на сайт через POST запрос.
Однако есть одна неприятность - при загрузке жрет очень много памяти (при загрузке 20mb файла лопает ~500mb оперативы)
Внимание вопрос: как убрать ограничение на загрузку файла и при этом, сделать что бы памяти столько не жрал ???
Выслушаю любые советы и предложения, возможно даже применение другого языка программирования... (желательно что бы на *nix'aх работало)
Последний раз редактировалось flipper; 06.08.2007 в 22:06..
|
|
|
06.08.2007, 22:10
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
С нами:
10370602
Репутация:
472
|
|
Выслушаю любые советы и предложения, возможно даже применение другого языка программирования... (желательно что бы на *nix'aх работало)
Sockets (C)
|
|
|
|
06.08.2007, 22:21
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
С нами:
10358109
Репутация:
203
|
|
Сообщение от Ni0x
Sockets (C)
Спасибо, думал о том что бы в ручную запрос формировать, но в конечном итоге все равно в память все запихнет (хотя не проверял может займусь в скором времени).
Если есть исходники plz не жадничайте...
|
|
|
|
06.08.2007, 22:36
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
С нами:
10370602
Репутация:
472
|
|
По теме:
http://forum.vingrad.ru/forum/topic-166268/kw-perl-upload-socket-загрузка-файл.html
|
|
|
|
06.08.2007, 22:47
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
С нами:
10439609
Репутация:
71
|
|
отправлять кусками и делать паузы, чем меньше куски тем мешьше памяти требуется, все равно ты данные сгрузил в сокет а они еще долго не уйдут, так смысл все разом пихать
|
|
|
|
06.08.2007, 22:48
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
С нами:
10358109
Репутация:
203
|
|
Сообщение от Ni0x
По теме:
http://forum.vingrad.ru/forum/topic-166268/kw-perl-upload-socket-загрузка-файл.html
Собственно там тоже самое, что и у меня.
При таком варианте и при загрузке больших файлов лопает много памяти, так что не подходит... но все равно спасибо...
отправлять кусками и делать паузы, чем меньше куски тем мешьше памяти требуется, все равно ты данные сгрузил в сокет а они еще долго не уйдут, так смысл все разом пихать
Как то очень слабо я себе это представляю тем более реализацию на perl'e. PS Firefox запросто может отправлять файлы размером >700mb задача добиться того же...
Последний раз редактировалось flipper; 06.08.2007 в 22:55..
|
|
|
|
06.08.2007, 23:09
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
С нами:
10370602
Репутация:
472
|
|
flipper, собери запрос сам и отправь с помощью сокетов.
|
|
|
|
07.08.2007, 00:05
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
С нами:
10378404
Репутация:
1095
|
|
flipper
If you set the $DYNAMIC_FILE_UPLOAD variable (exportable) to some TRUE value, then you get back a request object with a subroutine closure as the content attribute. This subroutine will read the content of any files on demand and return it in suitable chunks. This allow you to upload arbitrary big files without using lots of memory. You can even upload infinite files like /dev/audio if you wish;
это из доки HTTP::Request::Common - Construct common HTTP::Request objects
|
|
|
|
07.08.2007, 10:40
|
|
Новичок
Регистрация: 25.07.2007
Сообщений: 1
С нами:
9893072
Репутация:
0
|
|
скажите пожалуста где я могу задать вопрос по эксплоитам на языке perl
|
|
|
|
скрипты на Perl подскажыте как и что ??????? |
11.08.2007, 13:56
|
|
Новичок
Регистрация: 25.02.2007
Сообщений: 6
С нами:
10108635
Репутация:
-10
|
|
скрипты на Perl подскажыте как и что ???????
привет подскажыте с перлом разобратса.
не могу не как скрипты запускат т.е на хост лажу а они на работают что в етой строке #!/usr/bin/perl или #!/usr/local/bin/perl надо песать не как не пойму вроде дорогу там дге скрипт лежыт на хосте или что заепался е етим не как разобратса не могу.
скачал етот перел актив запускаю скрипт лажу на хост в папку cgi или cgi-bin если ест инструкция к скрипту делаю как написано но нечего не работает.
подскажыте че делать искал в гоогле нашол чтот но не для новичков и еще че там в Спанел надо сделать перед использаванием скриптов на перле.
надо узнать где дериктория роот апачя чето в етом роде не куя не понял подскажыте ПЛЗ или если кому не трудно стукните ПЛЗ аська 358850490 зарание спасибо!!!
__________________
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
