Что-то совсем не получается
Я ушёл совсем не далеко
Я так понял, что нужно сделать, что-то типо этого:
#!/usr/bin/perl
use LWP::Socket;
$headers = "HTTP/1.1 200 OK\r\nContent-Type: text/html\r\n\r\n";
$sock = new LWP::Socket();
$sock->bind('127.0.0.1', '8080');
$sock->listen(10);
while ( $socket = $sock->accept(10) ) {
$content = "Hello from Habr";
$file_name; $socket->read( \$file_name );
$file_name =~ s/GET \/([^ ]*) HTTP.+/$1/s;
if ( open FILE, '<', $file_name ) {
$content = join "", <FILE>; close FILE;
}
$socket->write( $headers . $content );
$socket->shutdown();
}
код я взял отсюда http://habrahabr.ru/post/69411/
Тут код на perl(е), но ни perl, ни sed практически не знаю.
Обращаться вроде бы больше некуда, так что прошу помощи тут!