flaresun 12 сен 2009 в 05:17

Почти-web-сервер своими руками

7 мин

9.6K

Perl*

+20

Комментарии 46

odessky 12 сен 2009 в 07:14

Ждем вебсервер на bash'е

flaresun 12 сен 2009 в 07:19

А это идея, bash вроде умеет работать с сокетами :)

ZAZmaster 12 сен 2009 в 08:15

По моему уже был веб-сервер на баше и даже на шеле, стоит спросить гугл.

dos 12 сен 2009 в 09:20

while :;do nc -p8080 -vnlc'r=read;e=«echo -e»;$r a b c;while [ -n "`$e $a|tr -d "\r\n"`" ];do $r a;done;f=`$e $b|sed s/.//`;h=«HTTP/1.0»;z=«404 Not Found\n»;[ -z $f ]&&(ls|while $r n;do [ -f $n ]&&$e "$n";done)||([ -f $f ]&&($e "$h 200 OK\r\nContent-Type: `file -ib $f`\n";cat $f)||$e "$h $z\n$z")';done

Источник, если хабрапарсер закушает кавычки: alexey.sveshnikov.ru/blog/2007/08/30/bash-httpd-2/

mahoro 28 окт 2009 в 17:14

alexey.sveshnikov.ru/httpd.sh
и
alexey.sveshnikov.ru/httpd.sh.formatted

danilissimus 13 сен 2009 в 20:26

на JS

Mezomish 13 сен 2009 в 20:47

С год или два назад на ЛОРе проскакивал. Если не ошибаюсь, catap его писал (возможно, тот самый catap).

blind 12 сен 2009 в 07:23

я не понял, а почему код не картинкой? если программа на перл, то или фигурка сисястой девушки, или пивные бутылки, или еще что-нибудь, у кого на что фантазии хватит. думал в перле такая индентация…

flaresun 12 сен 2009 в 07:27

:)
В текущем виде проще объяснить что к чему и проще понять что да как ;)

> думал в перле такая индентация…
Кроме отступов для «картинки» нужны и символы подходящие

ksurent 12 сен 2009 в 12:29

pastebin.com/m79a90bbf
программа из топика)

НЛО прилетело и опубликовало эту надпись здесь

flaresun 13 сен 2009 в 18:44

Поделитесь, чем «преобразовывали»

ksurent 13 сен 2009 в 20:12

Acme::EyeDrops

НЛО прилетело и опубликовало эту надпись здесь

youlose 12 сен 2009 в 11:41

1. Уолл Л., Кристиансен Т., Орвант Д. Программирование на Perl — шедевр а не книга

НЛО прилетело и опубликовало эту надпись здесь

youlose 12 сен 2009 в 11:43

2. Learning Perl
3. Шварц Р., Фой Б., Феникс Т. Perl — изучаем глубже.2-е изд
4. High order Perl

НЛО прилетело и опубликовало эту надпись здесь

flaresun 12 сен 2009 в 13:33

Пока я спал уже ответили :)

JIP 12 сен 2009 в 15:46

В июле вышла книга «The difinitive guide to Catalyst» Kieren Diment and Matt S Trout

porutchik 12 сен 2009 в 11:26

Вместо
use LWP::Socket;
use FCGI::ProcManager
лучше использовать Net::Server

centrist 12 сен 2009 в 23:14

а вместо этого — use HTTP::Daemon

porutchik 12 сен 2009 в 23:54

perl way :)

centrist 14 сен 2009 в 15:25

именно :) настоящий perl way:
— захотелось что-то сделать? найди уже делающий это модуль на CPAN и успокойся

rPman 12 сен 2009 в 11:31

хех…
Аккуратно, не проверяется запрашиваемое имя файла… дырищааа, запроси /etc/passwd и получишь :)

P.S. но вообще то уже давно есть (gentoo dev-perl/HTTP-Server-Simple под лицензией Artistic GPL-2)

НЛО прилетело и опубликовало эту надпись здесь

flaresun 12 сен 2009 в 13:33

