print grep {/\d\d\./} <>


【 在 leadu (leadu) 的大作中提到: 】
: 你这代码对perl的侮辱性极强。
: 我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
: while(<>)
: ...................
--
修改:libgcc FROM 171.83.8.*
FROM 171.83.8.*