map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;
常见问题
相关文章
猜你喜欢
- 将perl脚本变成乱糟糟的一团 2015-12-14
- MySQL的异步调用模块 2015-12-14
- perl发送邮件，简单的代码 2015-12-14
- perl操作数据库 2015-12-14
- 输入输出 2015-12-14
- Perl CGI Shell 2015-12-14
- mod_security日志信息提取工具 – modgrep 2015-12-14
- 动态生成pxelinux菜单文件及kickstart安装脚本 2015-12-14
- irssi 显IP插件 2015-12-14
- Perl 打开 word 文档并修改内容 2015-12-14
