BPSCHUCK / Finance-Quote-1.50-TRIAL / lib / Finance / Quote / Bloomberg.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

              
package Finance::Quote::Bloomberg;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTML::TreeBuilder;
use Encode;
our $VERSION = '1.50'; # TRIAL VERSION
use vars qw($BLOOMBERG_URL);
$BLOOMBERG_URL = 'https://www.bloomberg.com/quote/';
sub methods { return (bloomberg => \&bloomberg); }
{
  my @labels = qw/method last currency symbol isodate/;
  sub labels { return (bloomberg => \@labels); }
}
sub bloomberg {
  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  = $BLOOMBERG_URL;
    $url  = $url . $name;
    $ua   = LWP::UserAgent->new;
    my @ns_headers = (
        'User-Agent' => 'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:67.0) Gecko/20100101 Firefox/67.0', 
        'Referer' => 'https://www.bloomberg.com/',
        'Accept' => '*/*',
        'Accept-Encoding' => 'br', 
        'Accept-Language' => 'en-US,en;q=0.5',
        'Pragma' => 'no-cache', );
    $reply = $ua->get($url, @ns_headers);
    unless ($reply->is_success) {
      $funds{$symbol, "success"}  = 0;
      $funds{$symbol, "errormsg"} = "HTTP failure";
      next;
    }
    eval {
      my $tree  = HTML::TreeBuilder->new_from_content(decode_utf8 $reply->content);
      my $price = $tree->look_down(_tag=>'span', 'class'=>'priceText__1853e8a5')->as_text();
      my $curr  = $tree->look_down(_tag=>'span', 'class'=>'currency__defc7184')->as_text();
      my $date  = $tree->look_down(_tag=>'div', sub {defined($_[0]->attr('class')) and $_[0]->attr('class') =~ /time__/})->as_text();
      $price =~ s/,//g;
      $date = $1 if $date =~ m|([0-9]{1,2}/[0-9]{1,2}/[0-9]{4})|;
      $funds{$name, 'method'}   = 'bloomberg';
      $funds{$name, 'last'}     = $price;
      $funds{$name, 'currency'} = $curr;
      $funds{$name, 'symbol'}   = $name;
      $quoter->store_date(\%funds, $name, {usdate => $date});
      $funds{$name, 'success'}  = 1;
    };
    if ($@) {
      $funds{$symbol, "success"}  = 0;
      $funds{$symbol, "errormsg"} = "parse error";
    }
  }
  return %funds if wantarray;
  return \%funds;
}
1;
=head1 NAME
Finance::Quote::Bloomberg - Obtain fund prices from Bloomberg.com 
=head1 SYNOPSIS
    use Finance::Quote;
    $q = Finance::Quote->new;
    %fundinfo = $q->fetch("bloomberg", "security");
=head1 DESCRIPTION
This module obtains information about fund prices from www.bloomberg.com.  
=head1 SECURITY NAME
The security string must match the format expected by the site, such as
'AAPL:US' not 'AAPL'.
=head1 LABELS RETURNED
Labels returned by this module include: last, currency, symbol, isodate
=head1 SEE ALSO
Finance::Quote
=cut