كيف يمكنني إنشاء معاملة في تمويل بيرل :: QIF؟

Question

أحاول إنشاء معاملة في ملف QIF في بيرل. اعتقدت أن استخدام المالية :: 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;