Server::Starter é…下ã§å‹•ãサーãƒã‚’ Perl 以外ã§æ›¸ã - 酒日記 ã¯ã¦ãªæ”¯åº—Server::Starter ã® SYNOPSIS ã«ã¯ã€è‡ªåˆ†ã§ Server::Starter é…下ã§å®Ÿè¡Œã™ã‚‹ã‚µãƒ¼ãƒã‚’ä½œã‚‹å ´åˆã®ä¾‹ãŒã‚ã‚Šã¾ã™ã€‚ # in my_httpd use Server::Starter qw(server_ports); my $listen_sock = IO::Socket::INET->new( Proto => 'tcp', ); $listen_sock->fdopen((values %{server_ports()})[0], 'w') or die "failed to bind to listening socket:$!"; while (1) { if (my $conn = $listen_sock->accept) { ... } } ã¨ã“ã‚ã§ã“ã®ã‚µãƒ¼ãƒã¯ Perl ã§ãªã‘ã‚Œã°æ›¸ã‘ãªã„ã®ã‹? ã¨ã„ã†ã¨ã€ãã‚“ãªã“ã¨ã¯ãªã„ã®ã§ã™ã。 Se
{{#tags}}- {{label}}
{{/tags}}