Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
06.08.2007, 22:04
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
Провел на форуме:
888851
Репутация:
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
Провел на форуме:
2009677
Репутация:
472
|
|
Выслушаю любые советы и предложения, возможно даже применение другого языка программирования... (желательно что бы на *nix'aх работало)
Sockets (C)
|
|
|
|
06.08.2007, 22:21
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
Провел на форуме:
888851
Репутация:
203
|
|
Сообщение от Ni0x
Sockets (C)
Спасибо, думал о том что бы в ручную запрос формировать, но в конечном итоге все равно в память все запихнет (хотя не проверял может займусь в скором времени).
Если есть исходники plz не жадничайте...
|
|
|
|
06.08.2007, 22:36
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
Провел на форуме:
2009677
Репутация:
472
|
|
По теме:
http://forum.vingrad.ru/forum/topic-166268/kw-perl-upload-socket-загрузка-файл.html
|
|
|
|
06.08.2007, 22:47
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
отправлять кусками и делать паузы, чем меньше куски тем мешьше памяти требуется, все равно ты данные сгрузил в сокет а они еще долго не уйдут, так смысл все разом пихать
|
|
|
|
06.08.2007, 22:48
|
|
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
Провел на форуме:
888851
Репутация:
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
Провел на форуме:
2009677
Репутация:
472
|
|
flipper, собери запрос сам и отправь с помощью сокетов.
|
|
|
|
07.08.2007, 00:05
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
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
Провел на форуме:
20583
Репутация:
0
|
|
скажите пожалуста где я могу задать вопрос по эксплоитам на языке perl
|
|
|
|
скрипты на Perl подскажыте как и что ??????? |
11.08.2007, 13:56
|
|
Новичок
Регистрация: 25.02.2007
Сообщений: 6
Провел на форуме:
54089
Репутация:
-10
|
|
скрипты на Perl подскажыте как и что ???????
привет подскажыте с перлом разобратса.
не могу не как скрипты запускат т.е на хост лажу а они на работают что в етой строке #!/usr/bin/perl или #!/usr/local/bin/perl надо песать не как не пойму вроде дорогу там дге скрипт лежыт на хосте или что заепался е етим не как разобратса не могу.
скачал етот перел актив запускаю скрипт лажу на хост в папку cgi или cgi-bin если ест инструкция к скрипту делаю как написано но нечего не работает.
подскажыте че делать искал в гоогле нашол чтот но не для новичков и еще че там в Спанел надо сделать перед использаванием скриптов на перле.
надо узнать где дериктория роот апачя чето в етом роде не куя не понял подскажыте ПЛЗ или если кому не трудно стукните ПЛЗ аська 358850490 зарание спасибо!!!
__________________
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
