我需要将我的银行导出交易(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.
不幸的是,我找不到一个创建拆分的例子,只针对一个正常的事务。
有人能帮助财务::QIF如何用于创建拆分交易吗?
我对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
。