IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

simple perl script to autogen large gnucash data files

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4975 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2001-07-23 20:26:47 +00:00
parent fe3350dbc2
commit 28df0d583c
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
doc/examples/create-bogus-data.pl Executable file
View File

@ -0,0 +1,72 @@
#! /usr/bin/env perl
#
# create-bogus-data.pl
#
# Create a lot of 'fake' transactions, handy for generating
# large datasets for performance testing.
#
# currently, very hacked up, uses hard-wired accounts
# from the "txnreport.xac" test file
$ntrans = 3000;
$fromacct="bbf5756d8cada56c1245c49a1a5627a7";
$toacct="ef2b8b63e7be48360da608038b65f5bf";
sub getguid
{
local $guid;
open (UID, "uuidgen |");
$guid = <UID>;
chop $guid;
$guid =~ s/-//g;
return ($guid);
}
for ($i=0; $i<$ntrans; $i++)
{
$trnguid = &getguid;
$spaguid = &getguid;
$spbguid = &getguid;
$val = 10001 + $i;
$hr = $i % 24;
$dy = (($i-$hr)/24) %26 + 1;
$mon = ($i - ($i%625))/625 + 9;
$mon = $mon %12 +1;
$datep = join ('', "2000-", $mon, "-", $dy, " ", $hr, ":26:30 -0400");
print "
<gnc:transaction version=\"2.0.0\">
<trn:id type=\"guid\">$trnguid</trn:id>
<trn:date-posted>
<ts:date>$datep</ts:date>
</trn:date-posted>
<trn:date-entered>
<ts:date>2000-09-08 15:26:30 -0400</ts:date>
<ts:ns>598529000</ts:ns>
</trn:date-entered>
<trn:description>Cap. gain (short)</trn:description>
<trn:splits>
<trn:split>
<split:id type=\"guid\">$spaguid</split:id>
<split:reconciled-state>n</split:reconciled-state>
<split:value>$val/100</split:value>
<split:quantity>$val/100</split:quantity>
<split:account type=\"guid\">$fromacct</split:account>
</trn:split>
<trn:split>
<split:id type=\"guid\">$spbguid</split:id>
<split:reconciled-state>n</split:reconciled-state>
<split:value>-$val/100</split:value>
<split:quantity>-$val/100</split:quantity>
<split:account type=\"guid\">$toacct</split:account>
</trn:split>
</trn:splits>
</gnc:transaction>\n";
}