@@ -292,3 +292,7 @@
2000-08-06 Paul Fenwick <pjf@cpan.org>
* Updated regression testing scripts to make sure that spurious
percentage signs are no longer returned.
+
+2000-08-14 Paul Fenwick <pjf@cpan.org>
+ * Updated chkshares script so that it can deal with any market,
+ not just the ASX.
ChangeLog
@@ -5,19 +5,16 @@ use Finance::Quote qw/asx/;
=head1 NAME
-chkshares.pl - Check ASX share information.
+chkshares.pl - Check share information.
=head1 USAGE
-chkshares.pl TLS CML ITE
+chkshares.pl australia TLS CML ITE
=head1 NOTES
-Example program. Demonstrates how to use one of the interfaces to
-Finance::Quote.
-
-In the future this program will be expanded to handle other Finance::Quote
-interfaces (eg, yahoo and yahoo_europe).
+Example program. Demonstrates how to use one of the interface to
+Finance::Quote. The first argument must be the market.
=cut
@@ -32,17 +29,21 @@ TICKER DATE LAST %CHANGE HIGH LOW VOLUME CLOSE
.
format STDOUT =
- @<<< @>>>>>>>>>> @###.### @###.### @###.### @###.### @>>>>>>>> @###.###
+@<<<<<< @>>>>>>>>>> @###.### @###.### @###.### @###.### @>>>>>>>> @###.###
$name, $date, $last, $p_change, $high, $low, $volume, $close
.
+my $quoter = Finance::Quote->new();
+my $market = shift || die "Usage: $0 market stocks\n";
+
+my %quote = $quoter->fetch($market,@ARGV);
+
foreach my $code (@ARGV) {
- my %quote = asx($code);
unless ($quote{$code,"success"}) {
warn "Lookup of $code failed - ".$quote{$code,"errormsg"}."\n";
next;
}
- $name = $quote{$code,'name'};
+ $name = $code;
$date = $quote{$code,'date'};
$last = $quote{$code,'last'};
$p_change = $quote{$code,'p_change'};
Examples/chkshares.pl
57d6066ec54c4d423d153ed44c83604025dc4b8a
Paul Fenwick
pjf@perltraining.com.au
http://github.com/pfenwick/finance-quote/commit/8134bd92ffd25354088069bfc9630d5be35545a7
8134bd92ffd25354088069bfc9630d5be35545a7
2000-08-14T00:50:02-07:00
2000-08-14T00:50:02-07:00
Updated chkshares script to use any market, not just ASX.
785273ee521d70965823a4a647f6bf7bdcd70625
Paul Fenwick
pjf@perltraining.com.au