Joel Berger posted this little program to start a web server to serve local files,它很棒：
- use MojolicIoUs::Lite;
- @ARGV = qw(daemon);
- use Cwd;
- app->static->paths->[0] = getcwd;
- any '/' => sub {
- shift->render_static('index.html');
- };
- app->start;
我在@ARGV中预先填充了命令行,因为我忘记了这一点.当它启动时,它会给出一条消息,告诉您它选择了哪个端口,如果可以,则使用3000：
- $perl ~/bin/mojo_cwd
- [Fri Mar 29 19:14:09 2013] [info] Listening at "http://*:3000".
- Server available at http://127.0.0.1:3000.
我想以编程方式获得该端口,以便测试套件可以知道在哪里查找它,而我宁愿不通过报废输出来实现.我的实验没有一个是有用的,我认为我总是朝着错误的方向前进.它似乎在它启动之前没有选择端口,一旦我调用start,那就是它的结束.
我也不想自己指定端口.
这不是一件紧急事情.我有一个当前的解决方案与另一个简单的HTTP框架,但我一直在寻找用Mojo替换大部分的东西,如果可以的话.由于旧的东西仍然有效,这真的是一件好事,而不是我的方式.
解决方法
你不能,但守护进程命令只绑定到端口3000,除非你告诉它,否则不会尝试其他任何东西.如果你正在使用Test :: Mojo,那么无论如何你都不需要提前知道端口,因为你可以随时将你的应用程序包装在一个小的Mojo :: Server :: Daemon脚本中.
- use MojolicIoUs::Lite;
- use Mojo::IOLoop;
- use Mojo::Server::Daemon;
- get '/' => {text => 'Hello World!'};
- my $port = Mojo::IOLoop->generate_port;
- my $daemon = Mojo::Server::Daemon->new(
- app => app,listen => ["http://*:$port"]
- );
- $daemon->run;