-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/

まず、アカウント番号を検索する必要があります。この場合は12682559 (このアカウントに対してのみ操作を実行する必要があります) で、最初の行の03から始まります。

次に、ファイルでは88,OA:USD416667のように見える88から始まる行から番号416667を取得する必要があります。

この数は、 49と98で始まる 2 つの行の値から差し引かれ、これらの行の他の要素を乱すことなく差が置き換えられます。

4

1 に答える 1

3

ファイルからデータを取得しようとしていると仮定します。その場合、Perl がどのように IO を行うかを読みたいと思うでしょう:

perldoc -f io

これらの行を自分で解析することも、 Text::CSVなどのモジュールを使用することもできます。

断片を解析したら、必要な操作を実行して、データをファイルに書き戻すことができます。

あなたが始めたので、ここにあなたが読むことを検討するかもしれない1冊の本があります.

ここで時間を過ごすこともできます。

于 2012-07-17T14:25:38.063 に答える