perl 如何提取大小条件的值 160C

1 现有两个文本 a.txt, b.txt
2 文件内容如下:
a.txt
ID1 1883092 1883268

ID1 1883207 1883295

ID1 1883655 1883702
ID1 1886233 1886361
ID2 4555 6777
......

b.txt
ID1 1880213 1881441 1881616 1884058 1884122 1884209 1884310 1884429 1884584 1885374 1885472 1885809 1885938 1886022
ID2 223 334 400 500
.....
要求:
比如: 输出 a.txt文件数据在b.txt的 1880213 1881441间,1881616,1884058间的符合数据

得到结果文件:
ID1 1883092 1883268

ID1 1883207 1883295

ID1 1883655 1883702

3个回答

a=oepn('a.txt','r').read
b=oepn('b.txt','r').read
for i in a:
for x in b:



提供个思路
1.读取a.txt中的每一行,并通过正则提取出ID1之后的数字,然后每一行的数字添加到一个列表a中,这样到最后,列表a中就是a.txt中所有的数字
2.读取b.txt,通过正则取出b.txt中的ID1后的数字,并存入列表b
3.取列表a和列表b的交集

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问