摘要： use v6; use Bailador; get '/' => sub { ' String: ' } #这个get对应表单的get, 如果是post改为相应的post get '/string' => sub { my $i... 阅读全文

摘要： use v6; use Bailador; =begin pod 我们在路径设置上， 可以利正则表达式捕获的字符串作为子例程参数 =end pod get '/perl6/(.+)' => sub ($route) { "url : $route"; #这个(.+)全匹配/perl6下面的所有东西 #匹配到这个字符串时， 会把这个字符串作为参数传递给子例程 } get '... 阅读全文

摘要： use v6; use Bailador; =begin pod /:one/:two/:....路径选择 这个路径， 用/分隔 每个/分隔一个， 如果你只设置两个（/admin/login），时， 但你输入了三个(/admin/login/main) 第三个会被忽略 参数个数也要对应， 否刚会报错， 但程序并不会挂掉, 会在日志显示错误信息 注意： 当你设置多个这样的路径时， 记得子目录是在... 阅读全文

摘要： use v6; use Bailador; =begin pod 注意的是， 当/:one设置时 虽然你有/admin或/about, 但这个/:one不会跟现有的匹配 只跟没有的匹配： 也就是说， 当你输入/admin或/about时， get '/:one'对应的匿名子例程不会运行 当你访问的不是/admin或/about时， get '/:one'发条会执行 还有一点要注意的就是 当你设... 阅读全文

摘要： 注意这里没有设置根目录 '/' 打开时根目录会返回 'Not Found' 这个只存在/admin或/about页面 阅读全文

摘要： 运行后会在当在3000端口运行 运行界面如下: 阅读全文

摘要： 阅读全文

摘要： use v6; =begin pod @*ARGS 命令行参数， 不含脚本名 $*PROGRAM-NAME：当前运行脚本的相对路径 $*PROGRAM：当前运行脚本的文件名称 $*CWD：当前工作路径 $*IN：标准输入流(STDIN)，你可以使用$*IN.get来读取其中的一行 $*PID：当前进程PID $*EXECUTABLE-NA... 阅读全文

摘要： use v6; my $input = prompt '输入字符串:'; for $input.words -> $word { say $word; } for $input.comb -> $char { say $char; } #一个是词分隔， 一个是字母分隔 阅读全文

摘要： 发现一个小站， 密码加密方式为： 0-9转化为()*+,-./ ! a-z或A-Z也将转化为其他字母等 这里只测试数字 比如密文是: +++++ 结果将为: 33333 下面是一个解密的小脚本: 运行结果: 阅读全文