Como posso criar uma transação no Perl's Finance :: qif?

Question

Estou tentando criar uma transação em um arquivo QIF no Perl. Eu pensei que usando Finance :: qif Permitiria -me criar uma transação simples (exemplo: gastando US $ 20 na Best Buy), mas não estou vendo uma maneira de fazer isso.

Alguém tem um exemplo ou existe um módulo de diferença que eu deveria estar usando para criar uma transação?

Obrigado!

--Noé

Answer 1

Enquanto a documentação não tem exemplos de escrever um registro, o testes Faz. Eu modifiquei isso no arquivo de teste:

  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;