> Может лучше писать ОП-посты более общо и описывать проблему в комментариях?
> Нужно добовлять этот тред?
> Я вот могу легко натягивать вёрстку на ЙОБА-цмс
location ~ \.pl$ { gzip off; try_files $uri =404; root /var/www/example.com/www; fastcgi_pass unix:/run/fcgiwrap.sock; include fastcgi.conf; fastcgi_index index.pl; fastcgi_param SCRIPT_FILENAME $document_root$fastcgi_script_name; #fastcgi_ignore_client_abort off; }
2014/03/10 14:36:53 [error] 1202#0: *1 connect() to unix:/run/fcgiwrap.sock failed (111: Connection refused) while connecting to upstream, client: 127.0.0.1, server: example.com, request: "GET /test.pl HTTP/1.1", upstream: "fastcgi://unix:/run/fcgiwrap.sock:", host: "example.com"
use List::Util qw/shuffle/; join('',(shuffle @word));
a = document.getElementById('blahblah');
> Только для чего учить это протухшее...
> perl pocket reference
> http://ideone.com/zy6o01
my $sem = new Coro::Semaphore 15; $sem->down; # do something... $sem->up;
> с линукса перелез на шинду
> Как известно, в HTTP-протоколе есть три способа сообщить клиенту о том, что передача завершена. Первый, самый старый, -- разорвать соединение после того, как весь контент передан. Он же самый медленный, так как при этом не работает механизм Keep-Alive, и для следующего запроса клиент должен установить новое соединение. Второй -- это передача в заголовке Content-Length длины (в байтах) передаваемого контента. И наконец, третий -- передача контента блоками, перед каждым из которых передается его длина в шестнадцатеричном виде, а завершение передачи обозначается передачей блока с нулевой длиной (так наказываемый chunked transfer, возможно, о нем я напишу со временем отдельную запись).
[0-9]{1,4}[^\.]
> [^\.]
[^\.]
(?!\.)
> Rakudo Star / November 28, 2015
> Я у мамы программист
> уровня /b/
> конфа
> раки
my $sem = new Coro::Semaphore 2;$sem->down;async { while (1) { print "Thread #1", "\n"; sleep 1; }};async { while (1) { print "Thread #2", "\n"; sleep 1; }};$sem->up;
> И тем не менее, а как запустить этих потоков сразу несколько?
> Когда я пишу async{ ... }, ничего не происходит же.
> Никак
> Но как минимум искаробочный threads
> А что за задача у тебя?
> нативные же треды использовать не рекомендуют. Они умеют то, о чём я говорил выше?
> но мне не интересно LWP, я хочу именно libcurl и придётся писать свои велосипеды.
> Суть одна и та же.
> AnyEvent
> Или ты о чём?
> Можешь сказать, что ещё ты использовал?
> http://www.perltutorial.org/perl-subroutine/
> sub NAME PROTOTYPES ATTRIBUTES BLOCK
> The ATTRIBUTES gives subroutine additional semantics. Perl provides three standard attributes including locked, method and lvalue.
use Coro;use Mojo::Base -strict;my $thr1 = async { my $this = $Coro::current; $$this{desc} = "First thread"; my $i = 0; recurring Mojo::IOLoop 2 => sub { say "1st: ", $i++ };};my $thr2 = async { my $this = $Coro::current; $$this{desc} = "Second thread"; my $i = 0; recurring Mojo::IOLoop 2 => sub { say "2nd: ", $i++ };};$_ -> join for ($thr1, $thr2);start Mojo::IOLoop;
> sub do_stuff {
> my Bar $instance = shift;
> они умирают, как только навешивают свои коллбэки на луп
> Как сделать чтобы в каждом потоке было?
> Как работают все эти асинхронные эвент лупы
- hanabira 0.6.1320- + wakaba + futallaby + futaba -
