端端舝

扔奈田奈灍蚾中欠中欠公及ㄠ毀覧扔奈田奈 (iterative server) �K俴扔奈田奈 (concurrent server) ﹛? Fork server ﹛? PreFork server

弁仿奶失件玄扔奈田奈伉弁巨旦玄伊旦禾件旦

薜僅毛�井仁允月午狟�及方丹卞 (HTTP 扔奈田午皮仿它扒毛砑隅﹝勾引曰 TCP) 弁仿奶失件玄扔奈田奈 SYN SYN, ack ack 犯奈正ㄗ猁Аㄘ犯奈正ㄗ𡛟湘ㄘ , 猁А及 ack 𡛟湘及 ack FIN ack FIN ack socket,bind,listen accept( 皮伕永弁 ) accept 井日𥽋月 read( 皮伕永弁 ) connect write read( 皮伕永弁 ) read 井日𥽋月扔奈田互猁А毛�I燴 write read( 皮伕永弁 ) read 井日𥽋月 close close

毀覧扔奈田 (iterative server) use strict; use warnings; use IO::Socket; my $socket = IO::Socket::INET->new( Listen => 20, LocalPort => 12345 ) or die; while ( my $con = $socket->accept ) { my $line = <$con>; print $con $line; close $con; } 扔奈田奈伉弁巨旦玄復蕾渾切戊生弁扑亦件平亙奈復蕾𦤦心戊生弁扑亦件平亙奈 Listen 平亙奈 3way hand shake 俇賸摽 accept �觳萸ㄩ伉弁巨旦玄及 read 匹皮伕永弁允月及匹恚杅諉適丐勻凶�磁﹜ 郔場及諉適互伉弁巨旦玄毛手凶勾仁午摽及諉適互渾凶今木月仇午卞卅月

Fork 扔奈田 (concurrent server) use strict; use warnings; use IO::Socket; my $socket = IO::Socket::INET->new( Listen => 20, LocalPort => 12345 ) or die; while ( my $con = $socket->accept ) { my $pid = fork; if ( $pid == 0 ) { ## child close $socket; my $line = <$con>; print $con $line; exit(0); } else { ## parent close $con; } } 扔奈田奈伉弁巨旦玄 �觳萸ㄩ accept 及僅卞 fork 允月戊旦玄 accept 扔奈田奈 accept fork 扔奈田奈扔奈田奈扔奈田奈扔奈田奈笒赽

豻�ㄩ pipe(READ, WRITE) 憝杅 IPC 籵陓及價渙﹝笒皿伕本旦赽皿伕本旦及嶲匹 ��匹五月方丹卞卅月﹝ fork 仄卅中午匹五卅中歹仃匹反卅仁﹜方曰旯輪卅瞰午仄化引今仄仁由奶皿戊穴件玉互丐月﹝☆ ls | wc ★ fork READ WRITE 笒笒赽赽 READ WRITE READ WRITE READ WRITE READ WRITE READ WRITE

PreFork 扔奈田 (concurrent server) use strict; use warnings; use IO::Socket; use POSIX 'WNOHANG'; my $socket = IO::Socket::INET->new( Listen => 20, LocalPort => 12345 ) or die; for ( 1 .. 5 ) { my $pid = fork; if ( $pid == 0 ) { ## child while ( my $con = $socket->accept ) { close $socket; my $line = <$con>; print $con $line; close $con; } exit(0); } } ## parent; $SIG{CHLD} = sub { while ( waitpid( -1, WNOHANG ) > 0 ) { } }; while (1) { ## 赽皿伕本旦及杅毛捼淕允月卅升伎〝 } 復蕾渾切戊生弁扑亦件平亙奈復蕾𦤦心戊生弁扑亦件平亙奈 Listen 平亙奈赽赽赽 accept accept accept

Net::Server lib `-- Net |-- Server | |-- Daemonize.pm | |-- Fork.pm | |-- HTTP.pm | |-- INET.pm | |-- MultiType.pm | |-- Multiplex.pm | |-- PreFork.pm | |-- PreForkSimple.pm | |-- Proto | | |-- SSL.pm | | |-- SSLEAY.pm | | |-- TCP.pm | | |-- UDP.pm | | `-- UNIX.pm | |-- Proto.pm | |-- SIG.pm | `-- Single.pm |-- Server.pm `-- Server.pod sub run { ### pass package or object my $self = ref($_[0]) ? shift() : shift->new; $self->_initialize(@_ == 1 ? %{$_[0]} : @_); # configure all parameters $self->post_configure; # verification of passed parameters $self->post_configure_hook; # user customizable hook $self->pre_bind; # finalize ports to be bound $self->bind; # connect to port(s) # setup selection handle for multi port $self->post_bind_hook; # user customizable hook $self->post_bind; # allow for chrooting, # becoming a different user and group $self->pre_loop_hook; # user customizable hook $self->loop; # repeat accept/process cycle ### routines inside a standard $self->loop # $self->accept # wait for client connection # $self->run_client_connection # process client # $self->done # indicate if connection is done $self->server_close; # close the server and release the port # this will run pre_server_close_hook # close_children # post_child_cleanup_hook # shutdown_sockets # and either exit or run restart_close_hook }

掝觳 Starman Starlet Catalyst::Engine::HTTP HTTP::Server::PSGI Hoppy(?) socket 左皿扑亦件脹毛手勻午橢曰狟仆月 non-blocking 卞勾中化��

端端舝

扔奈田奈灍蚾中欠中欠

Recommended

More Related Content

What's hot (20)

Similar to 扔奈田奈灍蚾中欠中欠 (20)

Recently uploaded (11)

扔奈田奈灍蚾中欠中欠