Re: TCP server with IO::Socket

Use

my ($method, $uri, $protocol) = $request_line =~ /(\V+) \040 (\V+) \04
+0 (\V+)/x;
[download]

instead of

my ($method, $uri, $protocol) = $request_line =~ /(.+) \040 (.+) \040 
+(.+)/x;
[download]

You were matching a \r with . which caused the output to overwrite itself.

Comment on Re: TCP server with IO::Socket Select or Download Code

Replies are listed 'Best First'.
Re^2: TCP server with IO::Socket by AlexP (Pilgrim) on Jul 21, 2021 at 09:09 UTC
Huh! So weird. Thank you so mush =) It's a good lesson. I guess chomp might also help or just split first line by space.	[reply]