The following script was presented in The Perl Journal 5.3.
use Finance::QuoteHist;
$q = Finance::QuoteHist->new
(
symbols => [qw(LNUX MSFT IBM)],
start_date => '01/01/2000',
end_date => 'today',
);
print "Quotes:";
foreach $row ($q->quotes()) {
($date, $open, $high, $low, $close, $volume) = @$row;
print "$date $close";
}
It works fine as is. I would like to convert it to allow strict and
-w. Any hints on how best to do so would be appreciated
--jab
=====
John Bollinger, CFA, CMT
www.BollingerBands.com
__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger
http://im.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
