Wie kann ich eine Transaktion in Perls :: QIF erstellen?

Question

Ich versuche, eine Transaktion in einer QIF-Datei in Perl zu erstellen. Ich dachte, dass die Verwendung von mich eine einfache Transaktion erstellen lassen würde (Beispiel: $ 20 bei Best Buy ausgeben), aber ich sehe keinen Weg, dies zu tun.

Hat jemand ein Beispiel oder gibt es ein Differenzmodul, das ich verwenden sollte, um eine Transaktion zu erstellen?

Danke!

--Noah

Answer 1

Während die Dokumentation keine Beispiele hat einen Datensatz zu schreiben, tun die tests. Ich änderte dies aus der Testdatei:

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;