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

ECOCODE / Finance-Quote-1.22-TRIAL / lib / Finance / Quote / Morningstar.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

              
package Finance::Quote::Morningstar;
require 5.004;
use strict;
use vars qw( $MORNINGSTAR_SE_FUNDS_URL);
use LWP::UserAgent;
use HTTP::Request::Common;
use HTML::TableExtract;
our $VERSION = '1.22'; # TRIAL VERSION
$MORNINGSTAR_SE_FUNDS_URL = 'http://morningstar.se/funds/overview.asp?cid=';
sub methods { return (morningstar => \&morningstar); }
{
  my @labels = qw/date isodate method source name currency price/;
  sub labels { return (morningstar => \@labels); }
}
sub morningstar {
  my $quoter  = shift;
  my @symbols = @_;
  return unless @symbols;
  my ($ua, $reply, $url, %funds, $te, $table, $row, @value_currency, $name);
  foreach my $symbol (@symbols) {
    $name = $symbol;
    $url = $MORNINGSTAR_SE_FUNDS_URL;
    $url = $url . $name;
    $ua    = $quoter->user_agent;
    $reply = $ua->request(GET $url);
    unless ($reply->is_success) {
          foreach my $symbol (@symbols) {
        $funds{$symbol, "success"}  = 0;
        $funds{$symbol, "errormsg"} = "HTTP failure";
          }
          return wantarray ? %funds : \%funds;
    }
    $te = new HTML::TableExtract();
    $te->parse($reply->content);
    #print "Tables: " . $te->tables_report() . "\n";
    my $counter = 0;
    my $dateset = 0;
    for my $table ($te->tables()) {
          for my $row ($table->rows()) {
        if (defined(@$row[0])) {
                  if ('Senaste NAV' eq substr(@$row[0],0,11)) {
            @value_currency = split(/ /, $$row[2]);
            $funds{$name, 'method'}   = 'morningstar_funds';
            $funds{$name, 'price'}    = $value_currency[0];
            $funds{$name, 'currency'} = $value_currency[1];
            $funds{$name, 'success'}  = 1;
            $funds{$name, 'symbol'}  = $name;
            $funds{$name, 'source'}   = 'Finance::Quote::Morningstar';
            $funds{$name, 'name'}   = $name;
            $funds{$name, 'p_change'} = "";  # p_change is not retrieved (yet?)
                  }
                  if ($counter == 7 && $dateset == 0) {
            my $date = substr($$row[1],0,10);
            $quoter->store_date(\%funds, $name, {isodate => $date});
            $dateset = 1;
                  }
        }
          }
          $counter++;
    }
    # Check for undefined symbols
    foreach my $symbol (@symbols) {
          unless ($funds{$symbol, 'success'}) {
        $funds{$symbol, "success"}  = 0;
        $funds{$symbol, "errormsg"} = "Fund name not found";
          }
    }
  }
  return %funds if wantarray;
  return \%funds;
}
1;
=head1 NAME
Finance::Quote::Morningstar - Obtain fund prices the Fredrik way
=head1 SYNOPSIS
    use Finance::Quote;
    $q = Finance::Quote->new;
    %fundinfo = $q->fetch("morningstar","fund name");
=head1 DESCRIPTION
This module obtains information about Fredrik fund prices from
www.morningstar.se.
=head1 FUND NAMES
Use some smart fund name...
=head1 LABELS RETURNED
Information available from Fredrik funds may include the following labels:
date method source name currency price. The prices are updated at the
end of each bank day.
=head1 SEE ALSO
Perhaps morningstar?
=cut