Thread Webseite durchsuchen und bestimmte Zeile ausgeben (9 answers)
Opened by Willi9974 at 2016-07-04 00:10

renee
 2016-07-04 14:08
#185004 #185004
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Mit Mojolicious:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use 5.010;

use strict;
use warnings;
use Mojo::UserAgent;

my $ua    = Mojo::UserAgent->new;
my ($btc) = $ua->get("https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G")
    ->res
    ->dom
    ->find("#final_balance > font > span")
    ->map("text")
    ->each;

say $btc;


oder als Einzeiler:

Code: (dl )
$ perl -Mojo -E 'say g("https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G")->dom->find("#final_balance > font > span")->map("text")->each'


Mit LWP::Simple und Web::Query

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use 5.010;

use strict;
use warnings;
use Web::Query;

my $url = 'https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G';

say Web::Query->new($url)->find('#final_balance > font > span')->text;

Last edited: 2016-07-04 14:15:28 +0200 (CEST)
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Webseite durchsuchen und bestimmte Zeile ausgeben