On Sep 4, John Bollinger said:
>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
You'll need to declare your variables with 'my', for the most part.
my $q = ...;
foreach my $row ($q->quotes) {
my ($date, $open, ...) = @$row;
}
It looks -w compliant to me.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
