sergiotarxz
/
BitcoinMonitor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing the bitcoin scrapper to use the api. 

We got into the cloudflare bad eyes.
Fuck cloudflare.
This commit is contained in:
sergiotarxz 2022-03-28 16:18:52 +02:00
parent 553245a703
commit 5a32f16291
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bin/bitcoin_monitor.pl
View File

@ -22,16 +22,15 @@ my $run_once = defined $ARGV[0];
while (1) { while (1) {
say "Searching data" if !$run_once; say "Searching data" if !$run_once;
eval { eval {
my $result = $ua->get(q(https://www.coingecko.com/))->result->body; my $result = $ua->get('https://api.coingecko.com/api/v3/coins/markets?vs_currency=usd&ids=bitcoin')->result->body;
my $eur_result = my $eur_result =
$ua->get(q(https://duckduckgo.com/js/spice/currency/1/USD/EUR)) $ua->get(q(https://duckduckgo.com/js/spice/currency/1/USD/EUR))
->result->body; ->result->body;
$eur_result = $eur_result =~ s/^ddg_spice_currency\(//r =~ s/\);$//r; $eur_result = $eur_result =~ s/^ddg_spice_currency\(//r =~ s/\);$//r;
$result = $result =~ s/^ddg_spice_currency\(//r =~ s/\);$//r;
$eur_result = decode_json($eur_result); $eur_result = decode_json($eur_result);
my $dom = Mojo::DOM->new($result); $result = decode_json($result);
my $bitcoin = $dom->at(q(.coin-table)) my $bitcoin_price = $result->[0]{current_price};
->at(q(span[data-coin-symbol="btc"][data-target="price.price"]));
my $bitcoin_price = $bitcoin->all_text =~ s/,//gr =~ s/\$//r;
printf "%.02f€ \$%0.2f\n", $bitcoin_price * 0.00257 * printf "%.02f€ \$%0.2f\n", $bitcoin_price * 0.00257 *
$eur_result->{conversion}->{q/converted-amount/}, $bitcoin_price; $eur_result->{conversion}->{q/converted-amount/}, $bitcoin_price;
local $SIG{ALRM} = sub { local $SIG{ALRM} = sub {