rtyug

лучше:

cpan> force install IO::Socket::SSL

там SSL, может быть будет требовать компилятор для Си :)

по этому лучше ppm

это ppm?

лучше поставить на винду с ppm

у тебя не установлен IO::Socket::SSL

установи его как говорили с ppm

где находится IO/Socket/SSL.pm ???

пропишите путь к IO...

use lib 'G:/Program Files/Perl/site'; # путь к IO т.е. G:/Program Files/Perl/site/IO/Socket/SSL.pm

use IO::Socket;

NasMnogo-Mbl-Sila, это зависит от того что ты хочешь написать...!!

ты можешь писать свои скрипты на perl в слиле java или бейзик!

сложные и средние алгоримты, конечно не сможешь быстро научиться за 21 день

короче, можешь любой выучить, или 2 ЯП одновременно (например, php и perl, или другие)

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

вот эта девка на perl программирует :D

кто хочет 125k$? :D

brainfuck .

Himiko, ты спрашиваешь про любой все возможнный дата центр? :)

или чтобы порекомендовали?

ну вот один проект тут сидит http://www.fdcservers.net/virtual_servers.php и тут advancedhosters.com

на проекте почти 10млн больших файликов :)

точно таких же как fdcservers.net еще много

на счет оплаты я не понмю...

ну в гугле нормально есть по запросу "кластерный хостинг"

http://www.google.com.ua/search?q=%D0%BA%D0%BB%D0%B0%D1%81%D1%82%D0%B5%D1%80%D0%BD%D1%8B%D0%B9+%D1%85%D0%BE%D1%81%D1%82%D0%B8%D0%BD%D0%B3&hl=ru&prmd=iv&ei=ufP-TNGqEIS38QPF7YyNCw&start=0&sa=N

в большой компании, руководство может поднять рассмотреть такой вопрос в качестве иновационного решения :)

netwind, точно не могу сказать, можно попробовать sleep (или как-то еще) и использовать бд, записывать туда кто начинает скачать и кто скачал...

nginx работает как демон, имеет встреонный perl и загружет динамически код, заблокировать не должен, начинает отдать файл после выполнения handler, хотя точно не знаю как будет...

в любом случае можно поставить максимально количество скачиваний в очереде, очередь в миллион скачиваний же не будет?

думаю, что можно на ipfw сделать...

/* 

 * Copyright (C) Igor Sysoev 

 */





#ifndef _NGX_HTTP_PERL_MODULE_H_INCLUDED_ 

#define _NGX_HTTP_PERL_MODULE_H_INCLUDED_ 





#include <ngx_config.h> 

#include <ngx_core.h> 

#include <ngx_http.h> 

#include <nginx.h> 



#include <EXTERN.h> 

#include <perl.h> 





typedef ngx_http_request_t   *nginx;



typedef struct {

    ngx_str_t                 filename;

    ngx_str_t                 redirect_uri;

    ngx_str_t                 redirect_args;



    SV                       *next;



    ngx_uint_t                done;       /* unsigned  done:1; */



    ngx_array_t              *variables;  /* array of ngx_http_perl_var_t */



#if (NGX_HTTP_SSI) 

    ngx_http_ssi_ctx_t       *ssi;

#endif 

} ngx_http_perl_ctx_t;





typedef struct {

    ngx_uint_t    hash;

    ngx_str_t     name;

    ngx_str_t     value;

} ngx_http_perl_var_t;





extern ngx_module_t  ngx_http_perl_module;



/* 

 * workaround for "unused variable `Perl___notused'" warning 

 * when building with perl 5.6.1 

 */

#ifndef PERL_IMPLICIT_CONTEXT 

#undef  dTHXa 

#define dTHXa(a) 

#endif 





extern void boot_DynaLoader(pTHX_ CV* cv);





void ngx_http_perl_handle_request(ngx_http_request_t *r);

void ngx_http_perl_sleep_handler(ngx_http_request_t *r);





#endif /* _NGX_HTTP_PERL_MODULE_H_INCLUDED_ */ 

тут вот еще какой-то timedout, ну попробовать можно... :)

void

ngx_http_perl_sleep_handler(ngx_http_request_t *r)

{

    ngx_event_t  *wev;



    ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,

                   "perl sleep handler");

    

    wev = r->connection->write;

    

    if (wev->timedout) {

        wev->timedout = 0;

        ngx_http_perl_handle_request(r);

        return;

    }

    

    if (ngx_handle_write_event(wev, 0) != NGX_OK) {

        ngx_http_finalize_request(r, NGX_HTTP_INTERNAL_SERVER_ERROR);

    }

}