Как я могу создать транзакцию в Perl's Finance::QIF?

Question

Я пытаюсь создать транзакцию в файле QIF на Perl.Я думал , что используя Финансы::QIF позволил бы мне создать простую транзакцию (пример:потратив 20 долларов в Best Buy), но я не вижу способа сделать это.

У кого-нибудь есть пример или есть модуль различий, который я должен использовать для создания транзакции?

Спасибо!

--Ной

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;