Perl 如何处理舞者路线中的通配符子域？

我正在用Dancer框架编写一个web应用程序，我想像wordpress.com一样为每个用户提供一个子域

---

我如何指定我的舞者路线来考虑域名？

看看是如何实现的

啊，我需要从路线内的请求获取主机：

get'/'=>sub{

my$host=request->host；

$host=~s/\.example\.com.*$/；

\$host现在包含子域