(1 x ++$_) =~ /^1?$|^(11+?)\1+$/ || print "$_\n" while $_ < 1000
常见问题
相关文章
猜你喜欢
- 从国家自然科学基金里面爬取所有的基金项目 2015-12-14
- perl symlink 相对路径 2015-12-14
- 获取本机所有IP和设备的绑定情况 2015-12-14
- INI文件的解析 2015-12-14
- perl中的队列 2015-12-14
- 分割合并文件 2015-12-14
- perl解析xml 2015-12-14
- SQL2000数据库比较 2015-12-14
- perl通过IMAP接收、处理邮件 2015-12-14
- Perl 列出系统所有的帐号（Windows） 2015-12-14
