如何在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