¿Cómo puedo crear una transacción en Finanzas de Perl :: QIF?

Question

Estoy tratando de crear una transacción en un archivo QIF en Perl. Pensé que el uso de Finanzas :: QIF habría me deja crear una transacción sencilla (ejemplo: gastar $ 20 en Best Buy), pero no veo una manera de hacer esto.

¿Alguien tiene un ejemplo o hay un módulo de diferencia que yo debería usar para crear una transacción?

Gracias!

- Noah

Answer 1

Mientras que la documentación no tiene ningún ejemplo de escritura de un registro, el noreferrer pruebas hacen. He modificado esto desde el archivo de prueba:

  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;