Perl 은 nginx FastCGI 환경 을 사용 하여 WEB 개발 인 스 턴 스 를 만 듭 니 다.
#!/usr/bin/env perl
use strict;
use warnings;
use CGI::Fast;
while(my $q = new CGI::Fast)
{
print $q->header("text/plain");
print "Hello World";
}nginx+FastCGI 환경 구축
Perl 은 CGI::Fast 패키지 로 FastCGI 서 비 스 를 제공 합 니 다.이 패 키 지 는 FastCGI 프로 세 스 를 시작 하 는 두 가지 방법 을 제공 합 니 다.하 나 는 이 패키지 가 제공 하 는 서 비 스 를 직접 사용 하여 현재 프로 세 스 를 FastCGI 프로 세 스 로 바 꾸 는 것 입 니 다.다른 하 나 는 제3자 도구 인 spawn-fcgi 를 사용 하여 시작 합 니 다.nginx 설정 방식 예:
location / {
fastcgi_pass 127.0.0.1:8184;
fastcgi_param SCRIPT_FILENAME /scripts$fastcgi_script_name;
include fastcgi_params;
}
$ spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./main.pl앞의 명령 줄 에 서 는 spawn-fcgi 가 여러 프로 세 스 를 fork 하지 않도록 인자-n 을 사용 하고 차단 합 니 다.사용자 Ctrl+C 가 닫 을 수 있 도록 합 니 다.제품 서버 는 이 인 자 를 제거 하여 서버 의 다 핵 을 충분히 이용 하여 더 높 은 병발 수 를 제공 할 수 있 습 니 다.파일 이 바 뀐 상태 에서 서 비 스 를 다시 시작 할 수 있 도록 bash 스 크 립 트 를 썼 습 니 다.perl 프로그램 을 디 버 깅 할 수 있 습 니 다.코드 는 다음 과 같 습 니 다.
#!/bin/bash
#PID
PID_FILE=service.pid
MAIN=main.pl
#
term() {
test -e $PID_FILE || return
pid=`cat $PID_FILE`
kill -s -0 $pid || return
echo "Terminating $MAIN $pid"
rm -f $PID_FILE
kill $pid
wait $pid
}
# FastCGI
trap "term;exit" SIGINT SIGTERM
while true
do
#
term
# no fork ， PID
spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./$MAIN &
pid=$!
echo $pid > $PID_FILE
echo "My Perl service started, pid = $pid"
#
files=`find . -name '*.pl' -o -name '*.pm' -o -name '*.html'`
md5=`md5sum $files|md5sum`
#wait for file change
while [[ `md5sum $files|md5sum` = "$md5" ]]
do
sleep 1
done
echo "File changes detected, restarting service"
done
루트 시스템
웹 개발 을 하 는 데 는 루트 가 없어 서 는 안 되 며,서로 다른 요청 에 대해 특정한 응답 을 해 야 한다.루트 요청 은 HTTP Method 와 URI 두 부분 에 의존 하기 때문에 이 두 부분 을 분파 해 야 한다.CGI 에서 환경 변수 REQUESTMETHOD 와 REQUESTURI 에서 요청 방법 과 URI 를 가 져 옵 니 다.따라서 간단 한 경로 시스템 은 실제 적 으로 2 급 맵 으로 나 눌 수 있 습 니 다.등록 경 로 는 실제 적 으로 이 맵 에 규칙 에 대응 하 는 처리 함 수 를 넣 는 것 입 니 다.할당 요청 은 이 맵 에서 규칙 에 따라 대응 하 는 처리 함 수 를 얻 는 것 입 니 다.간단 한 예:
my %routers = ();
sub not_found
{
print "Status: 404
";
print "Content-Type: text/html
";
print<<EOF
<html>
<body>
<h1>404 Not found</h1>
Cannot find $ENV{REQUEST_PATH}.
</body>
</html>
EOF
}
sub add_rule
{
my ($method, $path, $callback) = @_;
my $handlers = $routers{$method};
$handlers = $routers{$method} = {} if not $handlers;
$handlers->{$path} = $callback;
}
sub dispatch
{
my $q = shift;
my $method = $ENV{REQUEST_METHOD};
my $uri = $ENV{REQUEST_URI};
$uri =~ s/\?.*$//;
my $handler = ($routers{$method} || {})->{$uri} || not_found;
eval
{
&$handler($q);
};
print STDERR "Failed to handle $method $uri: $@
" if $@;
}
sub index
{
my ($q) = @_;
print $q->header('text/plain');
print "Hello World!";
}
router::add_rule('GET', '/', \&index);
perl 은 대량의 템 플 릿 시스템 의 실현 을 제 공 했 습 니 다.저 는 개인 적 으로 Template Toolkit 을 가장 좋아 합 니 다.문서 도 매우 풍부 합 니 다.사 이 트 는?http://www.template-toolkit.org/ 。
앞의 index 를 템 플 릿 을 사용 하 는 예 로 변경 합 니 다.
use Template;
my $tt = new Template({INCLUDE_PATH => 'templates', INTERPOLATE => 1});
sub index
{
my ($q) = @_;
my $output = '';
print $q->header('text/html');
$tt->process('index.html', {world => 'World'}, $output) || die $tt->error();
print $output;
}
<html>
<head><title>Demo</title></head>
<body>
Hello ${world}
</body>
</html>이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
cowsay로 현장 고양이에 요시! 되고 싶은 건업무 중에도 현장 고양이에 요시! 하고 싶었기 때문에, cowsay 를 사용해 어떻게든 해 보았습니다. cowsay는 말할 것도없이 오징어 한 서버에 적합한 매혹적인 도구입니다. 살벌한 우리 마음에 일복의 청량을 줍...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
