perl - Perl Finance::QIF で分割トランザクションを作成する例

Question

銀行輸出取引 (CSV) を GNUcash にインポートする必要があります。Finance::QIF を使用して perl スクリプトをほぼ完成させました。

CSV を解析して、次のように書き出します。

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

しかし、私の問題は分割を作成することです。 http://finance-qif.sourceforge.net/ は次のように述べています。-だから私はこれを試しました：

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"
  }
)
};

これにより、次のエラーが発生します。

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

残念ながら、通常のトランザクションのためだけに、分割を作成する例はどこにも見つかりませんでした。

Finance::QIF を使用して分割トランザクションを作成する方法を教えてください。