(1 x ++$_) =~ /^1?$|^(11+?)\1+$/ || print "$_\n" while $_ < 1000
常见问题
相关文章
猜你喜欢
- 使用Perl从UniProt中下载蛋白质序列 2015-12-14
- 可以在新浪网盘里面批量获取搜索内容的地址及下载文件 2015-12-14
- 获取ab测试结果的rps 2015-12-14
- $& $` $' 格式匹配 2015-12-14
- Perl快速入门 2015-12-14
- 哈希的运用 2015-12-14
- Perl批量执行Linux安装程序和脚本 2015-12-14
- Perl 的 DBI connect() 方法的使用 2015-12-14
- 数组多叉树递归遍历 2015-12-14
- Perl 之 Stream XML::Parser 2015-12-14
