view release on metacpan or  search on metacpan

lib/App/Chart/Suffix/AX.pm  view on Meta::CPAN

     $symbol = App::Chart::symbol_sans_suffix($symbol);

     # As of Feb 2009 the info search doesn't accept a pref or convertible
     # note symbol like "NABHA", only the issuing company "NAB", so prune
     # accordingly.
     $symbol = substr($symbol,0,3);

     return 
       'http://www.asx.com.au/asx/research/companyInfo.do?by=asxCode&asxCode='
       . URI::Escape::uri_escape($symbol);
   });

#------------------------------------------------------------------------------
# weblink - S&P index info

my %sandp_table
  = ('^AORD' => 'asxallo',
     '^ATLI' => 'asx20',
     '^AFLI' => 'asx50',
     '^ATOI' => 'asx100',
     '^AXJO' => 'asx200',
     '^AXKO' => 'asx300',
     '^AXMD' => 'asxmc50',
     '^AXSO' => 'asxsmo',

     # sectors, only one shared page
     '^AXEJ' => 'asxsec',  # Energy
     '^AXMJ' => 'asxsec',  # Materials
     '^AXNJ' => 'asxsec',  # S&P ASX 200 Industrials
     '^AXDJ' => 'asxsec',  # S&P ASX 200 Consumer Discretionary
     '^AXSJ' => 'asxsec',  # S&P ASX 200 Consumer Staples
     '^AXHJ' => 'asxsec',  # S&P ASX 200 Health Care
     '^AXFJ' => 'asxsec',  # S&P ASX 200 Financials
     '^AXIJ' => 'asxsec',  # S&P ASX 200 Information Technology
     '^AXTJ' => 'asxsec',  # S&P ASX 200 Telecommunication Services
     '^AXUJ' => 'asxsec',  # S&P ASX 200 Utilities
     '^AXPJ' => 'asxsec',  # S&P ASX 200 Property Trusts
     '^AXXJ' => 'asxsec',  # S&P ASX 200 Financial-x-Property Trusts
    );

App::Chart::Weblink::SandP->new
  (url_pattern => 'http://www2.standardandpoors.com/portal/site/sp/{lang}/page.topic/indices_{symbol}/2,3,2,8,0,0,0,0,0,0,0,0,0,0,0,0.html',
   symbol_table => \%sandp_table);


1;
__END__





# Other Sites:
#
# eoddata.com -- pay
# www.tradingroom.com.au -- gone to afr.com with login required
# findata.co.nz -- ASX past 30 days, incl prefs, but login to download more
#
# asxhistoricaldata.com
# week's worth of all shares zipped like (about 80 kbytes) back to 1997
# http://www.asxhistoricaldata.com/wp-content/uploads/week20160429.zip
# monthly and yearly files before recent weeks
# ordinaries only, no prefs
#
# http://www.cooltrader.com.au
# Register, free 10am next day, renew annually, daily csv files.
#
# barchart.com includes ASX, but register for historical maybe
#
# http://www.smh.com.au/business/markets/quotes/price-history/BHP/bhp-billiton-limited
# http://www.smh.com.au/business/markets/quotes/price-history/BHP/bhp-billiton-limited?page=2
# HTML table of recent prices and page to go back, about 100k each month
# Maybe only selected top ordinaries