最近、私は簡単なスクリプトを書くように頼まれました-サイトのインデックスページの数をグーグルから要求するために。 Mojo *についてはすでに長い間知っていますが、誰もがどこかに挑戦するために手を伸ばすことはありませんでした。 次の例のスクリプトはcgiで実行されますが、mod_perlとfastcgiの両方でねじることができます。
私はlite liteバージョンを使用しました。Mojo*で単純に記述する方法のアイデアを示すために、スクリプトは意図的に簡略化されています。
#!/usr/bin/perl use strict; use Mojolicious::Lite; use Mojo::UserAgent; get '/' => sub { my $self = shift; my $site = $self->param('site'); # my $text; if($site) { my $ua = Mojo::UserAgent->new; # UserAgent # "http://www.google.com/search?q=site%3A$site" # <div id="resultStats"> $text = $ua->get("http://www.google.com/search?q=site%3A$site")->res->dom->at('div#resultStats'); } $self->render( 'index', # result => $text ? $text->text : '', # , site => $site, # ); }; app->start; # index.html.ep __DATA__ @@ index.html.ep <%= $result %><br /> <form action="/cgi-bin/get_string.pl"> site name: <input type="text" name="site" value="<%= $site %>"/> <input type="submit" /> </form>
それはすべて、PHPよりも簡単です:)
PS:Mojoliciousが正真正銘のドキュメントを手に入れたことを言及するのを完全に忘れました。例: http : //mojolicio.us/perldoc
PPS:フレームワークは積極的に更新されており、 Fuksitoが親切に述べたように 、バージョン1.16がすでに登場しており、 重大な脆弱性が修正されています