求perl或python程序，提取文件中首尾相同的行到一个新的文件里

import re
#!/usr/bin/python
# -*- coding: UTF-8 -*-
file_object = open('/tmp/baiduzhidao/CAM_READ.txt') #指定要处理的文件
CaseList = []
for line in file_object:

    pro_line = line.split()
    CaseList.append(pro_line[0] + pro_line[-1])

NewCaseList = list(set(CaseList))
file_object.close()


file_object = open('/tmp/baiduzhidao/CAM_READ.txt') #此处再次打开，是为了复位对象
for line_i in file_object:
    print "line_i:",line_i
    pro_line = line_i.split()
    for NewCaseList_i in NewCaseList:
        print "LIST",NewCaseList_i
        print "TXT:",pro_line[0] + pro_line[-1]
        if NewCaseList_i == (pro_line[0] + pro_line[-1]):
            print "PPDL"
            output = open('/tmp/baiduzhidao/CAM_READ.txt.' + NewCaseList_i , 'aw') #指定新产生后的文件存放位置
            output.write(line_i)
            output.close()
            break
file_object.close()

试试吧，随便写的，没考虑太多，数据量少的时候跑一下没问题，多了就不行了。