代码之家 › 专栏 › 技术社区 › NoahD

如何在Perl的finance::qif中创建事务?

qif quicken perl

1

NoahD · 技术社区 · 15 年前

我尝试在Perl中的qif文件中创建一个事务。我以为用 Finance::QIF 我可以创建一个简单的交易(例如:在百思买花费20美元),但我没有看到这样做的方法。

是否有人有一个示例,或者是否存在一个差异模块,我应该使用它来创建一个事务?

谢谢!

——诺亚

1 回复 | 直到 13 年前

1

5

hlovdal 13 年前

虽然文档没有任何记录编写示例,但是 tests 做。我从测试文件修改了这个:

  my $out = Finance::QIF->new( file => ">" . $somefile, );
  my $record = {
      header      => "Type:Bank",
      date        => "8/26/09",
      payee       => "Best Buy",
      memo        => "",
      transaction => "-20.00",
      address     => "",
      category    => "Entertainment",
  };
  $out->header( $record->{header} );
  $out->write($record);
  $out->close;