如何在Perl的Finance::QIF中创建事务？

Question

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

有没有人有一个例子，或者有没有我应该用来创建事务的不同模块？

谢谢!

--诺亚

Answer 1

虽然文档中没有任何写入记录的示例，但是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;