The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ECOCODE / Finance-Quote-1.22-TRIAL / lib / Finance / Quote / Yahoo / Asia.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
—
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

              
#!/usr/bin/perl -w
#
#    Copyright (C) 1998, Dj Padzensky <djpadz@padz.net>
#    Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org>
#    Copyright (C) 2000, Yannick LE NY <y-le-ny@ifrance.com>
#    Copyright (C) 2000, Paul Fenwick <pjf@cpan.org>
#    Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net>
#
#    Copyright (C) 2001, M.R.Muthu Kumar <m_muthukumar@users.sourceforge.net>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
#    02111-1307, USA
#
# This code derived from Padzensky's work on package Finance::YahooQuote,
# but extends its capabilites to encompas a greater number of data sources.
#
# This code was developed as part of GnuCash <http://www.gnucash.org/>
package Finance::Quote::Yahoo::Asia;
require 5.005;
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/;
use vars qw( $YAHOO_ASIA_URL);
our $VERSION = '1.22'; # TRIAL VERSION
# URLs of where to obtain information.
$YAHOO_ASIA_URL = ("http://download.finance.yahoo.com/d/quotes.csv");
sub methods {return (asia => \&yahoo_asia,yahoo_asia => \&yahoo_asia)};
{
        my @labels = (base_yahoo_labels(),"currency","method");
        sub labels { return (asia => \@labels, yahoo_asia => \@labels); }
}
# =======================================================================
# yahoo_asia gets quotes for Asian (Except Japan) markets from Yahoo.
sub yahoo_asia
{
        my $quoter = shift;
        my @symbols = @_;
        return unless @symbols; # Nothing if no symbols.
        # This does all the hard work.
        my %info = yahoo_request($quoter,$YAHOO_ASIA_URL,\@symbols);
        foreach my $symbol (@symbols) {
                next unless $info{$symbol,"success"};
                $info{$symbol,"method"} = "yahoo_asia";
        }
        return %info if wantarray;
        return \%info;
}
1;
=head1 NAME
Finance::Quote::Yahoo::Asia - Fetch quotes from Yahoo Asia
=head1 SYNOPSIS
    use Finance::Quote;
    $q = Finance::Quote->new;
    %info = $q->fetch("asia","CREA.SI"); # Failover to other methods ok.
    %info = $q->fetch("yahoo_asia","CREA.SI"); # Use this module only.
=head1 DESCRIPTION
This module fetches information from Yahoo Asia.  Symbols should be
provided in the format "SYMBOL.EXCHANGE", where the exchange code is
one of the following:
        SI - Singapore
        BO - Bombay
        JK - Jakarta
        HK - Hong Kong
        NS - India
        KS - Korea
        KL - Kuala Lumpur
        NZ - New Zealand
        SS - Shanghai
        SZ - Shenzhen
        TW - Taiwan
        TH - Thailand
This module provides both the "asia" and "yahoo_asia" methods.
The "asia" method should be used if failover methods are desirable.
The "yahoo_asia" method should be used you desire to only fetch
information from Yahoo Europe.
Stocks are returned in the currency of the local exchange.  You
can use Finance::Quote's set_currency() feature to change the
currency in which information is returned.
This module is loaded by default by Finance::Quote, but can be loaded
explicitly by specifying the parameter "Yahoo::Asia" to
Finance::Quote->new().
Information obtained by this module may be covered by Yahoo's terms
and conditions.  See http://sg.finance.yahoo.com/ for more details.
=head1 LABELS RETURNED
This module returns all the standard labels (where available) provided
by Yahoo.  See Finance::Quote::Yahoo::Base for a list of these.  The
currency label is also returned.
=head1 BUGS
The currency of each exchange has not been thoroughly confirmed.
If you find an exchange is returning in an incorrect exchange,
please use the bug tool at http://sourceforge.net/projects/finance-quote
to report it.
=head1 SEE ALSO
Yahoo Asia, http://sg.finance.yahoo.com/
Finance::Quote::Yahoo::Base
=cut