如何在perl中同时打开两个文件，将两个文件对应行的数据进行处理

sunzhiguolu

回复 10# 南宫慕容007
你只要一试就明白了.

   

南宫慕容007

这就试回复 11# sunzhiguolu


   

q1208c

回复 7# 南宫慕容007

paste 是把相同行号的行合并的， 相当于横向合并。 所以， 你原来的计算就在新文件的同一行中进行了。 会比较简单。

如果你在两个文件中进行操作。 需要判断两个文件是否同时结束。 除非你能保证两个文件的行数一定是一样多的。
   

RE_HASH

$>  paste file1 file2|perl -npe 's/^(.+?\[)(\d+),(\d+)(\].+?)\s+(\d+)$/$1.($3-$5).","."$3$4"/e'
wav/wanyanbo/near/001.wav  [4182,4282]  [1267,1429]  [1819,2027]  [2442,2648]  [3044,3283]  [3688,4024]
wav/wanyanbo/near/002.wav  [3876,4076]  [1160,1312]  [1698,1866]  [2256,2439]  [2838,3158]  [3578,3827]
wav/wanyanbo/near/003.wav  [4210,4510]  [1120,1302]  [1738,2093]  [2473,2838]  [3213,3623]  [3994,4221]
wav/wanyanbo/near/004.wav  [3700,4100]  [1160,1387]  [1776,1996]  [2377,2664]  [3004,3171]  [3564,3885]
wav/wanyanbo/near/005.wav  [3830,4330]  [1105,1353]  [1771,1948]  [2322,2597]  [3040,3371]  [3756,4141]
wav/wanyanbo/near/006.wav  [3758,4358]  [1185,1526]  [2018,2430]  [2815,3023]  [3439,3620]  [4009,4138]
wav/wanyanbo/near/007.wav  [3933,4633]  [1119,1550]  [2042,2356]  [2769,3007]  [3366,3508]  [3922,4403]
wav/wanyanbo/near/008.wav  [3792,4592]  [1093,1528]  [1991,2131]  [2559,2934]  [3317,3723]  [4136,4334]
wav/wanyanbo/near/009.wav  [3806,4706]  [1133,1441]  [1815,2084]  [2479,2901]  [3344,3701]  [4117,4473]
wav/wanyanbo/near/010.wav  [3466,4466]  [1156,1609]  [2048,2216]  [2643,2851]  [3308,3436]  [3870,4107]

sunzhiguolu

1. paste b a|perl -ple 's!(\d+)\s+(.+?\[).+?,(\d+)!$2.($3-$1).qq(,$3)!e'

复制代码

wav/wanyanbo/near/001.wav  [4182,4282]  [1267,1429]  [1819,2027]  [2442,2648]  [3044,3283]  [3688,4024]
wav/wanyanbo/near/002.wav  [3876,4076]  [1160,1312]  [1698,1866]  [2256,2439]  [2838,3158]  [3578,3827]
wav/wanyanbo/near/003.wav  [4210,4510]  [1120,1302]  [1738,2093]  [2473,2838]  [3213,3623]  [3994,4221]
wav/wanyanbo/near/004.wav  [3700,4100]  [1160,1387]  [1776,1996]  [2377,2664]  [3004,3171]  [3564,3885]
wav/wanyanbo/near/005.wav  [3830,4330]  [1105,1353]  [1771,1948]  [2322,2597]  [3040,3371]  [3756,4141]
wav/wanyanbo/near/006.wav  [3758,4358]  [1185,1526]  [2018,2430]  [2815,3023]  [3439,3620]  [4009,4138]
wav/wanyanbo/near/007.wav  [3933,4633]  [1119,1550]  [2042,2356]  [2769,3007]  [3366,3508]  [3922,4403]
wav/wanyanbo/near/008.wav  [3792,4592]  [1093,1528]  [1991,2131]  [2559,2934]  [3317,3723]  [4136,4334]
wav/wanyanbo/near/009.wav  [3806,4706]  [1133,1441]  [1815,2084]  [2479,2901]  [3344,3701]  [4117,4473]
wav/wanyanbo/near/010.wav  [3466,4466]  [1156,1609]  [2048,2216]  [2643,2851]  [3308,3436]  [3870,4107]

南宫慕容007

-npe 表示后面直接跟正则表达式吗，就不需要再单独写一个perl文件回复 15# sunzhiguolu


   

南宫慕容007

我写了那么多行，你们一行就解决了，太凶残了回复 15# sunzhiguolu


   

南宫慕容007

太赞了回复 13# q1208c


   

南宫慕容007

.+?这三个符号放在一起好诡异，?是修饰前面.+的吧，即把.+看成一个整体，再由?修饰回复 14# RE_HASH