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

add an example, strip out some blanks

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1524 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1999-01-02 06:39:00 +00:00
parent 6b4a8dcfbd
commit 33483ee77b
2 changed files with 77 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/quotes/Quote.pm
View File

@ -188,14 +188,16 @@ sub fidelity_nav {
($dayte = $q[1]) =~ s/^ +//;
}
}
($sym = $q[2]) =~ s/^ +//;
$sym = $q[2];
if ($sym) {
$sym =~ s/^ +//;
$aa {$sym, "exchange"} = "Fidelity"; # Fidelity
($aa {$sym, "name"} = $q[0]) =~ s/^ +//;
$aa {$sym, "number"} = $q[1];
$aa {$sym, "nav"} = $q[3];
$aa {$sym, "change"} = $q[4];
$aa {$sym, "ask"} = $q[7];
($aa {$sym, "name"} = $q[0]) =~ s/^ +//;
$aa {$sym, "name"} =~ s/$ +//;
($aa {$sym, "number"} = $q[1]) =~ s/^ +//;
($aa {$sym, "nav"} = $q[3]) =~ s/^ +//;
($aa {$sym, "change"} = $q[4]) =~ s/^ +//;
($aa {$sym, "ask"} = $q[7]) =~ s/^ +//;
$aa {$sym, "date"} = $dayte;
}
}
@ -221,12 +223,14 @@ sub fidelity_mm {
($dayte = $q[1]) =~ s/^ +//;
}
}
($sym = $q[2]) =~ s/^ +//;
$sym = $q[2];
if ($sym) {
$sym =~ s/^ +//;
$aa {$sym, "exchange"} = "Fidelity"; # Fidelity
($aa {$sym, "name"} = $q[0]) =~ s/^ +//;
$aa {$sym, "number"} = $q[1];
$aa {$sym, "yield"} = $q[3];
$aa {$sym, "name"} =~ s/$ +//;
($aa {$sym, "number"} = $q[1]) =~ s/^ +//;
($aa {$sym, "yield"} = $q[3]) =~ s/^ +//;
$aa {$sym, "date"} = $dayte;
}
}

64
src/quotes/Quote_example.pl Executable file
View File

@ -0,0 +1,64 @@
#! /usr/bin/perl -w
#
# example script showing how to use the Quote perl module.
use Quote;
# -----------------------------------
# get quotes for two stocks ...
%quotes = Quote::yahoo ("IBM", "SGI");
# print some selected values
print "NYSE by Yahoo: ", $quotes {"IBM", "name"},
" last price: ", $quotes {"IBM", "last"}, "\n";
print "NYSE by Yahoo: ", $quotes {"SGI", "name"},
" last price: ", $quotes {"SGI", "last"}, "\n";
# loop over and print all values.
# Notes that values are stored ion a multi-dimensional associative array
foreach $k (sort (keys %quotes)) {
($sym, $attr) = split ($;, $k, 2);
$val = $quotes {$sym, $attr};
# $val = $quotes {$k}; # this also works, if desired ...
print "\t$sym $attr =\t $val\n";
}
print "\n\n";
# -----------------------------------
# get quotes from Fidelity Investments
@funds = ("FGRIX", "FNMIX", "FASGX", "FCONX");
%quotes = Quote::fidelity (@funds);
foreach $f (@funds) {
$name = $quotes {$f, "name"};
$nav = $quotes {$f, "nav"};
print "Fidelity Fund $f $name \tNAV = $nav\n";
}
print "\n\n";
# -----------------------------------
@funds = ("FGRXX");
%quotes = Quote::fidelity (@funds);
print "Not all funds have a NAV; some have Yeilds:\n";
foreach $f (@funds) {
$name = $quotes {$f, "name"};
$yield = $quotes {$f, "yield"};
print "\tFidelity $f $name 30-day Yield = $yield percent\n";
}
print "\n\n";
# -----------------------------------
# demo T. Rowe Price -- same as above
@funds = ("PRFDX", "PRIDX");
%quotes = Quote::troweprice (@funds);
foreach $f (@funds) {
$nav = $quotes {$f, "nav"};
$dayte = $quotes {$f, "date"};
print "T. Rowe Price $f NAV = $nav as of $dayte\n";
}
print "\n\n";
# -----------------------------------