map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 329 ;
常见问题
相关文章
猜你喜欢
- perl正则典型应用 2015-12-14
- 从mysqldump全备获取指定库的sql 2015-12-14
- 查看网页源代码 2015-12-14
- 生成随机字符串 2015-12-14
- 用于比较两个文件不同的行差集 2015-12-14
- netstat 的连接状态个数统计 2015-12-14
- 对syslog日志进行解析 2015-12-14
- 猜字游戏 2015-12-14
- 使用 Perl 监控网站的性能和 uptime 2015-12-14
- Perl 查找文件 2015-12-14
