Perl Finance :: QIFでsplit-transactionを作成する例:: QIF

Question

私の銀行からエクスポートされたトランザクション（CSV）をGNUcashにインポートする必要があります。私はほとんど財政を使用してperlスクリプトを終了しています :: QIF

私はCSVを解析し、このようにそれを書き出し：

my $record = { 
header  => "Type:Bank", 
date  => $outdatum, 
memo  => $outtext, 
transaction => $outbetrag, 
}; 
$out->header($record->{header}); 
$out->write($record); 
.... 

しかし、私の問題は、スプリットを作成しています。 http://finance-qif.sourceforge.net/は、 "トランザクションに分割が含まれている場合、これは定義され、ハッシュ参照の配列で構成されます。各分割に潜在的に以下の値が含まれています。

Unsupported field 'HASH(0x221c9e8)' found in record ignored in file '>_TESTqif.qif' line 22 at convert_bank_CSV.pl line 195. 

残念ながら、私はどこにもちょうど通常の取引のために、スプリットを作成するための例は認められなかった。

my $record = { 
header  => "Type:Bank", 
date  => $outdatum, 
memo  => $outtext, 
transaction => $outbetrag, 
@splits = (
    { 
    category => "Gesundheit:Arzt:Kind1", 
    memo => "L", 
    amount => "-161,66" 
    }, 
    {   
    category => "Gesundheit:Arzt:Kind2", 
    memo => "F", 
    amount => "-162,66" 
    } 
) 
}; 

これはエラーにつながる： - 私はこれを試してみました。

誰かがFinance :: QIFを使って分割取引を作成する方法をお手伝いできますか？

Answer 1

私はFinance::QIFについて何も知らないが、@splitsコードは意味をなさない。

代わりにこれを試してみてください：

my $record = { 
    header  => "Type:Bank", 
    date  => $outdatum, 
    memo  => $outtext, 
    transaction => $outbetrag, 
    splits  => [ 
     { 
     category => "Gesundheit:Arzt:Kind1", 
     memo => "L", 
     amount => "-161,66", 
     }, 
     {   
     category => "Gesundheit:Arzt:Kind2", 
     memo => "F", 
     amount => "-162,66", 
     } 
    ],  
}; 

はPerlでの参照やデータ構造の詳細については、perldoc perlreftutを参照してください。