Как я могу создать транзакцию в Perl's Finance::QIF?
Вопрос
Я пытаюсь создать транзакцию в файле QIF на Perl.Я думал , что используя Финансы::QIF позволил бы мне создать простую транзакцию (пример:потратив 20 долларов в Best Buy), но я не вижу способа сделать это.
У кого-нибудь есть пример или есть модуль различий, который я должен использовать для создания транзакции?
Спасибо!
--Ной
Решение
Хотя в документации нет никаких примеров написания записи, тесты делай.Я изменил это из тестового файла:
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;
Не связан с StackOverflow