The modules are super easy to use:
(Win32 AS 5.8)
Get some charts
use Finance::YahooChart;
foreach( @ARGV ){
last unless /\w+/;
my %img = getchart(symbol => $_ , size => 'b', type => 'w',
include => 'm');
`get $img{'url'} > $_.jpg`;
}
Get some quotes
#!/perl/bin/perl
use strict;
use Finance::YahooQuote;
my @quote = getquote @ARGV;
foreach (@quote){
print "${$_}[1] Bid: ${$_}[9] Ask: ${$_}[10] Last: ${$_}[2] \n";
}
Example usage:
c:\>quote.pl ibm msft qqq
Update:removed the results
I can't speak to the legal issues and think it is OT for this group. Martha Stewart's site probably has a lot of knowledge about stuff like that though, you might check her site out for that topic: www.marthstewart.com (kidding of course )
You should ask a lawyer about this stuff (Not kidding), especially since the SEC is very particular about dissemination of information about publicly traded securities.
Someone makes a poor investment decision based on information you provied and you my friend are now possibly liable for losses they incurred. Are you sure you are ready for that?
Cheers,
JamesNC