開始 Bailador

Bailador 是對 Perl Dancer Web 開發(fā)框架的模仿。安裝方法：

panda install Bailador# orzef install Bailador

我們來創(chuàng)建一個腳本 first.pl，打印 "hello world":

use v6;use Bailador;get '/' => sub { "hello world"}baile;

運(yùn)行：perl6 first.pl 它會啟動一個小型的 Web 服務(wù)器，你可以在3000端口上訪問它：

$ perl6 first.plEntering the development dance floor: http://0.0.0.0:3000[2016-05-05T12:57:31Z] Started HTTP server.

在 Bailador 中，我們需要把 HTTP 請求方法和服務(wù)器上的路徑映射給一個匿名子例程, 這個子例程會返回它里面的內(nèi)容。在這個例子中，我們把我們告訴它的網(wǎng)站根路徑的 get HTTP 請求映射為返回字符串 hello world。如果你啟動這個程序并用瀏覽器打開 http://0.0.0.0:3000/ 你就會看到這個文本。

我們還可以映射其它路徑(path-es):

get '/about' => sub { "關(guān)于我"}

這會把 http://0.0.0.0:3000/about url 映射為返回 「關(guān)于我」。

路徑中的占位符

路徑中的一部分可以是以冒號開頭的占位符:

get '/hello/:name' => sub ($name) { "Hello $name!"};

:name 部分能匹配除了斜線 / 之外的任何字符串，并且它所匹配到的值會被賦值給匿名子例程中的 $name 變量。

這樣的占位符你可以擁有多個，并且占位符的實(shí)際名字是什么無關(guān)緊要。占位符所捕獲到的值會按照它們出現(xiàn)在 url 中的順序賦值給函數(shù)的參數(shù)。

get '/hello/:first/:family' => sub ($fname, $lname) { "Hello $fname! And hi $lname"};

在這個例子中，無論 :first 占位符捕獲到的是什么，它都會被賦值給 $fname 參數(shù)，無論 :family 捕獲到的是什么，它都會被賦值給 :$lname。例如 url http://0.0.0.0:3000/hello/Foo/Bar 會生成如下響應(yīng):

Hello Foo! And hi Bar!

當(dāng)然，讓占位符的名字和參數(shù)的名字相同可能會讓代碼更易讀。這是第二個腳本的完整版本:

use v6;use Bailador;get '/' => sub { "hello world"}get '/hello/:first/:family' => sub ($fname, $lname) { "Hello $fname! And hi $lname"};baile;

使用 Bailador 回顯文本

我們來看看怎么從用戶那兒接收輸入并把輸入回顯給用戶。

使用 POST 回顯

對于這，我們必須創(chuàng)建兩個路由(routes)因?yàn)楝F(xiàn)在 Bailador 還不能處理 GET 參數(shù)。

# echo_post.p6use v6;use Bailador;get '/' => sub { '';}post '/echo' => sub { my $text = request.params // ''; my $html = 'You said (in a POST request) '; $html ~= $text; return $html;}baile;

img

我們能看到怎么創(chuàng)建一個路由來處理 POST 請求。

第一個路由 get '/' => { 會發(fā)送一個 GET 請求并且它會返回一個包含在這個腳本中的 HTML 片段。(我知道，我們很快就會使用模板了) 那個 HTML 片段包含了一個帶有單個文本框的表單和一個提交按鈕。這個表單有一個通向 /echo URL 的 action，并且表單擁有 method="POST"。這意味著，當(dāng)用戶點(diǎn)擊提交按鈕時(shí)，瀏覽器會發(fā)送回 POST 請求。

第二個路由 post '/echo' => sub { 會處理 /echo 路徑的 POST 請求。

Bailador 提供的 request 函數(shù)以 Bailador::Request的形式返回代表當(dāng)前請求的對象。

request 函數(shù)有幾個方法，其中一個是 params 方法，它返回一個散列，其中散列的鍵是參數(shù)的名字（在我們這個例子中是 text），值是提交的值。

我們把那個值保存在 $text 變量中，并且我們使用 '//' defined-or 操作符來設(shè)置變量的值為空，在用戶沒有提供任何值的情況下。然后我們連接用戶提供的值組成 "html" 字符串。最后發(fā)送回那個字符串，我們這個小小的回顯服務(wù)器就能工作啦。

img

使用 GET 回顯

use v6;use Bailador;get '/' => sub { '';}get '/echo' => sub { return 'You said (in a GET request) ' ~ (request.params // '');}baile;

img

在這個例子中，我省略了臨時(shí)變量 $text 和 $html，在之前的例子中它們也不是必要的。當(dāng)我們使用 GET 方法請求后，提交后回在瀏覽器的 URL 地址欄中拼接上我們的 text 字段和字段的值。

Bailador Application in a module

模板

在下面這個模板中，它把數(shù)據(jù)接收到變量 $h 中，之后使用這個變量來展示版本號和當(dāng)前時(shí)間 - 從紀(jì)元開始的秒數(shù)。bailador/code_in_module/views/index.tt

% my ($h) = @_;       
Bailador App
 Version <%= $h %> Current time: <%= $h %> 

模塊

這個文件把所有代碼包含在類中:

unit class Demo;

為了擁有特定領(lǐng)域語言(DSL)，它加載了 Bailador 以讓我們定義路由更容易。

use Bailador;

最重要的是它包含了路由。

unit class Demo;use Bailador;my $version = '0.01';get '/' => sub { template 'index.tt', { version => $version, date => time }}

啟動應(yīng)用程序的腳本

use Bailador;Bailador::import();use lib callframe(0).file.IO.dirname ~ '/lib';use Demo;baile;

最有意思的應(yīng)該是這段代碼:

use lib callframe(0).file.IO.dirname ~ '/lib';

它計(jì)算這個工程的根目錄 - 假設(shè) app.pl 文件在根目錄中 - 然后把 /lib 子目錄添加到 perl 將要查找額外模塊的地方。這會在 lib 子目錄下加載 Demo.pm 文件。

img

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com