你这代码对perl的侮辱性极强。

我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
while(<>)
{
    if（/[0-9][0-9]\./）
        print;
}

【 在 javame 的大作中提到: 】
: $filename='flims.txt';
: open(FILE,$filename) or die;
: @names;
: ...................
--
修改:leadu FROM 123.115.136.*
FROM 123.115.136.*