А это и не web-сервер, а просто пример скрипта ;) Он не предназначен для использования на продакшен-серверах. Это скорее серверная часть, которая по запросу может делать что ей скажут, в данном случае отдавать любой запрошенный файл. Я сперва сделал, чтобы файл брался только из папки со скриптом, но решил не удлинять код и оставил то, что сейчас в посте :)

ksurent 12 сен 2009 в 12:42

У вас HTTP протокол нарушается.

Я бы кстати не стал использовать вот такое «на коленке», когда есть полнеценный и навороченный Perlbal. Это не считая фреймворков для написания своих серверов (HTTP::Daemon, HTTP::Server, AnyEvent::HTTPD, ...).
Ну и к тому же здесь уже была серия статей «пишем fcgi приложение».

Odes 12 сен 2009 в 15:25

А такой вопрос. Мне нужно чтоб по любому запросу отсылался файл нулевого содержания.
Правильно ли я сделал, т.е. вместо этой части

    if ( $file_name ) {
        if ( -f $file_name and open FILE, '<', $file_name ) {
            # Read from file
            $content = join "", <FILE>;
            close FILE;
        }
        else {
            $content = "File not found";
            $stat = 404;
        }

Использую эту?

    if ( open FILE, '<', "/tmp/null" ) {
        $content = join "", <FILE>; close FILE;

youlose 12 сен 2009 в 15:50

вам нужно вместо этого написать $content = ''

Odes 12 сен 2009 в 16:56

Пасиба. Вечером испытаем ~~на кошках~~

santeri 13 сен 2009 в 20:59

вместо join "", можно использовать конструкцию

$content = do { local $/; <$f> }

zupernintendo 12 сен 2009 в 15:38

> $content = join "",;

не оптимально, лутше файл читать по частям и писать сразу, а не копить в переменной.

flaresun 13 сен 2009 в 01:30

Сперва думал проверять размер файла, большой — читать и сразу писать, маленький читать полностью, но это немного увеличило бы кол-во кода.

Forbidden 12 сен 2009 в 17:07

#!/usr/bin/perl

use strict;
use warnings;
$|++;


use IO::Socket::INET;
use EV;


my $sock = IO::Socket::INET->new(Listen => 10000, LocalPort => 8882, Blocking => 0, Proto => 'tcp') or die "Can't bind : $@\n";

my @evs;
push(@evs,EV::io $sock,EV::READ,\&accept);

sub accept
{
        my $newsock = $sock->accept;
        $newsock->blocking(0);
        push(@evs,EV::io $newsock,EV::READ,\&request);
        $evs[-1]->data(scalar(@evs)-1);
};

sub request
{
        my $data;
        $_[0]->fh->sysread($data,128);

        my $content = "HTTP/1.1 200 OK\r\n"
                        . "Server: EV/2009-09-12\r\n"
                        . "Content-Type: text/html\r\n"
                        . "Connection: close\r\n\r\n"
                        . "<html><body><h1>Hello from Habr</h1></body></html>";
        $_[0]->fh->syswrite($content);
        $_[0]->fh->close;
        undef $evs[$_[0]->data()];
        undef $_[0];
};


EV::loop();

1 поток:

#ab -n 10000 -c 30 http://localhost:8882/

Requests per second: 7099.00 [#/sec] (mean)

пример очень упрощен, отсутсвуют какие либо проверки, но скорость говорит за себя
если ещё добавить prefork…

flaresun 13 сен 2009 в 01:34

Не там скорость меряете ;)
Уберите из «поста» чтение из сокета и обращение к диску, подозреваю, что скорость заметно увеличится…

> пример очень упрощен
от того и скорость :)

Forbidden 13 сен 2009 в 13:58

paste.org.ru/?8jfpe7
Requests per second: 4483.65 [#/sec] (mean)

flaresun 13 сен 2009 в 17:23

Не понимаю чего Вы хотите этим сказать, но Вы продолжаете не там мерять скорость… У Вашего скрипта немного другой функционал, да и про «железо» Вы забыли, вряд ли оно у нас савпадает.

Код из поста, но 10 child'ов

$ siege -c 30 -b -f _urls

Transaction rate: 3847.76 trans/sec
Successful transactions: 25193
Failed transactions: 0

$ siege -c 30 -b -i -f _urls

Transaction rate: 3783.66 trans/sec
Successful transactions: 119578
Failed transactions: 0

$ ab2 -n 10000 -c 30 httр://127.0.0.1:8080/

Requests per second: 3900.84 [#/sec] (mean)

Перебираемые урлы — «главная страница», несуществующая страница, существующая страница
Как видите, скорость не сильно различается.

«Облегчённый сервер»
(просто выдача «приветствия»)

$ siege -c 30 -b 127.0.0.1:8080

Transaction rate: 4867.47 trans/sec
Successful transactions: 36506
Failed transactions: 0

$ ab2 -n 10000 -c 30 httр://127.0.0.1:8080/

Requests per second: 5647.83 [#/sec] (mean)

Ваш код
(копипаст и изменение порта)

$ siege -c 30 -b 127.0.0.1:8080

Transaction rate: 3111.36 trans/sec
Successful transactions: 15059
Failed transactions: 0

$ ab2 -n 10000 -c 30 httр://127.0.0.1:8080/

Requests per second: 3201.50 [#/sec] (mean)

flaresun 13 сен 2009 в 17:28

А если в вашем коде исправить:
EV: error in callback (ignoring): Modification of a read-only value attempted at tmp.pl line 51.
т.е. убрать строку
undef $_[0];
то результат увеличится примерно на тысячу ;)

Попробуйте на своём компьютере, результаты должны быть ещё выше.

flaresun 13 сен 2009 в 17:56

* «облегчённый сервер» работает в один поток, забыл это сразу указать

flaresun 13 сен 2009 в 17:55

Код из топика не претендует на идеальный, самый быстрый и самый правильный. Я старался продемонстрировать простоту и лаконичность perl'а. И если уж сокращать функционал и код, то на мой взгляд приведённый ниже код будет более предпочтителен для новичка.

#!/usr/bin/perl

use strict;

use warnings;

use LWP::Socket;

my $sock = new LWP::Socket();

die "Can't bind a socket" unless $sock->bind('127.0.0.1', '8080');

$sock->listen(10);

while ( my $socket = $sock->accept(3) ) {

    $socket->write( "HTTP/1.1 200 OK\r\nContent-Type: text/html\r\nConnection: close\r\n\r\n"

                               . "<html><body><h1>Hello from Habr</h1></body></html>" );

    $socket->shutdown();

}

$sock->shutdown();

P.S. Я не имею ничего против Вашего кода, не поймите меня неправильно, я просто поясняю идею поста. Если Вы с таким написанием несложного кода несогласны, напишите пост на эту тему, с удовольствием почитаю (думаю, что не только я один).

qwertysx 12 сен 2009 в 20:38

как это можно понять?

jonijones 13 сен 2009 в 03:03

Хорошую скорость при очень малых ресурсах, можно получить используя неблокирующие сокеты.

На счёт чтения файла по кускам; к этому следует также запрещать буферизацию вывода.

flaresun 13 сен 2009 в 15:08

Ну к коду всё-таки надо относиться не как к образцовому написанию сетевого приложения :) Здесь я пытался показать, что не такой уж и страшный perl, его не надо бояться, написать код на перле можно различными способами, в том числе и так, чтобы всё нормально читалось… А "$|++;" пришлось бы поподробнее описывать и чтобы всё было совсем хорошо не помешало описать и прочие предопределённый переменные, типа $/, $_, $!, $', а это уже в этой статье будет лишним.

rukeba 13 сен 2009 в 19:02

пардон за оффтопик, но моя душа радуется: торнадо, торнадо…
www.tornadoweb.org/

rukeba 13 сен 2009 в 19:03

это к теме non-blocking web server

Зарегистрируйтесь на Хабре, чтобы оставить комментарий

Почти-web-сервер своими руками

Комментарии 46

Публикации

Истории