Webseite durchsuchen und bestimmte Zeile ausgeben (Allgemeines zu Perl)

[thread]20108[/thread]

Webseite durchsuchen und bestimmte Zeile ausgeben

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+10 replies
Willi9974

2016-07-04 00:10
User since
2016-06-30
7 articles
BenutzerIn
Hallo zusammen,

ich habe verschiedene Bitcoin Adressen und möchte eine Seite mit meinen Bitcoin Adressen nach der Balance abfragen.
Code: (dl )

1 2 3 4 5 6 7 8

my $url = 'https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G'; use LWP::Simple; my @lines = get $url; $string = "final_balance"; foreach $line (@lines) { if ($line =~ $string) { print "$line"; } }
Es kommt aber immer der ganze Text der Webseite zurück und nicht nur die eine Zeile in der mein Suchstring "final_balance" drin steht.

Ich will nur die eine Zeile haben.
Hat da wer eine Idee wie das geht?

Viele Grüße
Willi
Last edited: 2016-07-04 09:04:21 +0200 (CEST)
- bianca
  
  2016-07-04 09:14
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Wo ist denn das Login in den Account? Das musst du mit LWP nachbilden, LWP greift nicht auf die Browsercookies zu. Die Session-ID im URL zu übermitteln reicht hier scheinbar nicht aus.
  10 print "Hallo"
  20 goto 10
- +2 replies
- guest janus
  
  2016-07-04 09:46
  
  Das Zauberwort heißt Strukturierung. Wenn die infolge eines Zeilenumbruch erfolgt, dann nutze die daraus folgende mögliche Datenstruktur eines Array für den wahlfreien Zugriff.
  Last edited: 2016-07-04 09:55:59 +0200 (CEST)
  - Willi9974
    
    2016-07-04 11:33
    
    User since
    2016-06-30
    7 articles
    BenutzerIn
    
    Danke für die Info!
    
    Username und Passwort gibt es nicht, das sind frei zugängliche Daten.
    
    wie kann ich die daten strukturieren, also einen Zeilenumbruch definieren und dann nur die eine Zeile ausgeben?
    
    Viele Grüße
    Willi
- Muffi
  
  2016-07-04 11:54
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Gib doch mal scalar(@lines), also die Anzahl Zeilen aus.
  Dann wirst du evtl. das Problem sehn.
  Last edited: 2016-07-04 11:55:54 +0200 (CEST)
  1 + 1 = 10
- +5 replies
- renee
  
  2016-07-04 14:08
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  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/
  - +4 replies
  - Willi9974
    
    2016-07-04 16:24
    
    User since
    2016-06-30
    7 articles
    BenutzerIn
    
    Wow, voll geil, danke für die Antworten, werden den Code daheim gleich testen!
    
    Vielen Dank und grüße
    Willi
    - +3 replies
    - Willi9974
      
      2016-07-04 19:43
      
      User since
      2016-06-30
      7 articles
      BenutzerIn
      
      Hat funktioniert --> DANKE!
      - +2 replies
      - Willi9974
        
        2016-07-04 22:15
        
        User since
        2016-06-30
        7 articles
        BenutzerIn
        
        Eine Frage noch.
        
        Ich frage ja in dem Schritte den Wert "final_balance" ab
        
        wie kann ich im gleichem Atemzug ohne die Webseite nochmal zu laden, einen anderen / andere Werte mitabfragen, die ich dann auch ausgeben kann zb. "total_received"?
        
        Linuxer
        
        2016-07-04 23:22
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Ungetestet auf Basis des Codes von Renee weiter gedacht:
        
        Man könnte die Ressource oder das DOM zwischenspeichern und dann die gewünschten Suchen darauf ausführen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        #!/usr/bin/perl use 5.010; use strict; use warnings; use Mojo::UserAgent; my $ua = Mojo::UserAgent->new; my $dom = $ua->get("https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G") ->res ->dom; my @wanted = ( "final_balance", "total_received" ); for my $what ( @wanted ) { my ($wanted) = $dom ->find("#$what > font > span") ->map("text") ->each; say "$what: $wanted"; }
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2016-07-04 00:10.