-4

我正处于学习 Perl 的基本阶段，并且有一个任务要执行。我需要从文件中其他字段的其他数字中减去一个字段中的数字，并将差值放在我要减去的数字中。我可以将其描述如下

03,12682559,USD,010,11398,,,015,11398,,,030,11398,,,
16,698,416667,V,110729,,1354409,2011060411/
88,XX:XXXX XXX
88,TE:56745745
88,VBDS:4564574
16,195,416667,V,110729,,3134046323,SD06546700S1DA01/
88,ED:BMG RECD
88,ED:2097675
88,DRGF:D5674D6756
88,CV:O/O XXXXX XXXX XXX XX
88,AB:XXXX
88,BO:ABCL VSSFRDE SERV WESF 12700 Wdftgs 
88,OA:USD416667
88,BO:5676476 BO1:gfhdghj fhfjhjdd SERV TKDF 
49,2151723,15/
98,2151723,3,21/

首先，我需要在第一行从03开始​​搜索帐号，在本例中为12682559（我必须只为该帐号执行操作）。

接下来，我需要从文件中的88,OA:USD416667开始的88行中获取数字416667。

这个数字将从49和98开始的两行中的值中减去，并在不干扰这些行的其他元素的情况下替换差异。

4

1 回答 1

3

我假设您正在寻找从文件中获取数据，在这种情况下，您需要阅读 Perl 如何执行 IO：

perldoc -f io

您可以自己解析这些行，也可以使用诸如Text::CSV之类的模块

解析完这些片段后，您可以执行所需的任何操作并将数据写回文件等。

既然你刚刚开始，这里有一本你可能会考虑阅读的书。

你也可以在这里花一些时间。

于 2012-07-17T14:25:38.063 回答