Come posso creare una transazione in Finanza di Perl :: QIF?

Question

Sto cercando di creare una transazione in un file QIF in Perl. Ho pensato che l'utilizzo di Finanza :: QIF sarebbe mi permette di creare una semplice transazione (ad esempio: spendere $ 20 presso Best Buy), ma io non sto vedendo un modo per farlo.

Se qualcuno ha un esempio o c'è un modulo differenza che dovrei usare per creare una transazione?

Grazie!

- Noah

Answer 1

Mentre la documentazione non ha esempi di scrittura un record, il noreferrer test fanno. Ho modificato questo dal file di test:

  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;