http-request-read.pl

sub listener {

	push_read(line => sub {
		my $line = shift; # GET / HTTP/1.1
		                  # PUT /file HTTP/1.1
		my ($method, $path, $http) = $line =~ m{^(\S+)\s+(\S+)};
		# Key: value
		# Conetent-Length: 10
		# 
		# body...

		# 0x0D 0x0A
		# \015 \012
		# \r   \n

		unshift_read( line => qr/\015?\012\015?\012/, sub {
			# Key: value
			# Content-Length: 10
			# ConTent-LeNgth: 10
			my $line = shift;
			my @headers = split /\015?\012/, $line;
			my %headers;
			for (@headers) {
				my ($key,$value) = split /\s*:\s*/, $_, 2;
				$headers{lc $key} = $value;
			}

			if ($headers{'content-length'} > 0) {
				unshift_read(chunk => $headers{'content-length'}, sub {
					my $body = shift;
					listener()
				})
			}
		} );
	})
}


listener()
listener()
listener()