我怎么可以创建一个交易在Perl的财务::QIF?

Question

我试图建立一个交易中QIF文件在Perl。我认为，使用 Finance::QIF 会让我创建一个简单的交易(例如：花费20美元，在最好的购买)，但是我没有看到一个方式做到这一点。

不会有人有一个例子，或者是有区别模块，我应该被利用来创建一个交易？

谢谢！

--诺亚

Answer 1

虽然该文件不具有任何实例编写一记录， 测试 做。我修改这种测试文件：

  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;